H
hongsen
Unregistered / Unconfirmed
GUEST, unregistred user!
请大家帮我编写一个能够找出单元文件中的类，类中的数据成员列表，过程成员列表
大致数据结构如下：//对一个DELPHI单元文件进行扫描，实际上只要分析从‘TYPE’到‘VAR（全局变量）’
之间的源代码。
myclasslist=class //为包含myclass的列表
end;
myclass=class()
name:string;
superclass:string;
datamemberlist;//一种列表
procedurelist;
end;
datamember=class
name:string;
type:string;
visibility:string
取值如下：'private' , 'protected' , 'public' 'published'
end;
proceduremember=class
name:string;
returntype:string;
visibility:string
取值如下：'private' , 'protected' , 'public' 'published'
isfunction:boolean;
isabstract:boolean;
isabstract:boolean;
isoverride;boolean
params://一种列表
end;
param=class
name:string;
type:string;
isvar:boolean;
end;
大致数据结构如下：//对一个DELPHI单元文件进行扫描，实际上只要分析从‘TYPE’到‘VAR（全局变量）’
之间的源代码。
myclasslist=class //为包含myclass的列表
end;
myclass=class()
name:string;
superclass:string;
datamemberlist;//一种列表
procedurelist;
end;
datamember=class
name:string;
type:string;
visibility:string
取值如下：'private' , 'protected' , 'public' 'published'
end;
proceduremember=class
name:string;
returntype:string;
visibility:string
取值如下：'private' , 'protected' , 'public' 'published'
isfunction:boolean;
isabstract:boolean;
isabstract:boolean;
isoverride;boolean
params://一种列表
end;
param=class
name:string;
type:string;
isvar:boolean;
end;