Hallo, danke
das klappt bei einem gefundenen Eintrag gut.
StringGrid2.Rows[0]:= StringGrid1.Rows[res.y];
Um weiter zu suchen verwende ich folgendes:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
res:tpoint;
begin
res:=StringGrid1.findnext;
if (res.x>=0) and (res.y>=0) then
begin
StringGrid1.Col:=res.x;
StringGrid1.row:=res.y;
// StringGrid2.Rows[0]:= StringGrid1.Rows[res.y];
end
else
MessageDlg('Text not found',mtinformation,[mbOK],0);
end;
Er schreibt ja so immer alles in
StringGrid2.Rows[0]
rein, er soll ja soviele neue Zeilen hinzufügen wie Ergebnisse vorhanden.
Magst du nochmal nachschauen?
Gruss capo