// Dapatkan akurasi waktu tingkat milidetik (Metode 1):
var
T1, T2: int64;
R1: int64;
Mulai
T1: = getTickCount; // Dapatkan Mulai Menghitung Windows API
sleep (1000); {do ...} // Jalankan kode yang akan diatur waktunya
T2: = getTickCount; // Dapatkan nilai jumlah akhir
R1: = T2-T1; // Dapatkan waktu waktu, unit milidetik (MS)
Showmessage (InttoStr (R1));
akhir;
// Dapatkan akurasi waktu tingkat milidetik (Metode 2):
// Gunakan Dateutils; // Referensi Dateutils Unit
var
T1, T2: TDATETIME;
R1: int64;
Mulai
t1: = sekarang (); // Dapatkan waktu mulai
sleep (1000); {do ...} // Jalankan kode yang akan diatur waktunya
t2: = sekarang (); // Dapatkan akhir waktu
R1: = Secondsbetween (T2, T1); // Dapatkan waktu waktu, satuan detik (s)
R1: = Millisecondsbetween (T2, T1); // Dapatkan waktu waktu, unit milidetik (MS)
Showmessage (InttoStr (R1));
akhir;
// Catatan: Setelah menguji dua metode di atas, tampaknya mereka hanya dapat menghasilkan 0,01 detik akurasi waktu setelah pengujian sendiri.
// Dapatkan akurasi waktu tingkat sistem:
var
C1: int64;
T1, T2: int64;
R1: ganda;
Mulai
QueryPerformanceFrequency (C1); // Windows API Mengembalikan Frekuensi Penghitungan (Intel86: 1193180) (Mendapat jumlah getaran penghitung frekuensi kinerja tinggi sistem dalam satu milidetik)
QueryPerformanceCounter (T1); // Windows API Dapatkan Nilai Hitungan Mulai
sleep (1000); {do ...} // Jalankan kode yang akan diatur waktunya
QueryPerformanceCounter (T2); // Dapatkan Nilai Hitungan Akhir
R1: = (T2-T1)/C1; // Dapatkan waktu waktu, unit detik (s)
R1: = (T2-T1)/C1*1000; // Dapatkan waktu waktu, unit milidetik (MS)
R1: = (T2-T1)/C1*1000000; // Dapatkan waktu waktu, unit mikrodetik
showmessage (floattostr (r1));
akhir;