我在以下函数上收到编译器错误Incompatible types: 'Byte' and 'String' :
IntToStr(DiskSize('F:\'))
我想将磁盘大小转换为字符串。如何解决这个问题呢?
我在以下函数上收到编译器错误Incompatible types: 'Byte' and 'String' :
IntToStr(DiskSize('F:\'))
我想将磁盘大小转换为字符串。如何解决这个问题呢?
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 的范围内,等等。