[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 не глобальная, отсюда и ошибки.

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

[angvelem]

Код:

var
  Fmain: TFmain;
  VTime : String;

implementation

[Outlaw]

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

[cyber922]

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

Код:

var
  Fmain: TFmain;
  VTime : String;

implementation

Код:

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

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

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