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;