Stringgrid durchsuchen

[sirius]

Delphi-Quellcode:

var i:integer;
    anz:integer;
begin
  anz:=-1;
  stringgrid2.RowCount:=anz+1;
  for i:=0 to stringgrid1.RowCount-1 do
    if pos(lowercase(edit1.text),lowercase(stringgrid1.rows[i].text))>0 then begin
      inc(anz);
      stringgrid2.RowCount:=anz+1;
      stringgrid2.Rows[anz].Assign(stringgrid1.rows[i]);
  end;
end;