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