NexusDB

[Preliminary!!!]NexusDB V3 TnxSimpleOutputCache class.

type
  TnxSimpleOutputCacheEvent = procedure(aSender: TObject; const aText: string) of object;

  TnxSimpleOutputCache = class(TnxComponent)
  protected
    socOnWrite : TnxSimpleOutputCacheEvent;
    socText    : string;
  public
    procedure Write(const aText: Variant);
    procedure WriteLn(const aText: Variant);

    procedure Clear;
    procedure SaveToFile(FileName: string);
    procedure Flush;

    property OnFlush: TnxSimpleOutputCacheEvent
      read socOnWrite
      write socOnWrite;

    property Text: string
      read socText
      write socText;
  end;