Programalama > DELPHI

//  Forma bir timer, ,iki buton ve 3 tanede label ekleyin

var
   zaman, zaman1, zaman2 : integer ;
   durdur : boolean = false ;

procedure TMainForm.Button3Click(Sender: TObject);
begin
 if durdur = false then
   begin
     Button3.Caption := 'Durdur' ;
     timer1.Enabled := true ;
     durdur := true ;
     Button4.Enabled := false ;
   end else
    begin
      Button3.Caption := 'Devam et' ;
      Button4.Enabled := True ;
      timer1.Enabled := true ;
      durdur := false  ;
    end ;
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
if durdur then
 begin
  inc(zaman) ;
  Label7.Caption := SifirEkle(IntToStr(zaman)) ;
  if zaman = 100 then
    begin
      Label7.Caption := '00' ;
      zaman := 00 ;
      inc(zaman1) ;
      Label8.Caption := SifirEkle(IntToStr(zaman1)) ;
      if zaman1 = 60 then
        begin
          Label8.Caption := '00' ;
          zaman1 := 00 ;
          inc(zaman2) ;
          Label9.Caption := SifirEkle(IntToStr(zaman2)) ;
          if zaman2 = 60 then
            begin
              Label7.Caption := '00' ;
              Label8.Caption := '00' ;
              Label9.Caption := '00' ;
              zaman2 := 00 ;
            end ;
        end ;
    end ;
 end ;
end;

Function TMainForm.SifirEkle(Sayi : String) : String;
var
 a:Integer;
begin
  //" 1" yerine "01" olmasını sağlıyor.
  result := sayi;
  for  a := 1 downto Length(Sayi) Do Result :='0'+Result;
end;

procedure TMainForm.Button4Click(Sender: TObject);
begin
  Button3.Caption := 'Başla' ;
  label7.Caption  := '00';
  label8.Caption  := '00';
  label9.Caption  := '00';
  zaman  := 00 ;
  zaman1 := 00 ;
  zaman2 := 00 ;
end;