Verschachtelte While- Schleife funktioniert nicht

[DelphiUser123]

Eine Timer- Procedure prüft kontinuierlich: Wenn er eine bestimmte Datei (KEYxyz.txt) NICHT findet, soll das Programm schliessen. Ursprünglich hatte ich zwei ineinander verschachtelte For- Schleifen, eine geht die Laufwerke durch, die andere geht die darin enthaltenen Dateien durch. Falls die Datei gefunden wird, bricht ein Exit Befehl die gesamte Procedure ab, das Programm bleibt geöffnet. Das hatte funktioniert.
Nun habe ich die For- Schleifen in While- Schleifen übertragen mit Abbruchbedingung und incrementierender Laufvariablen, um auf das "Exit" zu verzichten.
Obwohl die Datei in einem Laufwerk vorhanden ist, wird das Programm dummerweise abgeschaltet. Er kommt nicht rein in den Bereich "Showmessage('in pausieren drin');" (s.u.) obwohl die Datei vorhanden ist.
Wo ist das Problem im Code?

Code:

procedure TForm29.Timer1Timer(Sender: TObject);

var j,i:integer; LookFor: string;   f: File; pausieren: boolean;
begin

try   //T
         pausieren:=false;
         j:=0; i:=0;

    while ((j < (Form29.DriveCombobox1.GetCount)) and (not(pausieren))) do

    begin //B

      Form29.DriveCombobox1.itemindex:=j;

      Inc(j);

      Form29.FileListBox1.Directory:=Form29.DriveCombobox1.text[1] + ':/';

      LookFor:='KEYxyz.txt';

      Form29.FileListBox1.Update;
                                          
    while ((i < (Form29.FileListBox1.Count)) and (not(pausieren))) do

    begin //A

      if (Form29.FileListBox1.Items[i]= LookFor)  then begin //Showmessage('gefunden');

            FileNom:= Form29.FileListBox1.Directory + LookFor;

                        if timerstarter=true then begin

                          Laden();
                          timerstarter:=false;
                        end;

                            pausieren:=true;
                                Showmessage('in pausieren drin');

      end;
      Inc(i);

    end; //A

       if ((j=Form29.DriveCombobox1.GetCount) and (not(pausieren))) then begin Application.Terminate; end;
           
    end; //B
    except //T
     on EInOutError do  begin
     Application.Terminate;
    end;

end;

end;

[Uwe Raabe]

Du musst direkt vor der while-i-Schleife das i auf 0 setzen, nicht schon vor der while-j-Schleife.

[DeddyH]

Und niemals in einer Methode einer Form-Klasse auf die globale Variable zugreifen, das geht spätestens, wenn man dynamisch eine 2. Instanz erzeugt, ganz furchtbar in die Hose. Daher entweder "self" verwenden oder ganz weglassen.

Zitat:

while ((j < (Form29.DriveCombobox1.GetCount)) and (not(pausieren))) do

->
while ((j < ({self.}DriveCombobox1.GetCount)) and (not(pausieren))) do

[himitsu]

Davor ginge auch (wenn auch nutzlos, was der Compiler anmerken wird),
aber i muß vor (oder nach) jedem durchlauf erneut zurückgesetzt werden.



Warum greifst du innerhalb einer Methode der TForm29 auf die ogloableVariable Form29 zu?
[edit] siehe DeddyH [/edit]

Bei einem Fehler einfach so ohne Rückmeldung das Programm abschießen ... ähhhhhhhhhhhhhhhhhhh, WARUM?

PS: Ein leerer SD-Karten-Leser oder ein CD-Laufwerk oder nicht verbundenes Netzlaufwerkt und das ganze Vorhaben kann hängen oder gar knallen.

Das Dateisystem von Windows ist nicht case-sensitive.
Warum vergleichts du dennoch case-sensitive?
SameFileName, SameText AnsiSameText, ...

Warum das gesamte Verzeichnis auflisten, wenn eh nur eine Datei gesucht wird?

Wieso ist LookFor keine Konstante, obwohl sie sich nie ändert?

Und wieso benutzt man extrem überalterte visuelle Komponenten, um nichtvisuell nach einer Datei zu suchen?
FileExists, oder notfalls FindFirst IOUtils (TFile.Exists / TDirectory.GetFiles)

Zitat:

if timerstarter=true then

ES WIRD NIEMALS NIE NICHT mit True verglichen
if timerstarter then
oder bei False
if not timerstarter then

Die Einrückung ist ... ich würde jetzt nicht sagen p .... neee, doch etwas pervers.

Bonus-Tipp:
[DELPHI] Delphi-Code [/DELPHI]
[CODE] anderer Code oder preformatiertet Text [/CODE]
[CODE=XML] <xml> [/CODE]