摘要：
一个公共单元unit ITest; interface type IT = interface function GetString:string; procedure ShowMsg(p:PChar); procedure Msg; end; implementation end.类单元，这个写在DLL里面的unit UTest; interface uses SysUtils, Windows, ITest; type TTest = class(TInterfacedObject,IT) private i:Int... 阅读全文
posted @ 2012-08-30 21:32
leon_kin
阅读(346)
评论(0)
推荐(0)
浙公网安备 33010602011771号