//建立一个公用函数单元
unit FuncUnit;interfaceuses
Windows;function Iif(mBool: Boolean; A, B: Variant): Variantimplementationfunction Iif(mBool: Boolean; A, B: Variant): Variant;
begin
if mBool then
Result := A
else Result := B;
end;end.//其他单元uses FuncUnit即可使用其函数如:Iif()
unit FuncUnit;interfaceuses
Windows;function Iif(mBool: Boolean; A, B: Variant): Variantimplementationfunction Iif(mBool: Boolean; A, B: Variant): Variant;
begin
if mBool then
Result := A
else Result := B;
end;end.//其他单元uses FuncUnit即可使用其函数如:Iif()
调用的时候用form1.aaaaaa;别忘了要uses form1对应的单元文件
比如form1.button.click,在本单元内用时是button.click,在form2中调用时是form1.button.click,另外uses unit1.
怎么调用出错了?