Промотка

[S.T.A.L.K.E.R.]

Как сделать чтобы время песни отабражалось в Edit.

[mutabor]

function Mus2Str(n: longint): string;
var
  s: string;
  sec: longint;
  min: longint;
begin
  sec:=trunc(n/1000);
  min:=trunc(sec/60);
  sec:=sec-min*60;
  if min<10 then s:='0'+inttostr(min) else s:=inttostr(min);
  if sec<10 then s:=s+':0'+inttostr(sec)
  else s:=s+':'+ inttostr(sec);
  Result:=s;
end;

На вход даете время в миллисекундах, на выходе получаете строку в формате mm:ss.

Использование

Edit1.Text:=Mus2Str(Mediaplayer1.Length);
Edit2.Text:=Mus2Str(Mediaplayer1.Position);