[Gudzik11]

Код:

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

unit Unit1;    interface    uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls;    type   TForm1 = class(TForm)     Label1: TLabel;     Timer1: TTimer;     Button1: TButton;     Button2: TButton;     procedure FormCreate(Sender: TObject);     procedure Timer1Timer(Sender: TObject);     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;    var   Form1: TForm1;    time: TTime;   timesec: TTime;    implementation    {$R *.dfm}    procedure TForm1.FormCreate(Sender: TObject); begin  time := StrToTime('00:00:00');   timesec:= StrToTime('0:0:1');   button1.Caption:='Старт' ;   button2.Caption:='Стоп'  ; end;    procedure TForm1.Timer1Timer(Sender: TObject); begin time:=time-timesec;   Label1.Caption:=TimeToStr(time); end;    procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Enabled:=True ; time := time+StrToTime('0:10:0') end;    procedure TForm1.Button2Click(Sender: TObject); begin Timer1.Enabled:=False ;    end;    end.

как сделать чтоб время в таймере выводилось не 9:09:09 а 09:09:09 и ещё не могу понять ка создать условие тоесть если таймер равен нулю то происходит действие?
думал так

Код:

1 2 3 4 5

if time= StrToTime('0:00:00') then   begin   ShowMessage('таймер остоновлен ');   Timer2.Enabled:=False ;   end

но что то пошло не так
как сделать подскажите