Re: StringGrid to EditText problem

Posted by Milsdam p12592 on October 09, 2007

In Reply to StringGrid to EditText problem posted by Milsdam p12592 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

Related articles

       

Follow Ups