TAbArchiveItem

type TAbArchiveItem = class(TObject)

protected

  NextItem: TAbArchiveItem;

  FAction: TAbArchiveAction;

  FCompressedSize: Int64;

  FCRC32: LongInt;

  FDiskFileName: string;

  FExternalFileAttributes: LongWord;

  FFileName: string;

  FIsEncrypted: Boolean;

  FLastModFileTime: Word;

  FLastModFileDate: Word;

  FTagged: Boolean;

  FUncompressedSize: Int64;

  function GetCompressedSize; virtual;

  function GetCRC32; virtual;

  function GetDiskPath;

  function GetExternalFileAttributes; virtual;

  function GetFileName; virtual;

  function GetIsDirectory; virtual;

  function GetIsEncrypted; virtual;

  function GetLastModFileDate; virtual;

  function GetLastModFileTime; virtual;

  function GetNativeFileAttributes; virtual;

  function GetStoredPath;

  function GetUncompressedSize; virtual;

  procedure SetCompressedSize(); virtual;

  procedure SetCRC32(); virtual;

  procedure SetExternalFileAttributes(); virtual;

  procedure SetFileName(); virtual;

  procedure SetIsEncrypted(); virtual;

  procedure SetLastModFileDate(); virtual;

  procedure SetLastModFileTime(); virtual;

  procedure SetUncompressedSize(); virtual;

  function GetLastModTimeAsDateTime; virtual;

  procedure SetLastModTimeAsDateTime(); virtual;

public

  constructor Create;

  destructor Destroy; override;

  function MatchesDiskName();

  function MatchesStoredName();

  function MatchesStoredNameEx();

  property Action: TAbArchiveAction; [rw]

  property CompressedSize: Int64; [rw]

  property CRC32: LongInt; [rw]

  property DiskFileName: string; [rw]

  property DiskPath: string; [r]

  property ExternalFileAttributes: LongWord; [rw]

  property FileName: string; [rw]

  property IsDirectory: Boolean; [r]

  property IsEncrypted: Boolean; [rw]

  property LastModFileDate: Word; [rw]

  property LastModFileTime: Word; [rw]

  property NativeFileAttributes: LongInt; [r]

  property StoredPath: string; [r]

  property Tagged: Boolean; [rw]

  property UncompressedSize: Int64; [rw]

  property LastModTimeAsDateTime: TDateTime; [rw]

end;

TAbArchiveItem

TObject