摘要： 存在下面的一个类//******定义部分*********type TTest = class(TObject) protected tNum:Integer; tStr:string; public constructor Create(Num:Integer;Str:string); destructor Destroy; procedure Free; property Num:Integer read tNum; property Str:string read tStr; function GetRnd:string; end;//*******实现部分**********{ T 阅读全文