Verzeichnis auslesen

[Tpercon]

Hi

Hab mir heute mal auf die Schnelle ne procedure zum Anzeigen von Dateien in einem bestimmten Verzeichnis gebastelt. Es funktioniert auch, ist aber nicht wirklich entgültig so, da es ja zwecks sortieren nach Ordnern und Dateien 2 fast gleiche Codeblöcke sind, die sich z.B. noch zusammenfassen lassen wollen.
Vor 1- 2 Monaten hatte doch wer, im alten DF?, ne Procedure geschrieben, die nen Verzeichnis ausliest. Hat jemand den Code noch. Ich habe hier nichts gefunden, außer 'dateinamen in einen ordner abfragen', aber das wars nicht. Wäre ja auch interessant für die FAQ.
Der Codeauszug von mir:

Code:

var 
  datei: TSearchRec;
  a: integer;
begin
...
s := s + '\*.*';
ListView1.Items.Clear;
If FindFirst(s,fadirectory,datei) = 0 then
  begin
    while Findnext(datei) = 0 do
    begin
      If datei.Attr and fadirectory > 0 then
      begin
        ListView1.Items.Add;
        a := ListView1.Items.Count -1;
        ListView1.Items.Item[a].Caption := datei.Name;
        If datei.name <> '..'
         then ListView1.Items.Item[a].ImageIndex := 1
         else ListView1.Items.Item[a].ImageIndex := 2;
        ListView1.Items.Item[a].SubItems.Add(InttoStr(datei.size));
        ListView1.Items.Item[a].SubItems.Add(DateTimetoStr(FileDateToDateTime(datei.time)));
      end;
    end;
    FindClose(datei);
  end;
  If FindFirst(s, fadirectory, datei) = 0 then
  begin
    while Findnext(datei) = 0 do
    begin
      If datei.Attr and fadirectory = 0 then
      begin
        ListView1.Items.Add;
        a := ListView1.Items.Count -1;
        ListView1.Items.Item[a].Caption := datei.Name;
        ListView1.Items.Item[a].ImageIndex := 0;
        ListView1.Items.Item[a].SubItems.Add(InttoStr(datei.size));
        ListView1.Items.Item[a].SubItems.Add(DateTimetoStr(FileDateToDateTime(datei.time)));
      end;
    end;
  FindClose(datei);
  end;
end;

Gruß

by Daniel B; Code-Formatierung