Posted by Milsdam on October 09, 2007
In Reply to StringGrid to EditText problem posted by Milsdam on October 07, 2007
If at first you don't succeed, try, try, try again.Found it myself afterall.
procedure TForm1.DownClick(Sender: TObject); var Row : integer; begin if StringGrid1.Row < StringGrid1.RowCount -1 then StringGrid1.Row := StringGrid1.Row +1 else Beep; for Row := 0 to StringGrid1.Row do begin Edit1.Text := StringGrid1.Cells[0,Row]; Edit2.Text := StringGrid1.Cells[1,Row]; Edit3.Text := StringGrid1.Cells[2,Row]; Edit4.Text := StringGrid1.Cells[3,Row]; end; end;
Thanks anyway
Follow Ups