TCustomFiler

type TCustomFiler = class

protected

  FAtRecord: Boolean;

  function GetIdentifier; virtual; abstract;

  function GetDescription; virtual;

  property Stream: TStream; [r]

public

  constructor Create; virtual;

  destructor Destroy; virtual;

  function SupportsFeature(); virtual; abstract;

  function OpenStream(); virtual;

  function CloseStream; virtual;

  function ReadHeader; virtual;

  function ReadRecord; virtual;

  function GetAtRecord; virtual;

  function GetFieldValue(); virtual;

  function GetFieldCount; virtual;

  function GetOptionCount;

  function GetOptionName();

  function GetOptionAsString(); virtual;

  function GetOptionAsInteger(); virtual;

  function GetOptionAsBoolean();

  function HasOption();

  procedure SetOptionAsString(); virtual;

  property Description: String; [r]

  property AtRecord: Boolean; [r]

  property FieldCount: Integer; [r]

  property OptionCount: Integer; [r]

  property Identifier: Integer; [r]

end;

TCustomFiler

TObject