Советы по Delphi. Версия 1.4.3 от 1.1.2001

Поделиться книгой

Описание книги

Серия:
Страниц: 130
Год:

Содержание

Отрывок из книги

Даты Добавление даты и времени в компонент Memo Delphi 1 { Следующий код вставляет значение даты/времени в memo-поле. } Var s : string ; begin s := DateToStr( Date ) + ' ' + TimeToStr( Time ) + ' :'; Memo1.Lines.Insert(0, s); Memo1.SetFocus; Memo1.SelStart := Length(s); Memo1.SelLength := 0; Вычисление даты Пасхи II Delphi 1 function easter (year: integer): tdatetime; {----------------------------------------------------------------} { Вычисляет и возвращает день Пасхи определенного года. } { Идея принадлежит Mark Lussier, AppVision <MLussier@best.com>. } { Скорректировано для предотвращения переполнения целых, если по } { ошибке передан год с числом 6554 или более. } {----------------------------------------------------------------} var nMonth, nDay, nMoon, nEpact, nSunday, nGold, nCent, nCorx, nCorz: Integer; begin { Номер Золотого Года в 19-летнем Metonic-цикле: } nGold := (Year mod 19) + 1; { Вычисляем столетие: } nCent := (Year div 100) + 1; { Количество лет, в течение которых …

Популярные книги

Советы по Delphi. Версия 1.4.3 от 1.1.2001

Поделиться книгой


Notice: Undefined index: book_series in /home/fantasy/fanread/www/templates/fr/tpl/book_view.tpl.php on line 175
arrow_back_ios