请爱好帮忙的高手帮忙看看,小问题。(100分)

  • 主题发起人 主题发起人 真正的李勇
  • 开始时间 开始时间

真正的李勇

Unregistered / Unconfirmed
GUEST, unregistred user!
我建立了一个ASP组件,然后建立了一个Pro_Val的属性(可以读写),然后在project_TLB中我看到了Pro_Val属性:
function Get_Pro_Val: WideString; safecall;
procedure Set_Pro_Val(const Value: WideString); safecall;
property Pro_Val: WideString read Get_Pro_Val write Set_Pro_Val;
在具体实现单元test中,我看到了两个空的函数:
function TEngine.Get_Pro_Val: WideString;
begin

end;

procedure TEngine.Set_Pro_Val(const Value: WideString);
begin

end;

请问我怎么来写这两个函数,从而正常使用Pro_Val属性?
我在函数中写Pro_Val系统说不认?
 
在定义一个Fpro_Val的私有变量,你用的是属性怎能直接赋值
function TEngine.Get_Pro_Val: WideString;
begin
result:=Fpro_Val;
end;

procedure TEngine.Set_Pro_Val(const Value: WideString);
begin
Fpro_Val:=value;
end;
 
请问楼上老兄:
在哪个单元的哪里建立FPro_Val变量?
是在project_Tlb里,还是在具体实现单元Engine里?
在protected 里吗?
 
后退
顶部