Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.12;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.007 c
1-35238
ilg
2002-07-30 16:55
2002.08.12
Компонент на основе TLabel


3-35156
Loco
2002-07-20 15:42
2002.08.12
SQL


3-35162
MsGuns
2002-07-22 11:01
2002.08.12
Функция Ditto в Delphi


1-35374
Spooky
2002-07-25 09:04
2002.08.12
Доступ к реестру


14-35424
Desdechado
2002-07-16 17:29
2002.08.12
Виртуальный диск под Win





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский