Einzelnen Beitrag anzeigen

Schüler

Registriert seit: 20. Mär 2012
12 Beiträge
 
#1

Kombinieren von Repeat- mit For-Schleifen

  Alt 8. Apr 2012, 22:53
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!

Geändert von mkinzler ( 9. Apr 2012 um 07:50 Uhr) Grund: Delphi-Tag eingefügt
  Mit Zitat antworten Zitat