[cyber922]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

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<b>(vtime)</b>); end;   end.

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

Код:

1 2 3

[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'

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

Код:

1 2 3 4 5 6

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

Вот так:

Код:

1 2 3 4 5 6

procedure TFmain.Timer2Timer(Sender: TObject); var  Vtime:string;  begin Sttimetest.caption:=timetostr (time-strtotime<b>(vtime)</b>); 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 не глобальная, отсюда и ошибки.

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

[angvelem]

Код:

1 2 3 4 5

var   Fmain: TFmain;   VTime : String;   implementation

[Outlaw]

Также как и другие глобальные переменные....

[cyber922]

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

Код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88

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.

Тоже самое, компилируются ошибка..

[angvelem]

Приведи текст ошибок.

[cyber922]

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

Приведи текст ошибок.

Запускаю компилятор, появляется главная форма приложения, потом через секунд пять, куча окон, со значением is not a valid time

[Pyro]

таймер выключи по умолчанию

[cyber922]

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

таймер выключи по умолчанию

Всё, сработало)