Class TUsesParser (unit Useparse) |
Inherits from
TObject
覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧
constructor create;
- 覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧
destructor destroy;
覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧
function LocateUsesStatement:boolean;
ReadUsesStatement} {覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧
procedure ReadUsesStatement(UnitList:TstringList);
of SetFileIn} {覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧
procedure WriteError(const Errmess:string);
of LocateUsesStatement} {覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧
procedure SetFileIn(const FileName:TFileName);
覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧
property CurrentLineNo : integer
property FileName : TFileName
FCurrentLine : string;
FCurrentLineNo : integer;
FCurrentToken : string;
FFileIn : textfile;
FFileName : TFileName;
FParseState : eTParseState;
constructor create;
覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧
destructor destroy;
覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧
function LocateUsesStatement:boolean;
ReadUsesStatement} {覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧
procedure ReadUsesStatement(UnitList:TstringList);
of SetFileIn} {覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧
procedure WriteError(const Errmess:string);
of LocateUsesStatement} {覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧
procedure SetFileIn(const FileName:TFileName);
覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧覧
property CurrentLineNo : integer
property FileName : TFileName
FCurrentLine : string;
FCurrentLineNo : integer;
FCurrentToken : string;
FFileIn : textfile;
FFileName : TFileName;
FParseState : eTParseState;