0

我在以下函数上收到编译器错误Incompatible types: 'Byte' and 'String' :

IntToStr(DiskSize('F:\'))

我想将磁盘大小转换为字符串。如何解决这个问题呢?

4

1 回答 1

4

for 的参数DiskSize是一个字节(因此,不是 a string),其中 0 是当前驱动器,1=A, 2=B 等。所以对于驱动器 F 你想要DiskSize(6),或者更一般地说,执行此操作的函数是:

function DiskSizeL(DriveLetter: Char): Int64;
begin
  DriveLetter := UpCase(DriveLetter);
  Result := DiskSize(1 + Ord(DriveLetter) - Ord('A'));
end;

你会想要检查字符是否在 A 到 Z 的范围内,等等。

于 2013-05-16T09:57:59.077 回答