Считывание времени отчета с ini файла.(Delphi)

[Spiritas]

У меня есть 1.ini файл в котором указано время
[TestName]
value=Тест
[QuestCount]
value=6
[Timer]
Time=30
как можно сделать чтобы программа брала это значение и ставило его для обратного отсчета?

 procedure TForm1.Timer1Timer(Sender: TObject);
var
  H, M, S: Integer;
begin
  i := i - 1;
  H := I div 360;
  M := (I - H*360) div 60;
  S := I- H*360 - M*60 ;
  Label5.Caption:= IntToStr2(H, 1) + ':' + IntToStr2(M, 1) + ':' + IntToStr2(s, 1);

сделал деление по времени но не знаю как к этой части добавить считывание с ini файла

[Serge_Bliznykov]

так, например, можно:

procedure TForm1.FormCreate(Sender: TObject);
const DefaulttimeValue = 60;
var Ini : TIniFile;
  time_ini : integer;
begin
  Ini := TIniFile.Create( ExtractFilePath(Application.ExeName)+'1.ini' );
  try
    time_ini     := Ini.ReadInteger( 'Timer', 'Time', DefaulttimeValue );
  finally
    Ini.Free;
  end;

  ShowMessage('Считали из INI переменную получили time = ' + InttoStr(time_ini));

end;

сделал деление по времени

Вы в неправильную сторону идёте!!
Пока не поздно, меняйте подход - не нужно считать время по счётчику, это сложно и НЕ НАДЁЖНО.
используйте системное время!

[Stilet]

Serge_Bliznykov

Э-э-эм... А зачем тут try?

[Serge_Bliznykov]

Сообщение от Stilet

Э-э-эм... А зачем тут try?

да, погорячился чуток. действительно, ни к чему там try!

procedure TForm1.FormCreate(Sender: TObject);
const DefaulttimeValue = 60;
var Ini : TIniFile;
  time_ini : integer;
begin
  Ini := TIniFile.Create( ExtractFilePath(Application.ExeName)+'1.ini' );
  time_ini     := Ini.ReadInteger( 'Timer', 'Time', DefaulttimeValue );
  Ini.Free;

  ShowMessage('Считали из INI переменную получили time = ' + InttoStr(time_ini));

end;

Spiritas, по поводу обратного отсчёта, посмотрите мой пример вот ТУТ

[Spiritas]

Сообщение от Serge_Bliznykov

да, погорячился чуток. действительно, ни к чему там try!

procedure TForm1.FormCreate(Sender: TObject);
const DefaulttimeValue = 60;
var Ini : TIniFile;
  time_ini : integer;
begin
  Ini := TIniFile.Create( ExtractFilePath(Application.ExeName)+'1.ini' );
  time_ini     := Ini.ReadInteger( 'Timer', 'Time', DefaulttimeValue );
  Ini.Free;

  ShowMessage('Считали из INI переменную получили time = ' + InttoStr(time_ini));

end;

Spiritas, по поводу обратного отсчёта, посмотрите мой пример вот ТУТ

спасибо за помощь

[Serge_Bliznykov]

всегда пожалуйста.

тему закрываем?

[Spiritas]

Сообщение от Serge_Bliznykov

всегда пожалуйста.

тему закрываем?

да дальше уже как нибудь сам разберусь)