Импортировать файл в Win кодировке

[artkashin]

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

[unalexia]

Цитата:

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

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

а можно по e-mail anlex@mail.ru прислать объект (в текстовом формате). мне очень важны переменные Text0001 и Text0002, а при копировании из данного сообщения они искажаются.....