Alle Dateien in Memo einlesen

[Ricoo]

Yeaha, es hat Funktioniert. Das mit der Maske war's.
Danke für die Mühe, die ihr euch gemacht habt. =)

Meine Procedure sieht jetzt so aus..

Delphi-Quellcode:

procedure TForm1.LadenClick(Sender: TObject);
var directory: String;
    fle: tSearchRec;
    list: tStringList;
    VerzInhalt: TStringlist;
begin

    list:=tstringlist.create;

    directory:='F:\';

    if findfirst(directory + '*.*', faAnyFile, fle) = 0 then
      begin
        repeat
          Memo1.Lines.Add(fle.Name);
      until findnext(fle) <> 0;
    end;