TFileSystem

type TFileSystem = class

public

  constructor CreateEmpty();

  constructor CreateOpen();

  destructor Destroy;

  function FindNextLink();

  function LoadData();

  function SaveData();

  procedure EraseData();

  function GetDir();

  procedure CreateDir();

  procedure ForceDir();

  function CreateFile();

  function OpenFileRead();

  function OpenFileWrite();

  procedure CloseFile();

  procedure EraseFile();

  function FileExists();

  function DirectoryExists();

  function Write();

  function Read();

  procedure SetReadOnly();

  function FindFirst();

  function FindNext();

  procedure FindClose();

  property Root: TDir; [r]

  property Compressed: longbool; [r]

  property IsReadOnly: longbool; [r]

end;

TFileSystem

TObject