AType

type AType = class

protected

  procedure RaiseTypeError(); virtual;

  procedure Init; virtual;

  procedure AssignTo(); virtual;

  function GetAsString; virtual;

  procedure SetAsString(); virtual;

  function GetAsUTF8String; virtual;

  procedure SetAsUTF8String(); virtual;

  function GetAsUnicodeString; virtual;

  procedure SetAsUnicodeString(); virtual;

public

  constructor Create;

  class function CreateInstance; virtual;

  function Duplicate; virtual;

  procedure Assign(); virtual; overload;

  procedure Clear; virtual;

  function IsEmpty; virtual;

  function IsEqual(); virtual;

  function Compare(); virtual;

  function HashValue; virtual;

  property AsString: string; [rw]

  property AsUTF8String: RawByteString; [rw]

  property AsUnicodeString: UnicodeString; [rw]

end;

AType

TObject