TAbFATTable

type TAbFATTable = class(TObject)

protected

  fFATArray: array of Integer;

  fAllocSize: Integer;

  procedure WriteToStream();

public

  constructor Create();

  destructor Destroy; override;

  function IsEndOfFile();

  function IsUnUsed();

  function GetNextUnusedBlock;

  procedure GetNewChain();

  procedure GetExistingChain();

  procedure ClearExistingChain();

  procedure GetRootDirChain();

  procedure GetFATChain();

  procedure GetNewRootDirChain();

  procedure GetNewFATChain();

  procedure ClearRootDirChain;

  procedure ClearFATChain;

end;

TAbFATTable

TObject