Informatik	Material Portal Portfolio Präsentation Grafik Tabellenkalkulation Informatik56 9 10 11 12 13 Messen, Steuern, Regeln Linux Theorie Didaktik Open Source Spiele Wettbewerbe Netzbetreuung intern Literatur Links Energie corewar UNIX/Linux Pfad: Startseite / Fächer / Informatik
Autor: be 16.02.2006 10:52:00 640

Zeitmessung

at,et: Integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
  at := GetTickCount;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  et := GetTickCount;
  edZeit.Text:= InttoStr(et-at);
end;

lokal