Re: StringGrid to EditText problem

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

• Re: StringGrid to Edit.Text webmaster Guido 10/10/2007 (1)
  • Re: StringGrid to Edit.Text Milsdam 10/11/2007 (0)