[cyber922]

делаю такую вещь, чтобы при нажатии на кнопку начался счёт времени работы приложения и выводилось в statictext... Прописал вот такой код

Код:

procedure TFmain.BBStarttestClick(Sender: TObject);
 var
Fmain:Tfmain;
Vtime:string;
begin
Vtime:=timetostr(time);
 timer2.Enabled:=true;
end;
procedure TFmain.BitBtn1Click(Sender: TObject);
begin
Tsmain.activepage:=TStest;
end;
 procedure TFmain.formShow(Sender: TObject);
begin
 stdate.Caption:=datetostr(date);
end;

procedure TFmain.ontimer(Sender: TObject);
begin
sttime.Caption:=timetostr(time);
end;



procedure TFmain.Timer2Timer(Sender: TObject);
  begin
Sttimetest.caption:=timetostr (time-strtotime(vtime));
end;

end.

                           

,но не пропускает там где я выделил? почему?
ОШИБКИ ВОТ...

Код:

[Pascal Hint] umain.pas(65): H2164 Variable 'Fmain' is declared but never used in 'TFmain.BBStarttestClick'
[Pascal Error] umain.pas(88): E2003 Undeclared identifier: 'vtime'
[Pascal Fatal Error] Aizenk.dpr(6): F2063 Could not compile used unit 'umain.pas'

Когда пишу сюда

Код:

procedure TFmain.Timer2Timer(Sender: TObject);
 var

 begin
Sttimetest.caption:=timetostr (time-strtotime(vtime));
end;

Вот так:

Код:

procedure TFmain.Timer2Timer(Sender: TObject);
var
 Vtime:string;
 begin
Sttimetest.caption:=timetostr (time-strtotime(vtime));
end;

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

тимер стоит...

[Pyro]

PHP код:

var Vtime:string; //?

procedure TFmain.BBStarttestClick(Sender: TObject);
 var
Fmain:Tfmain;
begin 


[cyber922]

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

PHP код:

var Vtime:string; //?

procedure TFmain.BBStarttestClick(Sender: TObject);
 var
Fmain:Tfmain;
begin 


is not a valid time

снова убил черз процессы... компилится, но эта ошибка

[cyber922]

Вот исходник...

[angvelem]

У тебя переменная VTime не глобальная, отсюда и ошибки.

[cyber922]

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

У тебя переменная VTime не глобальная, отсюда и ошибки.

а как её объявить глобальной?