TFTPList

type TFTPList = class(TObject)

protected

  FList: TList;

  FLines: TStringList;

  FMasks: TStringList;

  FUnparsedLines: TStringList;

  Monthnames: String;

  BlockSize: String;

  DirFlagValue: String;

  FileName: String;

  VMSFileName: String;

  Day: String;

  Month: String;

  ThreeMonth: String;

  YearTime: String;

  Year: String;

  Hours: String;

  HoursModif: String;

  Minutes: String;

  Seconds: String;

  Size: String;

  Permissions: String;

  DirFlag: String;

  function GetListItem(); virtual;

  function ParseEPLF(); virtual;

  procedure ClearStore; virtual;

  function ParseByMask(); virtual;

  function CheckValues; virtual;

  procedure FillRecord(); virtual;

public

  constructor Create;

  destructor Destroy; override;

  procedure Clear; virtual;

  function Count; virtual;

  procedure Assign(); virtual;

  procedure ParseLines; virtual;

  property List: TList; [r]

  property Items: TFTPListRec; default; [r]

  property Lines: TStringList; [r]

  property Masks: TStringList; [r]

  property UnparsedLines: TStringList; [r]

end;

TFTPList

TObject