Для выполнения оптимизации кода замеряем время выполнения программного кода. Для этого на форме приложения добавляем кнопку «Время выполнения программного кода» и в программный код приложения вставляем следующий программный фрагмент:
| |
|
| procedureTForm1.Button1Click(Sender: TObject);
const
M = 10;
var
i: Integer;
Fr, t1, t2: Int64;
Dt: Extended;
begin
//Определяем тактовую частоту процессора (количество тактов в секунду).
QueryPerformanceFrequency(Fr);
if Fr = 0 then begin
ShowMessage('Не удалось получить сведения о тактовой частоте.');
Exit;
end;
//ShowMessage('Тактовая частота процессора (количество тактов в секунду): ' + IntToStr(Fr));
//Показание счётчика тактов.
QueryPerformanceCounter(t1);
//Выполнение исследуемого процесса.
for i:= 1 to M do Sleep(10);
//Показаниесчётчикатактов.
QueryPerformanceCounter(t2);
//Расчёт времени.
Dt:= (t2 - t1) / Fr;
ShowMessage('Длительность выполнения в секундах: ' + FloatToStr(Dt));
end;
| | |
В результате выполнения программного кода выводится сообщение о (см. Рисунок 1)
| Рисунок 1 - Вывод сообщения, с временем выполнения программы
|
Чтобы выполнить оптимизацию программного кода, т.е. сократить время выполнения программы, заходим в меню Project\Options, заходим на вкладку Compiler и убираем все галочки из Runtimeerrors и Debugging. Запускаем приложение и фиксируем уменьшенное время выполнения программного кода (0,13233544345312) (см. Рисунок 2)
| Рисунок 2 - Вывод сообщения, с временем выполнения программы
|
