Есть нестандартная ситуация (а мож и стандартная)

← →
.::D.e.M.o.N.i.X::. © (2003-03-19 09:44) [0]

В Delphi для получения свободного места мона использовать DiskFree, но параметр - Byte(0-текущий,1-A,2-B и т.д.). Но у меня имя диска возвращается как Char(A,B,C,D и т.д). Как мона перевести из Char в Byte, чтобы 1 соответствовала буква A,2-B,3-C и т.д. Смотрел исходник DiskFree так там из перевода Byte в Char использовалось что-то типа
DiskByte := Char(disk + $40); где disk - A,B,C или D и т.д.
Как "обратить" этот процесс?

P.S.Вообще мона использовать и GetDiskFreeSpaceEx, но это 2 строки лишнего кода:(

← →
ZeroDivide © (2003-03-19 09:52) [1]

ORD

byte(cDisk)-$40

Есть нестандартная ситуация (а мож и стандартная) Найти похожие ветки