Stringgrid kopieren und in anderes einfügen untereinander

[DeddyH]

Aus dem Hut und ungetestet:

Delphi-Quellcode:

procedure AppendToStringGrid(const Source, Destination: TStringGrid);
var
  Line: integer;
begin
  Assert(Assigned(Source) and Assigned(Destination),
    'Beide StringGrids müssen gültige Instanzen sein');
  for Line := Source.FixedRows to Source.RowCount - 1 do
    begin
      Destination.RowCount := Destination.RowCount + 1;
      Destination.Rows[Destination.RowCount - 1].Assign(Source.Rows[Line]);
    end;
end;

Aufruf wäre dann:
AppendToStringGrid(StringGrid2, StringGrid1);