TIdFTPListItem

type TIdFTPListItem = class(TCollectionItem)

protected

  FSize: Int64;

  FData: string;

  FFileName: TIdFTPFileName;

  FLocalFileName: TIdFTPFileName;

  FSizeAvail: Boolean;

  FModifiedAvail: Boolean;

  FModifiedDate: TDateTime;

  FModifiedDateGMT: TDateTime;

  FItemType: TIdDirItemType;

  FDirError: Boolean;

  FPermissionDisplay: string;

  procedure SetFileName();

  property ModifiedDateGMT: TDateTime; [rw]

public

  constructor Create(); override;

  procedure Assign(); override;

  property Data: string; [rw]

  property Size: Int64; [rw]

  property ModifiedDate: TDateTime; [rw]

  property FileName: TIdFTPFileName; [rw]

  property LocalFileName: TIdFTPFileName; [rw]

  property ItemType: TIdDirItemType; [rw]

  property SizeAvail: Boolean; [rw]

  property ModifiedAvail: Boolean; [rw]

  property PermissionDisplay: string; [rw]

end;

TIdFTPListItem

TObject