Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Diskfree(?C:/?)


Автор: Ak47t 26.7.2005, 21:07
Привет всем.
Сталкнулся с очень навороченой проблеммой smile
Код


[code=delphi]
var 
disk:string;
num:byte;
i:int64;

begin 
disk:='C:/';     // необезательно c:/ можно и Z:/
i:=diskfree([b]Как вот этом месте можно строкой воспользоваться[/b]);



Перечесление типа if disk='C:/' then num:=3 от A до Z нетехнологично smile
smile Короч выручайте
smile заранье СПАСИБО

Автор: Ak47t 26.7.2005, 21:40
Нашол smile
кому надо вот сам код
Код

Drive := Ord ([b]Тут имя диска[/b]) - Ord('A') + 1;

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)