开发控件碰到问题了,特急!!(100分)

  • 主题发起人 主题发起人 sherman
  • 开始时间 开始时间
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;
 
常见错误,一般是DFM文件内容有问题。
 
sorry, 没有DFM文件,是一个非可视控件,问题已经找到,是那句
if fa1 = '' then fa1 := '*';
造成的,去掉后就没有问题了,不知道为什么
 
我把这段代码运行了一下,没问题啊(只是有两个拼写错误)。
 
我遇到过,
与DLL接口有问题。
 
多人接受答案了。
 
后退
顶部