不兼容的类型：'Byte'和'String'

Question

我在以下函数中遇到编译器错误不兼容的类型：'Byte'和'String'：

IntToStr(DiskSize('F:\'))

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

Answer 1

DiskSize的参数是一个字节（因此，不是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;

您可能希望检查char是否在A到Z范围内等等。