Как показать оставшееся время до конца?

Материал из DRKB

Как показать оставшееся время до конца?[править | править код]

procedure TForm1.Timer1Timer(Sender: TObject);
var
  TheLength, Posi, SummaMin, SummaSec: Integer;
begin
  // Progress Bar to check if the track is playing
  if Progress.Max <> 0 then
  begin
    Progress.Position := Mediaplayer1.Position;

    // Gets the length of the selected track
    TheLength := Mediaplayer1.TrackLength[ListBox1.ItemIndex];

    // gets the current position of the track
    Posi := Mediaplayer1.Position;

    // Caculates Minutes
    SummaMin := ((TheLength - Posi) div 1000) Div 60;

    // Calculates Seconds
    SummaSec := ((TheLength - Posi) Div 1000) Mod 60;

    // Adds zero if Seconds are less then ten
    if SummaSec < 10 Then
      Label2.Caption := '0' + IntToStr(SummaSec)
    else
      Label2.Caption := IntToStr(SummaSec);

    // Minutes
    Label1.Caption := IntToStr(SummaMin);
  end;
end;


Source: Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php
ID: 01314