Главная страница
    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.45 MB
Время: 0.005 c
3-35215
svmagnum
2002-07-23 20:35
2002.08.12
Kak mne sdelat progu shtob ona rabotala s udallennoj Access db


3-35214
Tornado
2002-07-24 09:38
2002.08.12
как объеденить??


3-35166
Natalie
2002-07-22 21:40
2002.08.12
сохранение данных в таблице


3-35213
zavisalych
2002-07-24 09:43
2002.08.12
баг в VCL? не понимает множественных полей в KeyFields


3-35149
RDA
2002-07-21 10:27
2002.08.12
Express Quantum TdxDBTreeView





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский