Kombinieren von Repeat- mit For-Schleifen

[Sir Rufo]

Evtl. sollte man "sprechende" Namen benutzen

Delphi-Quellcode:

-------------------------------------------------------------
procedure TFrKundenliste.cmdSucheClick(Sender: TObject);
Var lCol, lRow : Integer;
    Suchbegriff : String;
begin
   for lCol := 0 to Kundenliste.colcount-1 do
     for lRow := 1 to Kundenliste.rowcount-1 do
       if Kundenliste.Cells[lCol, lRow] = Suchbegriff then
       begin
         ShowMessage('Gefunden!');
         Exit;
       end;
  ShowMessage('Pech gehabt!');
end;
--------------------------------------------------------------