TvsSystem

type TvsSystem = class(TComponent)

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure CreateEmpty();

  procedure CreateFromFile();

  procedure CreateFromStream();

  procedure Clear;

  function CreateStream();

  function StreamExists();

  function DirectoryExists();

  function FileDate();

  procedure CreateDir();

  procedure EraseFile();

  function FindFirst();

  function FindNext();

  procedure FindClose();

published

  property FileName: string; [r]

  property ReadOnly: Boolean; [rw]

  property Compressed: Boolean; [rw]

  property CompressionLevel: TvsCompressionLevel; [rw]

end;

TvsSystem

TObject