tpascalparser

type tpascalparser = class(tparser)

public

  constructor create(); override;

  destructor destroy; override;

  procedure clear; override;

  procedure initidents; override;

  function getvaluestring(); override;

  function skipcomment; override;

  procedure parsecompilerswitch;

  function getpascalstring();

  function concatpascalstring();

  function concatpascalname();

  function getclassident;

  function checkclassident();

  function getpropertyident;

  function checkpropertyident();

end;

tpascalparser

tparser

tnullinterfacedobject

TObject,iunknown