Einzelnen Beitrag anzeigen

Amateurprofi

Registriert seit: 17. Nov 2005
Ort: Hamburg
1.064 Beiträge
 
Delphi XE2 Professional
 
#3

AW: Kombinieren von Repeat- mit For-Schleifen

  Alt 8. Apr 2012, 23:51
1) auf cells wird mit cells[col,row] zugegriffen, du greifst mit cells[row,col] darauf zu. Wenn das Grid nicht zufällig quadratisch ist, müßtest du eigentlich eine Exception kriegen.
2) Suchbegriff ist leer, d.h. du müßtest für jede leere Zelle eine Message "Gefunden" erhalten und für jede nicht leere Zelle eine Message "Pech gehabt".
Ich unterstelle mal du willst nach der Message "Gefunden" die Prozedur verlassen und willst die Message "Pech gehabt" nur dann erhalten, wenn der Suchbegriff im Grid nicht gefunden wurde.
Das könntest du z.B. so realisieren :
Delphi-Quellcode:
   for i:=0 to Kundenliste.colcount-1 do
      for k:=1 to Kundenliste.rowcount-1 do
         if Kundenliste.Cells[i,k]=Suchbegriff then begin
            ShowMessage('Gefunden!');
            exit;
         end;
   ShowMessage('Pech gehabt!');
Du solltest aber auch dafür sorgen, daß Suchbegriff nicht leer ist
Gruß, Klaus
Die Titanic wurde von Profis gebaut,
die Arche Noah von einem Amateur.
... Und dieser Beitrag vom Amateurprofi....
  Mit Zitat antworten Zitat