Ich habs rausgekriegt!
Ich hab vergessen, min wieder auf null zu setzen!
Jetzt stimmts:
Delphi-Quellcode:
function TBassPlayer.Time(State: Integer): String;
var min, sec: Integer;
Erg, mins, secs: String; //Ergebnis, MinString, SecString
begin
min := 0;
sec := position; // State = 0
while sec > 59 do
begin
min := min + 1;
sec := sec - 60;
end;
mins := IntToStr(min);
secs := IntToStr(sec);
if min < 10 then mins := '0'+mins;
if sec < 10 then secs := '0'+secs;
Erg := mins+':'+secs;
if State = 1 then //State = 1
begin
sec := length;
min := 0;
while sec > 59 do
begin
min := min + 1;
sec := sec - 60;
end;
mins := IntToStr(min);
secs := IntToStr(sec);
if min < 10 then mins := '0'+mins;
if sec < 10 then secs := '0'+secs;
Erg := Erg+'/'+mins+':'+secs;
end;
if State = 2 then //State = 2
begin
sec := length - position;
min := 0;
while sec > 59 do
begin
min := min + 1;
sec := sec - 60;
end;
mins := IntToStr(min);
secs := IntToStr(sec);
if min < 10 then mins := '0'+mins;
if sec < 10 then secs := '0'+secs;
Erg := mins+':'+secs;
end;
result := Erg;
end;