Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Stoppuhr

    Delphi
    by Darkface, 2. Jan 2009
  :-D jetzt hab ich die eigentliche Formatierung vergessen ^^:
  
  
  //brauchen wir noch 4 variablen mehr :)
  var mil,sek,min,stu:string;
  begin
  
  
  If millisekunden < 1000 Then begin
  If millisekunden < 10 Then mil:='000' +IntToStr(millisekunden) Else
• Forum: Sonstige Fragen zu Delphi

  Re: Stoppuhr

    Delphi
    by Darkface, 2. Jan 2009
  Und für die Formatierung...
  
  
  var startWert,stopWert,verbratenenZeit,millisekunden,sekunden,minuten,stunden:integer;
  
  startWert := GetTickCount;
  stopWert := GetTickCount;
  verbratenenZeit := stopWert - startWert;
  
  millisekunden:=0;sekunden:=0;minuten:=0;stunden:=0;