Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

28th
Мар

Показать емкость диска с помощью Chart

Posted by micher under Delphi

Как с помощью Chart показать емкость диска? У меня с listbox, не знаю, как объединить с Chart, точнее вместо Listbox должен быть Chart.

Дако



begin

for drnum:=ord('A')to ord ('Z') do

begin

drtotalsize:=DiskSize(drnum -ord('A')+1);

drinfor:='Disk '+chr(drnum)+ ':';

if drtotalsize-1 then

begin

drinfor:=drinfor+'total - '+

floattostr(round(drtotalsize/1073741824))+

'Gb; free - '+ floattostr(round(DiskFree

(drnum-ord('A')+1)/1073741824))+'Gb';

listbox1.Items.Add(drinfor);

end;

drinfor:='';

end;

end;