Ordnernamen in Listbox laden

[taaktaak]

if (S.Name<>'.') and (S.Name<>'..') then Result.Add(S.Name) // PS: dass die Funktion eine Stringliste erzeugt, finde ich nicht besonders glücklich, mach' doch 'ne Prozedur draus und übergebe dieser die Listbox zum direkten Befüllen

[cyanroot]

Und das geht wie? .

[taaktaak]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  DirectoryListing('C:/*',Listbox1.Items); 
end; 

procedure TForm1.DirectoryListing(const PATH:String;SL:TStrings); 
var 
  S : TSearchRec; 
begin 

  if FindFirst(PATH, faDirectory, S) = 0 then 
  begin 
    repeat 
      if (S.Attr and faDirectory) = S.Attr then 
       if (S.Name<>'.') and (S.Name<>'..') then SL.Add(S.Name) 
    until FindNext(S) <> 0; 
    FindClose(S); 
  end; 
  if Result.Count = 0 then SL.Add(format('%s enthält keine Ordner', [path])); 
end;

// nur aus dem Kopf getippt

[toms]

Zitat von cyanroot:

Und das geht wie? .

Delphi-Quellcode:

procedure ListDirectory(Strings: TStrings; const Path: string);
var
  S: TSearchRec;
begin
  if FindFirst(Path, faDirectory, S) = 0 then
  begin
    repeat
      if ((S.Attr and faDirectory) = faDirectory) and
        (s.Name <> '.') and (s.Name <> '..') then
        Strings.Add(S.Name);
    until FindNext(S) <> 0;
    FindClose(S);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListDirectory(ListBox1.Items, 'C:\*.*');
end;

[taaktaak]

hihihi, schneller

[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

[taaktaak]

Ja, geht auch, aber TStrings sind universeller

[jfheins]

Zitat von taaktaak:

hihihi, schneller

Aber falsch

Zitat von taaktaak:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  DirectoryListing('C:/*',Listbox1.Items); 
end; 

procedure TForm1.DirectoryListing(const PATH:String;SL:TStrings); 
var 
  S : TSearchRec; 
begin 

  if FindFirst(PATH, faDirectory, S) = 0 then 
  begin 
    repeat 
      if (S.Attr and faDirectory) = S.Attr then // !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
       if (S.Name<>'.') and (S.Name<>'..') then SL.Add(S.Name) 
    until FindNext(S) <> 0; 
    FindClose(S); 
  end; 
  if Result.Count = 0 then SL.Add(format('%s enthält keine Ordner', [path])); 
end;

// nur aus dem Kopf getippt

Funkt nur, wenn wirklich nur das Directory-Flag gesetzt ist - es darf also nicht komprimiert/veschlüsselt/schreibgeschützt/etc. sein

[taaktaak]

Schon richtig!
Das ist nur übernommen, nicht von mir.
Hätte korrigiert werden müssen!
Sorry!

[cyanroot]

Danke euch . Und warum ist das besser? .