Examples Delphi

  1. Home
  2. Delphi
  3. Examples
  4. Delphide digital saat yapimi
procedure TForm1.Timer1Timer(Sender: TObject);
var
DateTime : TDateTime;
str : string;
begin
DateTime := Time;
str := TimeToStr(DateTime);
Label1.Caption := str;
end;