delphi - 不兼容的类型：“字节”和“字符串”

Question

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

IntToStr(DiskSize('F:\'))

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

Answer 1

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 的范围内，等等。