Сделать таймер

[bookkc]

Как сделать так что бы при нажатии на Buuton1 в label1 ишло время в формате чч:мм:сс, с 00:00:00 И при повторном нажатии на button1 время сбрасывалось на 00:00:00 и начиналось сначала.

Не показывало текущее время, а шло новое

[fbus]

используй тип TTime

var tm:TTime;
....
tm:=tm+1;//прибавление 1 секунды (если не путаю ничего)

чтобы сбросить таймер юзай строчку

tm:=StrtoTime('00:00:00');

сразу скажу что писал по памяти и не проверял работоспособность кода, но теоретически работать должно

[bookkc]

А как сделать так что бы он был показан в Label1

[ZvEr_HaCkEr]

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

А как сделать так что бы он был показан в Label1

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;
        i, min, chas :integer;
implementation

{$R *.dfm}

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

procedure TForm4.FormCreate(Sender: TObject);
begin
  i:=0;
min:=0;
chas:=0;
end;

procedure TForm4.Timer1Timer(Sender: TObject);
begin
 if i>59 then
 begin
 i:=0;
 Min:=min+1;
 label1.Caption:=inttostr(chas)+':'+inttostr(min)+':'+inttostr(i);
 end

 else

 if min>59 then
 begin
 min:=0;
 chas:=chas+1;
 label1.Caption:=inttostr(chas)+':'+inttostr(min)+':'+inttostr(i);
 end

else
begin
i:=i+1;
label1.Caption:=inttostr(chas)+':'+inttostr(min)+':'+inttostr(i);
end;
end;

end.

[bookkc]

ZvEr_HaCkEr , спасибо, а как сделать что бы после нажатия Button1 время скидывалось на 0