为什么在delphi不能运行，而在bcb中可以；

Question

在delphi中的代码如下：
var
   vm:TmemoryStatus;／／这是一个取系统得内存的API函数;
begin
   vm.dwLength :=sizeof(TMemorystatus);
   GlobalMemorystatus(vm);
   Label1.Caption :=floatToStr(vm.dwTotalPhys /1024)+'KB';／／问题在于这句
end;
在ＢＣＢ中代码如下：
  TMemoryStatus vm;
  vm.dwLength=sizeof(vm);
  GlobalMemoryStatus(&vm);
  Label1->Caption=IntToStr(vm.dwTotalPhys/1024)+"KB";//问题在于这句
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
按道理vm.dwTotalPhys/1024应是整数，但在但在delphi中用IntToStr就是不行，
上面的程序分别在bcb5.0和delphi6.0中调试．

Answer 1

Label1.Caption :=IntToStr(Round(vm.dwTotalPhys /1024))+'KB';这是delphi的毛病！！

Answer 2

要不你就得这样写：
Label1.Caption :=intToStr(vm.dwTotalPhys div 1024)+'KB';

Answer 3

delphi中只要遇到除法运算，结果都认为是浮点数类型，就算是 100 / 1 ，都是浮点数类型，所以要用floattostr函数.