Verschachtelte While- Schleife funktioniert nicht

[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]

[DaCoda]

Wenn deine Delphiversion es unterstützt, dann schau dir mal IoUtils an.
So wie himitsu schon geschrieben hat ist der Weg den du da gehst recht "Oldschool".

Und ein wenig Code formatieren wäre auch nicht verkehrt. Wenn dein Delphi das unterstützt und es aktiviert ist einfach mal Ctrl-D drücken

Generell sollte das so aber gehen:

Code:

procedure TForm29.Timer1Timer(Sender: TObject);
var
  j, i: integer;
  LookFor: string;
  f: file;
  pausieren: boolean;
begin
  Timer1.Enabled := False;
  try //T
    pausieren := false;
    j := 0;
    while ((j < (DriveCombobox1.GetCount)) and (not (pausieren))) do begin //B
      DriveCombobox1.itemindex := j;
      Inc(j);
      FileListBox1.Directory := DriveCombobox1.text[1] + ':/';
      LookFor := 'KEYxyz.txt';
      FileListBox1.Update;
      i := 0;
      while ((i < (FileListBox1.Count)) and (not (pausieren))) do begin //A
        if (FileListBox1.Items[i] = LookFor) then begin //Showmessage('gefunden');
          FileNom := 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 = DriveCombobox1.GetCount) and (not (pausieren))) then begin
        Application.Terminate; // Einfach so wegwürgen ist nicht schön. Besser einen kleinen InfoDialog und dann ein Close ???
      end;
    end; //B
  except //T
    on EInOutError do begin
      Application.Terminate; // Das selbe... Einfach so wegwürgen ist nicht schön. Besser einen kleinen InfoDialog und dann ein Close ???
    end;
  end;
  Timer1.Enabled := True;
end;

[DelphiUser123]

Vielen Dank an die Runde für die vielen Anmerkungen und Tipps. Es funktioniert soweit.