Einzelnen Beitrag anzeigen

Kieni

Registriert seit: 16. Jul 2010
17 Beiträge
 
Delphi 2 Desktop
 
#1

[.] und [..] NICHT auflisten.

  Alt 6. Dez 2010, 14:31
Hallo,

ich bins mal wieder

Habe mal eine Frage zu folgendem Code:
Code:
begin
  s := FindFirst('R:\*.*', faDirectory, f);
  try
    while s = 0 do
    begin
       if f.Attr and faDirectory = faDirectory then
         ListBox1.Items.Add(f.Name);
         s := FindNext(f);
    end;
  finally
    FindClose(f);
  end;
end;
Problem: Beim Auslesen des Verzeichnisses werden '.' und '..' mit aufgelistet. Die Frage, die ich mir jetzt stelle:

if f.name = '.' then .... mach irgendwas --> funktioniert
if not f.name = '.' then ... mach etwas ----> funktioniert NICHT (Fehlermeldung: Operator ist auf diesen Operandentyp nicht anwendbar)

WARUM ????

Gruß Kieni
  Mit Zitat antworten Zitat