TCustomUnicodeCodec

type TCustomUnicodeCodec = class

protected

  procedure ResetReadAhead;

  procedure SetDecodeReplaceChar();

  procedure SetErrorAction();

  procedure SetReadLFOption(); virtual;

  procedure SetWriteLFOption(); virtual;

  procedure SetOnRead();

  function ReadBuffer();

  procedure WriteBuffer();

  procedure InternalReadUCS4Char(); virtual; abstract;

  procedure InternalWriteUCS4Char(); virtual; abstract;

public

  constructor Create; virtual;

  constructor CreateEx();

  class function GetAliasCount; virtual;

  class function GetAlias(); virtual;

  class function IsAlias();

  class function IsAliasA();

  class function IsAliasU();

  procedure Decode(); virtual; abstract;

  function Encode(); virtual; abstract;

  procedure DecodeStr();

  function EncodeStr();

  procedure ReadUCS4Char();

  procedure WriteUCS4Char(); virtual;

  property ErrorAction: TCodecErrorAction; [rw]

  property DecodeReplaceChar: WideChar; [rw]

  property ReadLFOption: TCodecReadLFOption; [rw]

  property WriteLFOption: TCodecWriteLFOption; [rw]

  property OnRead: TCodecReadEvent; [rw]

  property OnWrite: TCodecWriteEvent; [rw]

end;

TCustomUnicodeCodec

TObject