reNamed: Umrechnungsprobleme bei Zeitanzeige von Sounddatei;

[DelphiUser7]

Jetzt sieht mein Quellcode so aus:

Delphi-Quellcode:

if not (sender=BitBtn3) then begin
  Sekunden := mediaplayer1.Position div 1000;
  Sekunden := Sekunden+1;
 end;
  If Sekunden = 60 then begin
    Sekunden := 0;
    Minuten := Minuten+1;
    If Minuten = 60 then begin
      Minuten := 0;
      Stunden := Stunden+1;
    end;
  end;  
    If Sekunden >= 60 Then Begin
     Inc(Minuten, Sekunden div 60);
     Sekunden := Sekunden mod 60;
    End;
    If Minuten >= 60 Then Begin
     Inc(Stunden, Minuten div 60);
     Minuten := Minuten mod 60;
    End;

Nur jetzt gibts ein neues Problem: die Sekunden zählen jetzt zwar so, wie ich es mir vorstelle, aber die Minuten und Stunden scheinen beide etwas 'aus dem Konzept' gekommen zu sein, die zählen jetzt im Sekundentakt; irgendwie nicht ganz so, wie es sein soll, oder?