Mega Code Archive

 

Categories / Delphi / Examples

 

Delphide digital saat yapimi

procedure TForm1.Timer1Timer(Sender: TObject); var DateTime : TDateTime; str : string; begin DateTime := Time; str := TimeToStr(DateTime); Label1.Caption := str; end;