Alle Dateien in Memo einlesen

[DeddyH]

Hallo Ricoo, willkommen in der Community
Versuch es mal so:

Delphi-Quellcode:

procedure ListFiles(Dir: string; List: TStrings; ListDirs: Boolean = false);
var Rec: TSearchRec;
    i: integer;
begin
  List.BeginUpdate;
  List.Clear;
  if Length(trim(Dir)) = 0 then exit;
  if AnsiLastChar(Dir) <> '\' then
    Dir := Dir + '\';
  i := FindFirst(Dir + '*.*', faAnyFile, Rec);
  if i = 0 then
    repeat
      if (Rec.Name[1] <> '.') and (ListDirs or ((Rec.Attr and faDirectory) = 0)) then
        List.Add(Rec.Name);
      i := FindNext(Rec);
    until i <> 0;
  SysUtils.FindClose(Rec);
  List.EndUpdate;
end;

Aufruf für Dateien:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListFiles('F:\',Memo1.Lines);
end;

Und zusätzlich für Dateien und Verzeichnisse:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListFiles('F:\',Memo1.Lines,true);
end;