procedure Fehler (procedure zum Filtern eines Stringgrids)

[Sharky]

Ich habe mein Test SG mit diesen Daten gefüllt:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  x: integer;
  y: integer;
begin
  for y := StringGrid1.FixedRows to Pred(StringGrid1.RowCount) do
  begin
    for x := StringGrid1.FixedCols to Pred(StringGrid1.ColCount) do
    begin
      Stringgrid1.Cells[x, y] := Format('meow %d/%d', [x, y]);
    end;
  end;
  StringGrid1.Cells[1, 2] := 'blubb test';
  StringGrid1.Cells[2, 3] := 'blubb test';
  StringGrid1.Cells[4, 5] := 'blubb test';
end;

Und die Funktion dann so aufgerufen:

Delphi-Quellcode:

procedure TForm1.btn_CopySGRowsClick(Sender: TObject);
var
  foo: integer;
begin
  foo := CopySGRows(StringGrid1, StringGrid2, 'blubb');
  ShowMessage(IntToStr(foo));
end;

Und es werden alle Zeilen kopiert in denen in einer Zelle die Zeichenfolge blubb vorkommt.