Timer dalam Lazarus


Untuk mengulang-ulang sekumpulan statement secepatnya, kalian bisa menggunakan loop. Tapi, untuk mengeksekusi sekumpulan statement berulang kali dengan jeda waktu tertentu, kalian akan butuh "timer". Timer bisa kalian temukan dalam tab System.
Kalian bisa mengatur jeda dari timer dengan menggunakan properti Interval yang menggunakan satuan milidetik.
Setelah mengatur waktunya, silakan lakukan double click pada timer yang sudah kalian tambahkan dalam form. Lalu, kalian dapat menambahkan kode program yang kalian ingin ulang tiap beberapa milidetik. Misalnya :
var s : string;
var i, x: integer;
begin
  s:=Label1.Caption;
  val(s, i, x);
  if(i<100)then inc(i);
  str(i, s);
  Label1.Caption:=s;
end;
Kalian ingin menggunakan kode program di atas, pastikan kalian sudah menambahkan label dengan nama Label1 ke dalam form.