Виртуальное время для игры

[aleksandr278]

Добрый вечер. Подскажите пожалуйста как сделать сделать виртуальное время для игры например чтоб там сутки проходили в течении 30-40 минут реального времени.
Заранее спасибо.
Не судите строго, я еще новичок в делфи, но уже многому научился.

[bitSoft]

Изменение интервала таймера или MSec := MSec + 1000;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShellAPI, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    tmr1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure tmr1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  MSec : Integer;

implementation

{$R *.dfm}

function MSecToTime(mSec: Int64): string;
var
  dt : TDateTime;
begin
   dt := mSec / MSecsPerSec / SecsPerDay;
   Result := Format('%s', [FormatDateTime('nn:ss.z', Frac(dt))]) ;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with tmr1 do
  begin
    Interval := 10;
    Enabled := True;
  end;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
 MSec := MSec + 1000;
 Caption := MSecToTime(MSec);
end;

end.

[aleksandr278]

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

[spamer]

aleksandr278, ну а что мешает, код запуска таймера запихнуть, например в OnCreate.

[aleksandr278]

Да до меня уже дошло.
Только косяк какой то код выше при компеляции выдает ошибку.
Может что дописать надо. Объясните начинающему. Очень надо.

С ошибкой разобрался.
Огромное спасибо.

[aleksandr278]

А что нужно сделать чтоб время показывалось в в окне Label

[spamer]

А что нужно сделать чтоб время показывалось в в окне Label

Какое еще окно Label ? Вы о чем?
Если в компонент TLabel, то:

Label1.Caption := MSecToTime(MSec);

[aleksandr278]

Огромное спасибо, все работает.
Не обижайтесь пожалуйста на мою тупость.
Я в делфи новичок. Но у меня огромное желание научиться писать программы. Спасибо еще раз.

[bitSoft]

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

Огромное спасибо, все работает.
Не обижайтесь пожалуйста на мою тупость.
Я в делфи новичок. Но у меня огромное желание научиться писать программы. Спасибо еще раз.

тебе надо книги читать, а потом программировать.

[aleksandr278]

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