Ordnernamen in Listbox laden

[quendolineDD]

Ja, weil ich die Stringliste dann nicht mehr freigeben kann. Aber Delphi dürfte den Speicher dann trotzdem wieder freigeben, was?

Ansonsten mach doch einfach so:

Delphi-Quellcode:

function TForm1.DirectoryListing(const PATH: string;
  var L: TListBox): Integer;
var
  S : TSearchRec;
begin
  Result := 0;
  if FindFirst(PATH, faDirectory, S) = 0 then
  begin
    repeat
      if ((S.Attr and faDirectory) = S.Attr) and (S.Name <> '.') and (S.Name <> '..') then
      begin
        L.Items.Add(S.Name);
        INC(Result);
      end;
    until FindNext(S) <> 0;
    FindClose(S);
  end;
  if Result = 0 then L.Items.Add(format('%s enthält keine Ordner', [PATH]));
end;

Ich liebe Funktionen