delphi как убрать из списка файлов '.' и '..'?

[MetR]

как избавиться от этого?

procedure tform1.fileList(lv:tlistview; path1:string);
var
sr1:TsearchRec;
atr:integer;
li:Tlistitem;
fi:TSHFileInfo;
res:HRESULT;
begin
lv.Clear;
atr:=faReadOnly+faDirectory;
res := SHGetFileInfo(nil, 0, fi, SizeOf(fi), SHGFI_SYSICONINDEX);
imglist.Handle := res;

if (FindFirst(path1 + '*', atr, sr1) = 0) then
   repeat
     li := lv.Items.Add();
     li.Caption := sr1.Name;
     ShGetFileInfo(PChar(path1+li.caption), 0, fi, SizeOf(fi), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
     li.ImageIndex := fi.iIcon;
   until (FindNext(sr1) <> 0);
FindClose(sr1);
end;

[Serge_Bliznykov]

добавлением добавьте проверку на эти имена.
примерно так:

if (FindFirst(path1 + '*', atr, sr1) = 0) then
   repeat
     if (sr1.Name<>'.') and (sr1.Name<>'..') then begin
       li := lv.Items.Add();
       li.Caption := sr1.Name;
       ShGetFileInfo(PChar(path1+li.caption), 0, fi, SizeOf(fi), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
       li.ImageIndex := fi.iIcon;
     end;
   until (FindNext(sr1) <> 0);
FindClose(sr1);

[MetR]

не, так я пробовал, не получилось

[MetR]

это не просто файлы видимо, при выборе '..' выполняется переход в предыдущий каталог, а при выборе '.' вылетает ошибка

[MetR]

if lv.Items[0].Caption = '.' then
  begin
  lv.Items[0].Delete;
  lv.Items[0].Delete;
  end;

попробовал выполнить такую проверку в конце процедуры, эти строчки удаляются, но прога ругается при вызове процедуры вот на эту строчку

if lv.Items[0].Caption = '.' then

[JTG]

if (FindFirst(path1 + '*', atr, sr1) = 0) then
   repeat
   if ((sr1.Name='.') or (sr1.Name='..')) and ((sr1.Attr and faDirectory) = faDirectory) then continue;
...

Должно же работать, что именно не получилось?

это не просто файлы видимо

Конечно, точка обозначает текущий каталог, две точки - родительский

[MetR]

Сообщение от JTG

if (FindFirst(path1 + '*', atr, sr1) = 0) then
   repeat
   if ((sr1.Name='.') or (sr1.Name='..')) and ((sr1.Attr and faDirectory) = faDirectory) then continue;
...

Должно же работать, что именно не получилось?


Конечно, точка обозначает текущий каталог, две точки - родительский

спасибо, так все нормально работает