Alle Dateien in Memo einlesen

**Ricoo**

Hallo erstmal =)

Ich möchte für ein kleines Programm die Namen aller Dateien, die in in einem bestimmten Orner liegen einlesen
und in einem Memofeld ausgeben. Dank Google bin ich da auf findfirst() und findnext() gestoßen.
nur leider komm ich damit noch nicht so ganz klar.

Ich bitte euch mir kurz zu erklären, was ich falsch mache. Denn es wird immer nur ein Dateiname ausgegeben
und das auch nur, wenn ich die Datei genau festlege. Also zum Beispiel wenn ich directory:='F:/report.xls' setze,
wird im Memo1 "report.xls" ausgegeben.

Danke schonmal =)

Gruß
Rico

Hier ist mein Code:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.LadenClick(Sender: TObject);

var directory: String;

    fle: tSearchRec;

    list: tStringList;

begin

    list:=tstringlist.create;

    directory:='F:/';

    if findfirst(directory, faAnyFile, fle) = 0 then

      begin

        repeat

          list.add(fle.name);

      until findnext(fle) <> 0;

    end;

    Memo1.Lines.Add(fle.Name);

end;

Alle Dateien in Memo einlesen

Alle Dateien in Memo einlesen

Forumregeln