Function ASCIITOUTF(ByRef text As String) As WString Ptr
Преобразует строку Ascii в строку Unicode . Возвращаемое значение: указатель на строку Unicode. После использования, указатель необходимо освободить с помощью Deallocate.
text - любая преобразуемая строка
Windows
#Include "window9.bi"
Dim As WString Ptr pwStr
Dim As String String_="Здравствуй мир!"
? String_
pwStr = ASCIITOUTF(String_)
? *pwStr
? UTFTOASCII(pwStr)
Sleep
DeAllocate(pwStr)
╟фЁртёЄтєщ ьшЁ!
Здравствуй мир!
╟фЁртёЄтєщ ьшЁ!
Created with the Personal Edition of HelpNDoc: Free help authoring tool