datetimetostring(s,'dddd dd mmmm yyyy',date);
writeln(s);
выводится дата, только почему день недели и месяц выведен иероглифами?
Как сменить кодировку на русский?
Или можно вывести на английском?
datetimetostring(s,'dddd dd mmmm yyyy',date);
writeln(s);
{$H+}выдаст информацию на английском.
uses sysutils;
var
date : tdatetime;
s : string;
begin
GetLocaleFormatSettings ($409, DefaultFormatSettings);
date := Now;
DateTimeToString (s, 'dddd dd mmmm yyyy', date);
writeln (s);
end.