Home

Page 294
Page 294
background image

Железная мастерская 287

Теперь в обработчике события нажатия кнопки Запустить напишите
дующий код:

procedure

begin

 False;

 := True;

Stop := False;

while not Stop do

begin

 :=

end;

 := True;

 False;

end;
После запуска определения частоты процессора мы делаем кнопку

Запустить неактивной, потому что второй раз нажимать на нее нет смысла.

Ошибки, конечно, не будет, но лишние активные кнопки не нужны. Кноп-

ку Стоп наоборот делаем активной, чтобы пользователь имел возможность
остановить процесс.

Далее, переменной stop присваивается значение false. По значению этой

переменной будет определяться, нужно ли остановить процесс определения
частоты. Как только она станет равной true, мы прервем работу программы.

Вот теперь все готово для запуска цикла. Цикл определения очень прост:

while not Stop do

begin

 :=

end;

Здесь работает цикл while, который будет выполняться, пока переменная
stop не станет равной значению true. Внутри цикла только две строки:

1. В первой вызывается функция Getcpuspeed. Результат ее выполнения

превращаем в строку с помощью функции FloatToStr и присваиваем
компоненту

 который отображает частоту процессора.

2. Во ВТОРОЙ

 Метод ProcessMessages, который

 Другим

программам поработать, чтобы наша маленькая утилита не отобрала все
процессорное время и не произошел эффект зависания.

Процедура Getcpuspeed приведена в листинге 6.3.


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.