Сообщение об ошибке

Deprecated function: The each() function is deprecated. This message will be suppressed on further calls в функции menu_set_active_trail() (строка 2405 в файле /home/kpaco123/e-helper/includes/menu.inc).

Date ()

Функція Date: TDateTime;

Опис: Функція повертає поточну дату у форматі TDateTime.

Приклад

var

S: string;

begin

S: = DateToStr (Date);

MessageDlg ('Поточна дата:' + S, mtInformation,[mbOk], 0);

end;