StringGrid nach StrigGrid

[Sharky]

Hai Binärbaum,

das ganze müsste auch mit einer Schleife gehen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ndx : Integer;
begin
  Form2.StringGrid2.ColCount:= Form1.StringGrid2.ColCount;
  Form2.StringGrid2.RowCount:= Form1.StringGrid2.RowCount;

  for ndx := 0 to StringGrid1.RowCount do
  begin
    Form2.StringGrid1.Rows[ndx] := Form1.StringGrid1.Rows[ndx];
  end;
end;