Für mich sieht das alles irgendwie unnötig komplizierter aus, als es
IMHO ist. Wieso reicht so was nicht ?
Delphi-Quellcode:
for i := 1 to Stringgrid1.RowCount do begin
if gefunden then begin
Stringgrid2.Rows [j] := Stringgrid1.Rows[i];
j := j + 1;
Stringgrid2.Rowcount := Stringgrid2.Rowcount;
end;
end;
Das i läuft dabei durch alle Stringgrid-Zeilen und das j wird nach Bedarf (wenn die Funktion gefunden true ergibt) erhöht.