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
{--------------------------------
Constructor Create(M: TMemoryStream; AOnlyObj, MAST: TStringList);
- --------------------------------
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;
--------------------------------
AST : TStringList;
ClassesRead : TStringList;
ClassesTypes : TStringList;
OnlyObj : TStringList;
ProcessFuns : Boolean;
ProcessObj : Boolean;
ProcNames : TStringList;
UnitName : String;
Constructor Create(M: TMemoryStream; AOnlyObj, MAST: TStringList);
--------------------------------
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;
--------------------------------
AST : TStringList;
ClassesRead : TStringList;
ClassesTypes : TStringList;
OnlyObj : TStringList;
ProcessFuns : Boolean;
ProcessObj : Boolean;
ProcNames : TStringList;
UnitName : String;