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