Іноді потрібно виміряти час виконання будь-яких операцій (ділянок коду) в середовищі Delphi. Я використовую для цього нехитрий прийом. Скажу відразу що підглянув код у одного розробника і адаптував його під свої цілі, а потім вирішив зробити універсальну процедуру, для використання в різних додатках.
Перш за все необхідно написати і оголосити наступну функцію:
Тепер, в тому місці коду, де нам необхідно почати вимір часу вставляємо - TimeBegin: = Time, а в тому, де це вимір необхідно закінчити - TimeEnd: = Time. Так, в тій процедурі або функції, де необхідно вимірювати час, потрібно оголосити дві змінні - TimeBegin, TimeEnd: TDateTime.
procedure Названіе_вашей_процедури (Sender: TObject); var // визначаємо змінні для вимірювання часу TimeBegin, TimeEnd: TDateTime; begin TimeBegin: = Time; // тут код, час виконання якого необхідно виміряти TimeEnd: = Time; GetTimeInterval (TimeBegin, TimeEnd); end;
Даний спосіб звичайно не претендує на надоригінального, але набагато більш точніше простого таймера Delphi. При бажанні можна створити клас, визначити властивості і методи і користуватися.
останні повідомлення
Популярні повідомлення
