Крякозябры вместо русских букв при записи в текствый файл

[JIEXA72]

При записи в текстовый файл, вместо русских букв записываются крякозябры. С английскими буквами все ок.

HtmlFile.CREATE('F:\test.txt');
HtmlFile.TEXTMODE(TRUE);
HtmlFile.CREATEOUTSTREAM(OutStreamFile);
OutStreamFile.WRITETEXT('Тут должны быть нормальные буквы!');
OutStreamFile.WRITETEXT('English');
HtmlFile.CLOSE;

Все уже, что знаю, перепробовал.

Похоже, что они записываются в ms-dos, потому что если открывать с помощью ворда, и выбрать кодировку MS-DOS то крякозябры превращаются в нормальные буквы.

[JIEXA72]

Проблема решается с помощью кодеюнита Localisation Management

[Alex Che]

Вообще-то в хелпе пишут, что TEXTMODE должен стоять до CREATE, не думаю, что это поможет, но...

И вообще, зачем нужен STREAM, почему нельзя писать просто в FILE?

UPD: Нет, перестановка не помогла, но пишет без СТРИМа.

[alexb_imported]

Проблема решается подменой кодировки в STREAM'e:

тextLoc := 'русский текст';
CREATE(StreamLoc);
StreamLoc.Open;
StreamLoc.Charset('windows-1251');  // русская кодировка
StreamLoc.WriteText('textLoc');

[JIEXA72]

Цитата:

Сообщение от AlexB

Проблема решается подменой кодировки в STREAM'e:

тextLoc := 'русский текст';
CREATE(StreamLoc);
StreamLoc.Open;
StreamLoc.Charset('windows-1251');  // русская кодировка
StreamLoc.WriteText('textLoc');

Этот код видимо для новой версии навижен. У меня таких функций нет. Версия 4.0 SP3

[JIEXA72]

Щя другая проблема, вместо символа № и ещё буква "я" периодически вылазит, не пойму вместо какого символа.

[JIEXA72]

№ исправил, осталось букву я убрать вместо хз чего

[JIEXA72]

Буква "я" вылазит при разделении на разряды. Получается вот так: 1 300 в файле пишется 1я300.

[JIEXA72]

Сделал так

  IF EVALUATE(dec,val) THEN 
   BEGIN
      val:= FORMAT(dec, 15, 9);
   END
   ELSE val:= Dos2Win(val);