Dateien und Ordner im Memo-Feld auflisten

[GoldNick]

Hallo :)

Ich programmiere erst sein kurzem mit Delphi. Bin ehr ein 'Hobby'-Programmier deswegen bitte ich euch nicht so hart zu mir zu sein falls ich was falsch gemacht habe :oops:

Ich habe da was geschrieben, es soll mit alle Dateien und Ordner eines Verzeichnisses meiner Wahl auflisten und in einer Text-Datei speichern. Es hat ja gestern noch funktioniert aber als ich heute morgen weitermachen wolte, funktionierte es nicht mehr. Es wird eine Text-Datei erstellt aber ohne Inhalt und im Memo-Feld wird auch nichts angezeigt.

Könnt ihr mir bitte weiterhelfen :?:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  verz: String;
  f:tsearchrec;
  error : Integer;
begin
  verz:='C:\';
  error := findfirst(verz,faanyfile,f);
  try
    while error = 0 do
      begin
        Memo1.Text:=Memo1.Text+#13#10+'--> '+f.name;
        error := findnext(f);
      end;
  finally
      findclose(f);
      Form1.Memo1.Lines.SaveToFile('dateiliste.txt');
  end;
end;

[s-off]

Hallo,

für so einen Fehler ist der Debugger bestens geeignet.
Setze einfach mal am Anfang Deiner Methode einen Haltepunkt, und dann geh das Ganze mal Schritt für Schritt durch.

So siehst Du, an welcher Stelle es hakt, und kannst dem Ganzen weiter auf den Grund gehen.

[GoldNick]

der Felher lag bei verz:='C:\'; es muss verz:='C:\*.*'; lauten :)