if(fontBefore=FontCur) then //这边出错为什么不能比较呢要用什么函数吗(50分)

wyn · 2006-02-18

var fontBefore,FontCur:variant
if(fontBefore=FontCur) then //这边出错为什么不能比较呢要用什么函数吗
begin

end;

完颜康 · 2006-02-18

因为variant叫做变体

zqw0117 · 2006-02-18

[

]
procedure TForm1.FormCreate(Sender: TObject);
var
a, b: Variant;
begin
if a = b then
Beep;
end;
我这样写怎么编译通过了？好像没楼主说的问题啊。

goddy · 2006-02-21

运行会出错

xzsnj · 2006-02-21

我是在delphi5下面操作也是报错！！看来是不让比较，可能本身就是变体，具有不确定，没有办法进行比较大小！！

royal1442 · 2006-02-21

不是什么类型都能相互比较的吧？

smithcouple · 2006-02-21

D7可以这样

wyn · 2006-05-09

多人接受答案了。

if(fontBefore=FontCur) then //这边出错 为什么不能比较呢 要用什么函数吗(50分)