|
#1
|
|||
|
|||
timer (vtimer)
делаю такую вещь, чтобы при нажатии на кнопку начался счёт времени работы приложения и выводилось в 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; тимер стоит... |
#2
|
|||
|
|||
PHP код:
|
#3
|
|||
|
|||
Цитата:
снова убил черз процессы... компилится, но эта ошибка |
#4
|
|||
|
|||
Вот исходник...
|
#5
|
||||
|
||||
У тебя переменная VTime не глобальная, отсюда и ошибки.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#6
|
|||
|
|||
Цитата:
|
#7
|
||||
|
||||
Код:
var Fmain: TFmain; VTime : String; implementation Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#8
|
||||
|
||||
Также как и другие глобальные переменные....
|
#9
|
|||
|
|||
Цитата:
Код:
unit umain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, Buttons; type TFmain = class(TForm) Panel1: TPanel; STFIO: TStaticText; STWelkome: TStaticText; STDATE: TStaticText; STTIME: TStaticText; TSmain: TPageControl; TabSheet1: TTabSheet; TSTEst: TTabSheet; TSResult: TTabSheet; Timer1: TTimer; Label1: TLabel; Label2: TLabel; StaticText1: TStaticText; StaticText2: TStaticText; BitBtn1: TBitBtn; Memo1: TMemo; Panel2: TPanel; TrackBar1: TTrackBar; StaticText3: TStaticText; Panel3: TPanel; StaticText4: TStaticText; STQutest: TStaticText; STtimetest: TStaticText; Label3: TLabel; Label4: TLabel; BBStarttest: TBitBtn; Panel4: TPanel; Memo2: TMemo; BByes: TBitBtn; BBno: TBitBtn; BBres: TBitBtn; LabeledEdit1: TLabeledEdit; timer2: TTimer; procedure formShow(Sender: TObject); procedure ontimer(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure BBStarttestClick(Sender: TObject); procedure timer2Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Fmain: TFmain; Vtime:string; implementation {$R *.dfm} procedure TFmain.BBStarttestClick(Sender: TObject); 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. |
#10
|
||||
|
||||
Приведи текст ошибок.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#11
|
|||
|
|||
Цитата:
|
#12
|
|||
|
|||
таймер выключи по умолчанию
|
Этот пользователь сказал Спасибо Pyro за это полезное сообщение: | ||
cyber922 (23.01.2012)
|
#13
|
|||
|
|||
Цитата:
|