S
sherman
Unregistered / Unconfirmed
GUEST, unregistred user!
封装一个驱动软件,提供一个基类给其他人使用,驱动是一个dll文件,
首先封装一个接口文件,使用没有问题,
然后,封装一个基类,定义了近10个strings类型的property,(published),
没有这些属性,其他一切正常,加上这些属性,控件安装没有问题,在后续使用
中编译通过,运行时告诉我没有这些属性,不知道delphi在干什么
错误信息: 'property does not exists' 是个EREADERROR错误
具其中一个属性的例子:
FA1 : String;
function geta1 : string;
procedure seta1(value : string);
property a1 ; string read geta1 write seta1;
function TMyComponent.geta1 : string;
begin
if fa1 = '' then fa1 := '*';
result := fa1;
end;
procedure TMyComponent.seta1(value : string);
begin
if not bInited then
fa1 := value
end;
首先封装一个接口文件,使用没有问题,
然后,封装一个基类,定义了近10个strings类型的property,(published),
没有这些属性,其他一切正常,加上这些属性,控件安装没有问题,在后续使用
中编译通过,运行时告诉我没有这些属性,不知道delphi在干什么
错误信息: 'property does not exists' 是个EREADERROR错误
具其中一个属性的例子:
FA1 : String;
function geta1 : string;
procedure seta1(value : string);
property a1 ; string read geta1 write seta1;
function TMyComponent.geta1 : string;
begin
if fa1 = '' then fa1 := '*';
result := fa1;
end;
procedure TMyComponent.seta1(value : string);
begin
if not bInited then
fa1 := value
end;