System.Zip Countfiles

[zeras]

Ich habe das jetzt so zusammen mit ChatGPT gelöst und denke, dass dies auch in den Quellen bei Emba geändert werden sollte.
Wenn ich nach Dateien frage, dann möchte ich keine Pfade mitgezählt haben.

Delphi-Quellcode:

function GetCountFilesOfZipfilesNew(Srcfname: string): integer;
const
  IgnoredAttributes = faHidden + faSysFile + faDirectory;

var
  Zip: TZipFile;
  I: Integer;
  s: String;

begin
  Result := 0;

  Zip := TZipFile.Create;
  try
    try
      Zip.Open(SrcfName, zmRead);
      for I := 0 to Zip.FileCount - 1 do
      begin
        if (Zip.FileInfo[I].ExternalAttributes and IgnoredAttributes) = 0 then
          Inc(Result);
      end;
    except
      on E: EZipException do
        ShowMessage('Zip-Fehler: ' + E.Message);
      on E: EStreamError do
        ShowMessage('Stream-Fehler: ' + E.Message);
      on E: Exception do
        ShowMessage('Allgemeiner Fehler: ' + E.Message);
    end;
  finally
    Zip.Free;
  end;
end;