Обратный отсчет в формате минуты и секунды

[Shouldercannon]

Задаю таймеру время 330000 (5 с половиной минут). Вывожу обратный отсчёт в статус бар

dec(C);
StatusBar1.Panels.Items[2].Text := 'Проверка процесса через ' + intToStr(C) + ' сек';

Выводится так: Проверка процесса через 330000 сек. Как сделать, чтобы показывалось так: Проверка процесса через 5 мин 30 сек?

[maLoy*508]

как вариант - делить на 60(в твоем случае на 60000) mod и div...
в одном случае получим целую часть от деления, а в другом остаток от деления...
ход мыслей думаю ясен

[Shouldercannon]

Не догадаюсь. Можно кодом?

[MaxNik2009]

вот что имел ввиду maLoy*508

var
  Sec: integer;
begin

dec(C);

sek:=c div 60; // переводим в секунды

StatusBar1.Panels.Items[2].Text := 'Проверка процесса через ' + intToStr(sek) + ' сек';

[Shouldercannon]

Чет не то. Задача заключается в том, чтобы в статус баре был не такой отсчёт 350000 сек, а такой 5 мин 30 сек. С данным кодом постоянно показывает Проверка процесса через 0 сек

[maLoy*508]

примерно следующее

var sek, min.....
.....
min := c div 60000 // получаем целое(т.е. 330000 div 60000 = 5)
sek := c mod 60000 / 1000 // получаем остаток (т.е. 330000 mod 60000 = 30000 / 1000 = 30
.....

вот что я имел ввиду

[Shouldercannon]

Разобрался, но теперь не получается нормально обработать значение для таймера. Ставится значение Min UpDown1, а не загружаемое.

[MaxNik2009]

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
var
F: TRegIniFile;
begin
F := TRegIniFile.Create('Software');
  F.OpenKey('Project1', true);
    F.WriteString('Settings', 'Time', Edit1.Text);
    C:= StrToIntDef(Edit1.Text, 0) * 60; // вот так надо бы
      F.Free;
end;

[Shouldercannon]

Не то. Вот простой выход, который ещё вчера нашёл, но он старнно работал, секунды нормально отсчитывались потом очень быстро и так до конца (отсчёт с разной скоростью), сегодня всё нормально стало.

procedure TForm1.FormCreate(Sender: TObject);
var
F: TRegIniFile;
begin
F := TRegIniFile.Create('Software');
  F.OpenKey('Project1', true);
    Self.UpDown1.Position := StrToInt(F.ReadString('Settings', 'Time', '10'));
      F.Free;
        Timer1.Enabled := True;
          //C := StrToIntDef(Edit1.Text, 0) * 60;
          C := StrToInt(Edit1.Text);
end;

Так не работает

Form1.C := StrToInt(Edit1.Text);

Если ещё и часы добавить, то будет так?

var
  sec, min, hour: Integer;
begin
  dec(C);

  hour := C div 60;
  min := C mod 60;
  sec := (C mod C) mod 60;

И как в случае с часами будет выглядеть

C:= StrToIntDef(Edit1.Text, 0) * 60;