Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Zeit automatisch stoppen

    Delphi
    by Noedel, 17. Mai 2010
  ...
  procedure bla();
  var zeit_vor, Zeit_nach, Zeit_gesamt : Int64;
  begin
  zeit_vor:=GetTickCount;
  Sortiere(...);
  zeit_nach:=GetTickCount;
  Zeit_gesamt:=Zeit_nach - Zeit_vor;
  Showmessage('Sortierung dauerte '+IntToStr(Zeit_gesamt)+' ms');
  end;