TIdDOSAttributes

type TIdDOSAttributes = class(TPersistent)

protected

  FFileAttributes: UInt32;

  function GetRead_Only;

  procedure SetRead_Only();

  function GetHidden;

  procedure SetHidden();

  function GetSystem;

  procedure SetSystem();

  function GetArchive;

  procedure SetArchive();

  function GetDirectory;

  procedure SetDirectory();

  function GetNormal;

  procedure SetNormal();

public

  procedure Assign(); override;

  function GetAsString; virtual;

  function AddAttribute();

published

  property FileAttributes: UInt32; [rw]

  property AsString: string; [r]

  property Read_Only: Boolean; [rw]

  property Archive: Boolean; [rw]

  property System: Boolean; [rw]

  property Directory: Boolean; [rw]

  property Hidden: Boolean; [rw]

  property Normal: Boolean; [rw]

end;

TIdDOSAttributes

TObject