Версия для печати темы

Автор: Билли Боб 21.08.2011 18:08

При использовании кода

datetimetostring(s,'dddd dd mmmm yyyy',date);
writeln(s);

выводится дата, только почему день недели и месяц выведен иероглифами?
Как сменить кодировку на русский?
Или можно вывести на английском?

Автор: IUnknown 21.08.2011 19:03

Можно, начиная с FPC 2.4.4 (GetLocaleFormatSettings добавили в SysUtils именно в этой версии компилятора):

{$H+}
uses sysutils;

var
   date : tdatetime;
   s : string;

begin
   GetLocaleFormatSettings ($409, DefaultFormatSettings);
   date := Now;
   DateTimeToString (s, 'dddd dd mmmm yyyy', date);
   writeln (s);
end.

выдаст информацию на английском.