Создание файла в DOS или в Windows кодровке

[Dimis]

Цитата:

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

Должно побыстрее работать, но не сравнивал

Init()
  ASCIIstr:=' АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя№#';
  ANSIstr:= ' ЊЌЋЏђ‘’“”•–—˜™љ›њќћџЈҐ©«­®±Ііґµ»рстуфхцчшщъыьэюяЁёЄєЇїЎў°ј·Ѕ№¤ѕ N ';
  ANSIstr[66]:=185;
  ANSIstr[67]:=160;

DosWin(New : Text[1024]) : Text[1024]
EXIT(CONVERTSTR(New,ASCIIstr,ANSIstr));

Добрый день. не хочется казаться профаном, но как получена строчка ' ЊЌЋЏђ‘’“”•–—˜™љ›њќћџЈҐ©«­®±Ііґµ»рстуфхцчшщъыьэюяЁёЄєЇїЎў°ј·Ѕ№¤ѕ N ', ведь у ANSI она выглядит ЂЃ‚ѓ„…†‡€‰Љ‹ЊЌЋЏђ‘’“”•–—˜™љ›њќћџ ЎўЈ¤Ґ¦§Ё©Є«¬­®Ї°±Ііґµ¶·ё№є»јЅѕїАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя