Frage zu FindFirst/FindNext

[wido]

Zitat von MacGuyver:

Delphi-Quellcode:

var
  lEc    : Integer;
  lDinfo : TSearchRec;


lEc:=FindFirst('*.*',faDirectory,lDinfo);
while lEc = 0 do
begin
  if lDinfo.Name[1] <> '.' then
  begin

    //Und hier der gewünschte Kram...

  end;
  lEc:=FindNext(lDinfo);
end;
FindClose(lDinfo);

Einfach die erste Stelle des Namens abfragen.

Das resultiert darin, daß Dir ein Ordner wie z.B. .pulseaudio nicht angezeigt wird. Diese Ordner- und Dateinamen mit vorgestelltem Punkt sind bei Linux/Unix Portierung sehr beliebt und dienen meist dazu die Settings zu speichern.

Entsprechend wäre die bessere Lösung:

Delphi-Quellcode:

[pre]var
  lEc    : Integer;
  lDinfo : TSearchRec;


lEc:=FindFirst('*.*',faDirectory,lDinfo);
while lEc = 0 do
begin
  if (lDinfo.Name <> '.') and (lDinfo.Name <> '..') then
  begin

    //Und hier der gewünschte Kram...

  end;
  lEc:=FindNext(lDinfo);
end;
FindClose(lDinfo);
[/pre]