TMediaPlayer: tfMilliseconds in [min : sek : ms] aufteilen

[Union]

Zitat von Firefoxx:

Hallo!
jetzt ist meine Frage: Wie kann ich mit möglichst einfachem, pfiffigen Code aus den Millisekunden (meinetwegen auch aus den Frames oder Samples) die Restzeit anzeigen lassen, die auf Minuten, Sekunden und Millisekunden aufgeteilt wird? Vielleicht mit einem Record, in das die Zeit reingeschossen wird? Bräuchte mal ein paar konstruktive Ideen.

Code:

// TDateTime sind float mit 1 pro Tag. Also musst Du um auf eine ms zu kommen
// rechnen Tag := ms/(msprosekunde*sekundeprominute*minuteprostunde*stundenprotag
//      => Tag := ms/(1000*60*60*24) = 86400000
const MilliSecondsPerDay : integer = 86400000;
var
   Time : TDateTime;
   Hour, Min, Sec, MSec : Word;
   iMilliSecs : double;
begin
   // Deine ms, z.B. 2000
   iMilliSecs := 2000;
   // In Tage umrechnen
   Time := iMilliSecs/MilliSecondsPerday;  
   // Splitten
   DecodeTime(Time, Hour, Min, Sec, mSec);
   // ausgeben
   ShowMessage(Format('Laufzeit: %2.2d:%2.2d:%2.2d.%3.3d', [Hour, Min, Sec, mSec]));
end;