Помогите плиз с таймером

[kinals]

prog38 пробовал так, ошибка начинается когда условие идет

[prog38]

prog38 пробовал так, ошибка начинается когда условие идет

Где именно ошибка-то, выкладывай код, у меня все нормально работает.

[kinals]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
tt := tt - 1;
label1.caption :=
inttostr(tt div 3600) + ' ч ' +
format('%.2d', [tt mod 3600 div 60]) + ' м ' +
format('%.2d', [tt mod 3600 mod 60]) + ' с '
if (Edit2=0)and(edit3=0)then begin
timer1.Enabled:=false;
ShowMessage('Интервал истек!');
end;

как условие начинается, так и ошибка

[prog38]

тогда уж так :

if (edit1.Text='0')

[kinals]

неа, все равно ошибка там же

[prog38]

Тада не знаю , у меня и так и этак работает, надо чтоб кто-то поопытней глянул...

[kinals]

prog38 а ты можешь весь код выложить?

[prog38]

Вот:

unit TimerObr;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Timer1: TTimer;
    Label3: TLabel;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var sec,min:integer;
begin
  min:=strToInt(edit1.Text);
  sec:=StrToInt(edit2.Text);
    if (sec=0) and (min>0)then begin
    min:=min-1;
    sec:=60;
   end;
    sec:=sec-1;
    edit2.Text:=IntToStr(sec);
    edit1.Text:=IntToStr(min);
    edit2.Visible:=false;
    edit1.Visible:=false;
    label2.Visible:=false;
    label1.Visible:=false;
    label3.Caption:=edit1.Text+':'+edit2.Text;

      if (sec=0)and(min=0)then begin
        timer1.Enabled:=false;
        ShowMessage('Интервал истек!');
      end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    edit2.Visible:=true;
    edit1.Visible:=true;
    label2.Visible:=true;
    label1.Visible:=true;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  close;
end;

end.

Единственное у меня 2 эдита с мин и сек, ну третий я думаю ты допишеш по образцу)

[prog38]

Единственное у меня 2 эдита с мин и сек, ну третий я думаю ты допишеш по образцу)

[kinals]

а часы программно обозначается hour???