TUTF8Parser

type TUTF8Parser = class(TObject)

public

  constructor Create();

  destructor Destroy; override;

  procedure CheckToken();

  procedure CheckTokenSymbol();

  procedure Error();

  procedure ErrorFmt();

  procedure ErrorStr();

  procedure HexToBinary();

  function NextToken;

  function SourcePos;

  function TokenComponentIdent;

  function TokenFloat;

  function TokenInt;

  function TokenString;

  function TokenSymbolIs();

  property FloatType: Char; [r]

  property SourceLine: Integer; [r]

  property Token: Char; [r]

end;

TUTF8Parser

TObject