Hi,
in meinem Player habe ich die Anzeige der Position in Minuten + Sekunden so gemacht:
Delphi-Quellcode:
function TfrmMain.GetSongLengthAsString: String;
var Time: Integer;
begin
Case Modus of
moSamples: begin
Time := Trunc(BASS_ChannelBytes2Seconds(Chan, BASS_ChannelGetPosition(Chan)));
Result := Format('%.2d:%.2d', [Time div 60, Time mod 60]);
end;
moMusik: begin
Time := Trunc(BASS_ChannelBytes2Seconds(Chan, BASS_ChannelGetLength(Chan)));
Result := Format('%.2d:%.2d', [Time div 60, Time mod 60]);
end;
moStream: begin
Time := Trunc(BASS_ChannelBytes2Seconds(Chan, BASS_ChannelGetLength(Chan)));
Result := Format('%.2d:%.2d', [Time div 60, Time mod 60]);
end;
end;
end;
Das Ergebnis: 03:45
Wie kann ich diese Anzeige um Zehntelsekunden erweitern ?
3:45:04
(die Zehntelsekunden laufen von 0 - 10, wenn 10 erreicht wurde, wird die Sekundenanzeige erhöht und die Zehntelsekundenanzeige auf 0 gesetzt).
Ich weiß nicht mal ansatzweise, wie ich das machen könnte.