Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Interface. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,





 

Uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

 

Type

TForm1 = class(TForm)

Timer1: TTimer;

Label1: TLabel; // время

Label2: TLabel; // дата и день недели

procedure Timer1Timer(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormPaint(Sender: TObject);

procedure ShowTime;

private

{ Private declarations }

public

{ Public declarations }

end;

 

Var

Form1: TForm1;

 

Implementation

Const

stDay: array [1..7] of string [11] =

('воскресенье','понедельник','вторник',

'среда','четверг','пятница','суббота');

 

stMonth: array [1..12] of string [8] =

('января','февраля','марта',

'апреля','мая','июня','июля',

'августа','сентября','октября',

'ноября','декабря');

 

{$R *.dfm}

procedure TForm1.ShowTime;

var Time: TDateTime; // текущее время

Begin

Time:= Now(); // получить системное время

Label1.Caption:= FormatDateTime('hh:mm:ss',Time);

end;

 

procedure TForm1.Timer1Timer(Sender: TObject);

Begin

ShowTime; // отобразить время

end;

 

procedure TForm1.FormCreate(Sender: TObject);

Var

Present: TDateTime; // текущая дата и время

Year, Month, Day: Word; // год, месяц и число, как

// отдельные числа

Begin

Present:= Now; // получить текущую дату

DecodeDate(Present, Year, Month, Day);

Label2.Caption:= 'Сегодня '+IntToStr(Day)+ ' ' +

stMonth[Month] + ' '+ IntToStr(Year)+

' года, '+ stDay[DayOfWeek(Present)];

 

// настроить и запустить таймер

Timer1.Interval:= 1000; // период сигналов таймера 1 с

Timer1.Enabled:= True; // пуск таймера

end;

 

procedure TForm1.FormPaint(Sender: TObject);

Begin

ShowTime; // отобразить часы

end;

 

end.

 

 








Дата добавления: 2015-09-04; просмотров: 601. Нарушение авторских прав; Мы поможем в написании вашей работы!




Шрифт зодчего Шрифт зодчего состоит из прописных (заглавных), строчных букв и цифр...


Картограммы и картодиаграммы Картограммы и картодиаграммы применяются для изображения географической характеристики изучаемых явлений...


Практические расчеты на срез и смятие При изучении темы обратите внимание на основные расчетные предпосылки и условности расчета...


Функция спроса населения на данный товар Функция спроса населения на данный товар: Qd=7-Р. Функция предложения: Qs= -5+2Р,где...

Задержки и неисправности пистолета Макарова 1.Что может произойти при стрельбе из пистолета, если загрязнятся пазы на рамке...

Вопрос. Отличие деятельности человека от поведения животных главные отличия деятельности человека от активности животных сводятся к следующему: 1...

Расчет концентрации титрованных растворов с помощью поправочного коэффициента При выполнении серийных анализов ГОСТ или ведомственная инструкция обычно предусматривают применение раствора заданной концентрации или заданного титра...

Тема 2: Анатомо-топографическое строение полостей зубов верхней и нижней челюстей. Полость зуба — это сложная система разветвлений, имеющая разнообразную конфигурацию...

Виды и жанры театрализованных представлений   Проживание бронируется и оплачивается слушателями самостоятельно...

Что происходит при встрече с близнецовым пламенем   Если встреча с родственной душой может произойти достаточно спокойно – то встреча с близнецовым пламенем всегда подобна вспышке...

Studopedia.info - Студопедия - 2014-2025 год . (0.011 сек.) русская версия | украинская версия