Frage zu FindFirst/FindNext

[MrMyagi]

Moin,
ich durchsuche mithilfe
von FindFirst, FindNext
einen Ordner nach anderen Ordnern.
Es klappt auch alles bestens, jedoch zeigt er immer,
wenn ich die Ordner in einem Memo anzeigen will an Stelle
1 und 2 einen (.) und einen (..).
Wie kann ich dies wegbekommen?


mfG, Nico

[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.

Stefan

[MrMyagi]

Danke für die schnelle Antwort,
aber wie bekomme ich die Ergebnisse jetzt
in das Memo? irgendwie klappt das mit
MemoUnits.Lines.Add(1Dinfo.name);
nicht.

Edit: komischerweise gehts jetzt, obwohl ich nix geändert habe

Danke für den Quelltext, funktioniert super

mfG, Nico

[MacGuyver]

Dann lass mal etwas Code sehen. Das sollte so klappen. Vor lDinfo ist das übrigens ein kleines "L" und keine Eins. Lokale Variablen fangen bei mir immer mit "l" an.

[TeronG]

Mache es einfach genau so ins Memo wie "zuvor" nur nicht bei Ordnern, die mit '.' anfangen.

{BTW:
. = der Ordner in dem du dich befindest
.. = der Ordner über dem aktuellen Ordner.
}

[MrMyagi]

upps

[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]