Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.12;
Скачать: CL | DM;

Вниз

Информация о памяти.   Найти похожие ветки 

 
V.Turecky   (2002-07-31 12:53) [0]

Добрый день.

На основе инфы, взятой из Инета я создал свою процедуру для отображения информации о памяти, файле подкачки, которая отображает инфу в реальном времени. Но у меня возник вопрос по поводу вот этого - "%.0f MB". Некоторые используют вот так "%0.0f", а некторые так "%.1f". Так что же оно такое и как будет правильно для нормального отображения информации?

Привожу код, на всяк пожарный:
procedure TForm1.Timer1Timer(Sender: TObject);
var
MemInfo : TMemoryStatus;
begin
MemInfo.dwLength := Sizeof (MemInfo);
GlobalMemoryStatus (MemInfo);
{
dwMemoryLoad; // занято памяти (в процентах)
dwTotalPhys; // общее колличество памяти (в байтах)
dwAvailPhys; // свободной памяти (в байтах)
dwTotalPageFile; // файл подкачки (в байтах)
dwAvailPageFile; // свободно файла подкачки (в байтах)
dwTotalVirtual; // общее олличесвто виртуальной памяти (в байтах)
dwAvailVirtual; // свободной фиртуальной памяти (в байтах)
}
RamGauge.Progress := MemInfo.dwAvailPhys div(MemInfo.dwTotalPhys div 100);
Label1.Caption := Format("%.0f MB",[MemInfo.dwAvailPhys div 1024 / 1024]);
Label4.Caption := Format("%.0f MB",[MemInfo.dwTotalPhys div 1024 / 1024]);

VirtualGauge.Progress := MemInfo.dwAvailPageFile div(MemInfo.dwTotalPageFile div 100);
Label2.Caption := Format("%.0f MB",[MemInfo.dwAvailPageFile div 1024 / 1024]);
Label3.Caption := Format("%.0f MB",[MemInfo.dwTotalPageFile div 1024 / 1024]);

Label5.Caption := Format("%.0f MB",[MemInfo.dwTotalVirtual div 1024 / 1024]);
Label6.Caption := Format("%.0f MB",[MemInfo.dwAvailVirtual div 1024 / 1024]);

Caption := Format("Memory:= %d - %d",[RamGauge.Progress, VirtualGauge.Progress]);
end;


 
Jeer ©   (2002-07-31 13:04) [1]

А на help по FormatString взглянуть ?
Точность вывода задают таким образом.


 
V.Turecky   (2002-07-31 13:08) [2]


> А на help по FormatString взглянуть ?
> Точность вывода задают таким образом.


В данный момент под рукой у меня нет ни Delphi и соответственно его файла справки. А обьяснить толково нельзя?


 
Jeer ©   (2002-07-31 13:54) [3]

Может Вы еще в голове компилите и исполняете ? :))

"Толково" объясняю
"%.0f MB" - вывод в формате с фиксированной точкой.
В данном случае точность после запятой 0, т.е. будет вывод только целых чисел. Для Вашей задачи то, что надо.

P.S. Раскажите об ощущениях ? Как это ? Когда в голове компилиться и исполняется ?


 
V.Turecky   (2002-07-31 13:57) [4]


> P.S. Раскажите об ощущениях ? Как это ? Когда в голове компилиться
> и исполняется ?


Непонимаю.


 
Jeer ©   (2002-07-31 14:05) [5]

Да ладно - не бери в голову.
Если основной ответ понятен, то Ок.



Страницы: 1 вся ветка

Текущий архив: 2002.08.12;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.011 c
1-35309
GTA 3
2002-07-29 17:20
2002.08.12
Как узнать четыре последних символа в Edit1?


4-35499
Korona
2002-06-06 02:19
2002.08.12
Получение названия сообщения по коду


14-35463
Ш-К
2002-07-16 08:59
2002.08.12
Давайте придумаем визуальный компонент.


6-35398
Guardian
2002-05-30 07:32
2002.08.12
Отключение от Ineta


1-35315
Не зарегистрированный чайник
2002-07-29 19:44
2002.08.12
Помогите пожалуйста чайнику!