Verzechniss: alle beinhaltenden Ordner ermitteln?

[mkinzler]

Es übergibst doch eine TSerachRec-Struktur, in der steht doch alles

[DeddyH]

Richtig, und was steht im TSearchRec?

[LuCSteR]

Delphi-Quellcode:

//Ordnernamen in einem Verzeichnis ermitteln
procedure ListSubDirs(Dir: string; var sList: TStrings);
begin
  Dir:=TempDownloadDir
  ChangeCurrentDir(Dir);
  FindFirst(GetCurrentDir, faDirectory, sList);
  FindNext(sList);
end;

So siehts bis jetzt aus. In dem Fall findet er nur den ersten Ordner und den folgenden. So möchte ich es aber haben:

Delphi-Quellcode:

//Ordnernamen in einem Verzeichnis ermitteln
procedure ListSubDirs(Dir: string; var sList: TStrings);
begin
  Dir:=TempDownloadDir
  ChangeCurrentDir(Dir);
  FindFirst(GetCurrentDir, faDirectory, sList);
  while {letzter Ordner nicht gefunden} do FindNext(sList);
end;

Wie könnte ich den letzten Ordner ermitteln? Halt diese Schleife zum Ende zwingen?
Und ich verstehe immer noch nicht was ich mit den Longint-Werten anstellen soll? Was sagen die aus?

[DeddyH]

Sry, aber bevor Du hier weiterfragst, solltest Du mal einen Blick in die Hilfe werfen, gewisse Grundlagen darf man schon voraussetzen. Und danach wirst Du über die DP-Suche zu FindFirst/FindNext einige Beispiele finden.

[Aurelius]

Schau dir mal diesen Beitrag aus der Codelib an, ist eigentlich alles verständlich erklärt: http://www.delphipraxis.net/internal...ight=findfirst

[LuCSteR]

Ein Blick in die Hilfe würde ich ja befürworten, wenn ich mit Delphi arbeiten könnte. Bei Lazarus gibt es keine lokale Hilfe. Und die Online-Hilfe ist leider nur eine kleine "Wiki"...

Grundlagen in Bezug auf was?

[DeddyH]

Dann solltest Du aber kenntlich machen, dass Du mit Lazarus arbeitest. Ansonsten schau mal in der DP nach z.B. FindAllFiles

[LuCSteR]

Naja habs ja im ersten Post angegeben: Sprache=Lazarus...

Also nun siehts so aus.

Delphi-Quellcode:

//Ordnernamen in einem Verzeichnis ermitteln
procedure ListSubDirs(Dir: string; var sList: TStrings);
var
  SR: TSearchRec;
  
begin
  Dir:=TempDownloadDir;
  if FindFirst(Dir, faDirectory, SR)=0 then
    sList.Add(SR.Name);
    try
      while FindNext(SR)<>0 do
        begin
          FindNext(SR);
          sList.Add(SR.Name);
        end;
    finally
      FindClose(SR);
    end;
end;

Denke das sollte so funktionieren. Der Compiler meckert aber beim finally:
Unit1.pas(287,19) Error: Incompatible type for arg no. 1: Got "TSearchRec", expected "LongWord"

Da steht aber: FindClose(Var F:TSearchRec);
Verstehe ich nicht ganz :s

---

Ich seh gerade das es FindClose 2 mal gibt. Ich seh aber nicht aus welcher Bibliothek mein FindClose ist. Weis das jmd.?

[DeddyH]

SysUtils.FindClose

[LuCSteR]

Beim kompilieren gibts keine Fehler aber bei der Nutzung :s

In der While-Schleife gibts nen Fehler bei: sList.Add(SR.Name);