In 2 Stringgrids Reihen vergleichen

[capo]

Habe eine Email an TMS geschickt, folgendes kam zurück:

You would have to slightly modify the code in this
particular case:

Delphi-Quellcode:

begin
  AppendRow(sgResult, Rows[i]);
  sgRegult.Objects[0,sgResult.RowCount - 1] := Pointer(i); 
end;

Habe ich gemacht aber irgendwie erhalte ich die gleiche Fehlermeldung:

Delphi-Quellcode:

procedure CopyRowsContaining(sg, sgResult: TStringGrid; search: string);
var
  i: Integer;
begin
  ClearGrid(sgResult);
  with sg do
    for i := FixedRows to Pred(RowCount) do
      if AnsiContainsText(Rows[i].Text, search) then begin
    //   AppendRow(sgResult, Rows[i]).Objects[0] := Pointer(i);
        AppendRow(sgResult, Rows[i]);
        sgResult.Objects[0, sgResult.RowCount - 1] := Pointer(i);
      end;
end;