Преобразование даты

[Дворник]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Sum, h: Integer;

begin

  Sum := 0;

  if Length(StringGrid1.Cells[0,0]) > 0 then
  begin
    StringGrid1.RowCount := StringGrid1.RowCount + 1;
  end;

  StringGrid1.Cells[2,StringGrid1.RowCount - 1] := Edit4.Text;
  Edit3.Text := Edit4.Text;

  if StringGrid1.RowCount > 1 then
  begin
    for h := 0 to StringGrid1.RowCount - 1 do
    begin
      Sum := Sum + StrToInt(StringGrid1.Cells[2,h]);
      Edit3.Text := IntToStr(Sum);
    end;
  end;

  while StrToInt(Edit3.Text) > 59 do
  begin
    Edit2.Text := IntToStr(StrToInt(Edit2.Text) + 1);
    Edit3.Text := IntToStr(StrToInt(Edit3.Text) - 60);
  end;

  while StrToInt(Edit2.Text) > 59 do
  begin
    Edit1.Text := IntToStr(StrToInt(Edit1.Text) + 1);
    Edit2.Text := IntToStr(StrToInt(Edit2.Text) - 60);
  end;

  if StrToInt(Edit1.Text) > 23 then
  begin
    Edit1.Text := '0';
  end;

    StringGrid1.Cols[0].Append(Edit1.Text + ':' + Edit2.Text + ':' + Edit3.Text);

end;

Допустим мы задали значение для Edit4 = 120 сек
В данный момент результат выводиться в таком виде: 9:2:0
Мне так не надо!
Надо чтобы результат сводился в нормальный вид!
Тобеж 9:02:00

Как ? (((

[Utkin]

Ну сравнивай циферки - если меньше 10, то дополняем незначащими нулями

[Дворник]

Нифига. Надо показатель не в численности сравнивать (т.е. < 10), а длину значения Edit.

Т.е.

If Length(Edit2.Text) < 2 then
  begin
    Edit2.Text := '0' + Edit2.Text;
  end;
...

Однако пока несколько раз тестил, выявилась другая проблема.
Он когда значение Секунд проверяет, то после первого предела и прибавления Мин на ед., с каждым последующим нажатием Button1 он постоянно прибавляет по ед. в к Мин, не смотря на то, что сек менее 59 ((((

Посоветуйте чего-нибудь уже ((

[Sparkman]

Сообщение от Дворник

Посоветуйте чего-нибудь уже ((

uses DateUtils;

ну это наверное будет слишком сложно для вашей задачи.
а так я бы попросил вас рассказать тогда, что у вас находится в гриде

а на счет 59 секунд - все очень просто: if Edit4.Text = '59' then break;

[W0LF]

Я вообще не понял сути вопроса:
вам нужно, например, 120 секунд перевести в формат времени, то есть в 00:02:00 ? Или, что? Убейте меня, но я не понимаю...

[ZuBy]

format('%2.2d:%2.2d', [число, число]);

[Дворник]

Красное - секунды
Зеленное - сумма всех секунд в SG.Cols[2]

В данном примере 9 раз по 10 сек. Тобеж 90 сек.
Понятное дело что 90 сек - это 1 мин. 30 сек.

Так какого фигаля он мне пишет 9:04:30, когда должно быть 9:01:30 ?!! ((
Надеюсь вопрос понятен.

[ZuBy]

кинь проект (исходник), без exe

[Дворник]

Там поле Edit4 - это типа длина трека будет в секундах.

[ZuBy]

...................