Class TmPasParser (unit mwPasParser)

Inherits from

TObject

Constructors


constructor Create;

Destroy


Functions

destructor Destroy;

GetData

function GetMethodImpLine(ClassName: String; MethodName: String): LongInt;

NextObjectLine

function GetSubString(StartPos, EndPos: LongInt): String;

Create

procedure NextClassLine;

ToLineStart

procedure NextID(ID: TTokenKind);

NextToken

procedure NextNonComment;


procedure NextNonJunk;

NextNonComCRLF

procedure NextNonSpace;

NextNonJunk

procedure NextObjectLine;

NextClassLine

procedure NextToken;

IdentKind

procedure ToLineStart;

NextNonSpace

function GetIsJunk: Boolean;

NextID

procedure HandleComments;

SetRunPos

function IdentKind: TTokenKind;

HandleComments

procedure SetOrigin(value: PChar);

GetSubString

procedure SetRunPos(NewPos: LongInt);

SetOrigin

Properties

property Comments : TCommentState


property EndCount : Integer


property ImplementationsPos : LongInt


property IsJunk : Boolean


property LastComment : LongInt


property LastIdentPos : LongInt


property LastSemiColon : LongInt


property Origin : PChar


property RoundCount : ShortInt


property RunPos : LongInt


property SquareCount : ShortInt


property Token : TmPasToken


property Visibility : TTokenKind


Events

Variables

FComment : TCommentState;


FEndCount : Integer;


FImplementationsPos : LongInt;


FLastComment : LongInt;


FLastIdentPos : LongInt;


FLastSemiColon : LongInt;


fOrigin : PChar;


FRoundCount : ShortInt;


FSquareCount : ShortInt;


FToken : TmPasToken;


FVisibility : TTokenKind;


Run : LongInt;



Constructors


constructor Create;

Destroy


Functions


destructor Destroy;

GetData


function GetMethodImpLine(ClassName: String; MethodName: String): LongInt;

NextObjectLine


function GetSubString(StartPos, EndPos: LongInt): String;

Create


procedure NextClassLine;

ToLineStart


procedure NextID(ID: TTokenKind);

NextToken


procedure NextNonComment;


procedure NextNonJunk;

NextNonComCRLF


procedure NextNonSpace;

NextNonJunk


procedure NextObjectLine;

NextClassLine


procedure NextToken;

IdentKind


procedure ToLineStart;

NextNonSpace


function GetIsJunk: Boolean;

NextID


procedure HandleComments;

SetRunPos


function IdentKind: TTokenKind;

HandleComments


procedure SetOrigin(value: PChar);

GetSubString


procedure SetRunPos(NewPos: LongInt);

SetOrigin


Properties


property Comments : TCommentState


property EndCount : Integer


property ImplementationsPos : LongInt


property IsJunk : Boolean


property LastComment : LongInt


property LastIdentPos : LongInt


property LastSemiColon : LongInt


property Origin : PChar


property RoundCount : ShortInt


property RunPos : LongInt


property SquareCount : ShortInt


property Token : TmPasToken


property Visibility : TTokenKind


Events


Variables


FComment : TCommentState;


FEndCount : Integer;


FImplementationsPos : LongInt;


FLastComment : LongInt;


FLastIdentPos : LongInt;


FLastSemiColon : LongInt;


fOrigin : PChar;


FRoundCount : ShortInt;


FSquareCount : ShortInt;


FToken : TmPasToken;


FVisibility : TTokenKind;


Run : LongInt;