so bitte:
Delphi-Quellcode:
function hour (zeit: integer): String;
var a : Real;
min, h : Integer;
begin
a:= zeit /1000;
min:= round(a) div 60;
h := min div 60; //berechnung Stunde
if h<10 then Result:='0' + inttostr(h)+':' //ausgabe wenn stunde 1stellig
else Result:=inttostr(h)+':'; //ausgabe wenn stunde 2stellig
end;
function minute (zeit : integer):string;
var a : Real;
min : Integer;
begin
a := zeit / 1000;
min := round(a) div 60; //berechnung minute
if min < 10 then Result := '0' + inttostr(min)+':' //ausgabe wenn minute 1stellig
else Result := inttostr(min) + ':'; //ausgabe wenn minute 2stellig
end;
function second (Zeit : integer): string;
var a : Real;
sec : Integer;
begin
a := zeit / 1000;
sec := round(a) mod 60; //berechnung sekunde
if sec < 10 then Result := '0' + inttostr(sec) //ausgabe wenn sekunde nur 1stellig
else Result := inttostr(sec); //ausgabe wenn sekude 2stellig
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := hour(Mediaplayer1.Postion); //Label1 = stunde
Label2.Caption := minute(Mediaplayer1.Postion); //Label2 = minute
Label3.Caption := second(Mediaplayer1.Postion); //Label3 = sekunde
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
{cmd. zum starten des Players}
Timer1.Enabled:=true; //startet timer wenn player startet aber timer muss von anfang enabled auf false stehen
end;
das mit dem übergeben von string in Integer brauchste hier nicht das wird alles in den functions gemacht.
P.S: hab noch net getestet obs geht aber compiler zeigt ma keinen fehler an.