D
delphiboy
Unregistered / Unconfirmed
GUEST, unregistred user!
Iclssrv = interface(IDataBroker)
['{C218BBA1-F625-11D3-97EC-52544C29A70F}']
function Get_Pkoprec: IProvider;
safecall;
function Tclssrv.Get_Pkoprec: IProvider;
begin
Result := Pkoprec.Provider;
end;
这是别人原来用DELPHI 5写的三层结构程序里面定义的几个。
我先在用用DELPHI 6改写程序,我用DELPHI 6建立的和它一样的属性。
function Get_pkoprec: IProvider;
safecall;
procedure Set_pkoprec(const Value: IProvider);
safecall;
property pkoprec: IProvider read Get_pkoprec write Set_pkoprec;
上面定义的函数的result最后给谁呢?我还是不明白。请教大家。
['{C218BBA1-F625-11D3-97EC-52544C29A70F}']
function Get_Pkoprec: IProvider;
safecall;
function Tclssrv.Get_Pkoprec: IProvider;
begin
Result := Pkoprec.Provider;
end;
这是别人原来用DELPHI 5写的三层结构程序里面定义的几个。
我先在用用DELPHI 6改写程序,我用DELPHI 6建立的和它一样的属性。
function Get_pkoprec: IProvider;
safecall;
procedure Set_pkoprec(const Value: IProvider);
safecall;
property pkoprec: IProvider read Get_pkoprec write Set_pkoprec;
上面定义的函数的result最后给谁呢?我还是不明白。请教大家。