ListView Dateiendungen Filtern

[Tommy1988]

Guten Tag, leider funktioniert das nicht.

Der komplette Code sieht so aus:

Delphi-Quellcode:

procedure VerzeichnisEinlesen(VerzName:string);
var NewItem : TListItem;
    Info    : TSHFileInfo;
    SR      : TSearchRec;
    ext : String;
begin
  if VerzName[length(VerzName)]<>'\' then
    VerzName:=VerzName+'\';
  with Form1 do begin
    ListView.Items.Clear;
if FindFirst(VerzName+'*.*',faAnyFile,SR)=0 then begin

      repeat
        if (length(SR.Name)>0) and (SR.Name[1]<>'.') then begin
          NewItem:=ListView.Items.Add;
          NewItem.Caption:=SR.Name;
          SHGetFileInfo(PChar(VerzName+SR.Name),
          0,Info,SizeOf(TSHFileInfo),SHGFI_SYSIconIndex
          or SHGFI_TYPENAME);
          NewItem.ImageIndex:=Info.IIcon;
          NewItem.SubItems.Add(Info.szTypeName);
        end;
      until FindNext(SR)<>0;
      FindClose(SR);
    end;
    ListView.CustomSort(@NamenSortProc, 0);
  end;
end;