Hallo, liebe Delphianer!
Ich versuche gerade eine Suche in einem Stringgrid zu starten, dass ist auch kein Problem, aber sobald er den Suchbegriff findet und eine Message anzeigt, hängt er sich auf. Ich vermute es liegt daran das ich keine Abbruchbedingung festgelegt habe ich weiß jetzt im Moment aber auch nicht wie ich das mache! Eine andere Idee von mir wäre, eine Repeat-Until mit einer For-To-Schleife zu kombinieren, aber an der Umsetzung mangeld es noch!
Hier mein Such-Algorithmus:
Delphi-Quellcode:
-------------------------------------------------------------
procedure TFrKundenliste.cmdSucheClick(Sender: TObject);
Var i,k : Integer;
Suchbegriff : String;
begin
for i:=0 to Kundenliste.colcount-1 do
for k:=1 to Kundenliste.rowcount-1 do
if Kundenliste.Cells[k,i]=Suchbegriff then
begin
ShowMessage('Gefunden!');
end
else ShowMessage('Pech gehabt!');
end;
--------------------------------------------------------------
Hilfe!