source: branches/textos/UTextBuffer.pas

unit UTextBuffer;

{$mode delphi}

interface

uses
  Classes, SysUtils, SyncObjs;

type
  { TTextBuffer }

  TTextBuffer = class
    Buffer: string;
    Lock: TCriticalSection;
    procedure Write(Text: string);
    function Read: string;
    function Size: Integer;
    constructor Create;
    destructor Destroy; override;
  end;


implementation

{ TTextBuffer }

procedure TTextBuffer.Write(Text: string);
begin
  Lock.Acquire;
  try
    Buffer := Buffer + Text;
  finally
    Lock.Release;
  end;
end;

function TTextBuffer.Read: string;
begin
  Lock.Acquire;
  try
    Result := Buffer;
    Buffer := '';
  finally
    Lock.Release;
  end;
end;

function TTextBuffer.Size: Integer;
begin
  Lock.Acquire;
  try
    Result := Length(Buffer);
  finally
    Lock.Release;
  end;
end;

constructor TTextBuffer.Create;
begin
  Lock := TCriticalSection.Create;
end;

destructor TTextBuffer.Destroy;
begin
  FreeAndNil(Lock);
  inherited;
end;


end.