Danke für die schnelle Antwort.
Delphi-Quellcode:
procedure TForm1.btnsuchenClick(Sender: TObject);
var
i:integer;
suchtext: string;
begin
if FindDialog1.Execute then
begin
suchtext := FindDialog1.FindText; // bleibt leer obwohl ich den Suchtext eingebe
for i:=0 to SringGrid1.RouCount -1 do
begin
if StringGrid1.cells[0,i] = suchtext then
begin
ShowMessage('gefunden');
end;
end;
end;
end;
Ja irgendwie passiert nichts. Das hatte ich dauernd. Warum?