Class TUnitAn (unit getunit)

Inherits from

THalCompiler

--------------------------------} { EXTERNAL OBJECT TYPES IMPORT You can use function ProcessUnit to import Delphi object types in HAL or add object types manually After importing add result unit to your project procedure processunit(const inname,outname,objlist:string;ImProcs:Boolean); inname - full path to input unit outname - full path to output unit objlist - list of object names separated by coma (only these objects will be processed) (if objlist='' then all objects will be processed ImProcs - true import procedures and functions false no import of procedures and functions Unfortunately you have to modify output file in some cases (unit will not be compiled by Delphi without corrections) Please read modify.txt for details {--------------------------------

Constructors


Constructor Create(M: TMemoryStream; AOnlyObj, MAST: TStringList);

--------------------------------


Functions

Procedure classanalyze(Const cname: String);

--------------------------------

Procedure compile;

--------------------------------

Destructor Destroy;

--------------------------------

Procedure functionanalyze(Const cname: String; r: boolean);

--------------------------------

Function getpropinterf: String;

--------------------------------

Function getpropparamlist: boolean;

--------------------------------

Procedure getvariables(Const pname: String);

r=true if function

--------------------------------


Procedure proceedvar(Const pname, vname, vtype: String);

--------------------------------

Procedure propanalyze(Const pname: String);

--------------------------------

Procedure unitnameanalyze;

--------------------------------

Properties

Events

Variables

AST : TStringList;


ClassesRead : TStringList;


ClassesTypes : TStringList;


OnlyObj : TStringList;


ProcessFuns : Boolean;


ProcessObj : Boolean;


ProcNames : TStringList;


UnitName : String;



Constructors


Constructor Create(M: TMemoryStream; AOnlyObj, MAST: TStringList);

--------------------------------


Functions


Procedure classanalyze(Const cname: String);

--------------------------------


Procedure compile;

--------------------------------


Destructor Destroy;

--------------------------------


Procedure functionanalyze(Const cname: String; r: boolean);

--------------------------------


Function getpropinterf: String;

--------------------------------


Function getpropparamlist: boolean;

--------------------------------


Procedure getvariables(Const pname: String);

r=true if function

--------------------------------


Procedure proceedvar(Const pname, vname, vtype: String);

--------------------------------


Procedure propanalyze(Const pname: String);

--------------------------------


Procedure unitnameanalyze;

--------------------------------


Properties


Events


Variables


AST : TStringList;


ClassesRead : TStringList;


ClassesTypes : TStringList;


OnlyObj : TStringList;


ProcessFuns : Boolean;


ProcessObj : Boolean;


ProcNames : TStringList;


UnitName : String;