Модератор: Модераторы
Код: Выделить всё
program test;
var
i : Word;
begin
write ('введите i:'#10#13); Readln(i);
writeln('вы ввели: ',i); Readln;
end. 
Nik писал(а):Для Lazarus стандартная кодировка - UTF8. Если вы запускаете консольную программу в старых версиях Windows, в консоли, скорее всего, UTF8 не поддерживается. Выводите (и вводите) текст в кодировка win-1252. Функции преобразования на форуме не раз упоминали.
Mr.Smart писал(а):У локализованной Windows в консоли используется кодировка CP866.
Как вариант, в лазарус выбираем кодировку файла CP866 в редакторе текста правую кнопку мыши далее Параметры файла->Кодировка->CP866.
Код: Выделить всё
function OemFromAnsi(sIn: String): string;
var
s: string;
begin
s:=sIn;
AnsiToOem(PChar(s),PChar(s));
Result:=s;
end;
procedure WriteLnOem(s: string);
begin
WriteLn(OemFromAnsi(s));
end;
{...}
WriteLnOem('Привет!');
Mr.Smart писал(а):shraibikus
Смысл? Программа консольная и прекрасно работает преобразование кодировок в Лазарус.
Mr.Smart писал(а):UTF8ToSys, UTF8ToConsole и т.д.
Хотя, допускаю что я не прав.FAT12/16/32 знаю... NTFS... UDF, Ext2/3/4, ReiserFS, JFS, XFS, ZFS...shraibikus писал(а):результирующая файловая система cp1251
and писал(а):FAT12/16/32 знаю... NTFS... UDF, Ext2/3/4, ReiserFS, JFS, XFS, ZFS...shraibikus писал(а):результирующая файловая система cp1251
А cp1251 - это что за файловая система такая?
ФС - это лишь способ организации данных, а данные, как известно, работать не могут, они пассивны :-)shraibikus писал(а):а результирующая файловая система работает в кодировке cp1251 :(
dunin писал(а):and писал(а):...т.к. стоИт параллельно XPSP3 и 98SE. Про Ubuntu даже не говорю
Позвольте поинтересоваться, а 98SE на кой ляд?
(у машины, а не у кого Вы подумали)... таки оно работает, хотя это и не кошерно.... 
