非常郁闷非常郁闷，懂的朋友来看看，不懂的朋友来up,都有分 ( 积分: 200 )

这是正常的，引入的新的单元！
我想这点大小并不影响你做任何事情！
有些事情无关紧要的话，没必要去追究得太彻底！
不过你一丝不茍的精神还是值得学习的！！

开眼见了！，学习学习。。。。。。。。。

to hetsum: 我要求程序尽可能的小。

我完全赞同younghat的，Variant或者OleVariant是不定类型，
编译器发现你使用了variant或者OleVariant类型就会自动把相应的单元编译进去

最好不要去用Variant或者OleVariant，它 的速度非常的慢，不信你可以去试试它的速度。
procedure TForm1.Button1Click(Sender: TObject);
var
time1, time2: TDateTime;
n1, n2: Variant;
begin
time1 := Now;
n1 := 0;
n2 := 0;
ProgressBar1.Position := 0;
while n1 < 5000000 do
begin
n2 := n2 + n1;
Inc (n1);
if (n1 mod 50000) = 0 then
begin
ProgressBar1.Position := n1 div 50000;
Application.ProcessMessages;
end;
end;
// we must use the result
Total := n2;
time2 := Now;
Label1.Caption := FormatDateTime (
'n:ss', Time2-Time1) + ' seconds';
end;
上例可见两者的速度差异非常之大，以至于不用精确记时也能看到这种差异

Variant类型主要用于OLE 编

顶一下

DieGhost,
在Delphi6的Office2000、Word2000、Excel2000、Outlook2000等单元中有所有关于Office的接口类型定义。
但是很不幸的是，引用这些单元中的任何一个都将使编译出来的程序出奇的肿大，还不如用Variant呢。所以我才会说目前没有发现合适的解决办法。

同意younghat的观点，我本人也曾经发现过这个问题