String -> WideString

← →
BST (2005-12-05 18:07) [0]

Помогите пожалуйста кодом :)
ситуация: Есть

str:="Hello AsWorld";
нужно переформатировать в Unicode (CP_UTF8);

З.Ы. Я нашел похожий вопрос в яндексе, но ссылка гнилая на вашем сайте.. А поис у вас не работает, так что сорьки если уже такую тему поднимали...

З.З.Ы Функция из Хелпа не работает, выдаёт пустой результат, может пользоваться научите .. или попроще пример дадите

Спасибо за помощь!

← →
BST (2005-12-05 18:51) [1]

Помогите пожалуйста :(

← →
Alexandr Bydantcev © (2005-12-05 19:01) [2]

А стандартная функция StringToWideChar не подходит?

← →
Andrey.Ru (2005-12-05 19:07) [3]

MultiByteToWideChar(CP_ACP, 0, PCHAR, Integer, PWideChar, 0) ;

← →
Alexandr Bydantcev © (2005-12-05 19:27) [4]

Ну под тип примера сойдет

var str,s:String;
wide:PWideChar;
x:integer;
begin
str:="Hello";
x:=sizeof(WideChar)*length(str)+1;
GetMem(wide,x);
StringToWideChar(str,wide,x);
s:=WideCharToString(wide);
Freemem(wide);
ShowMessage(s);
end;

← →
BST (2005-12-05 19:50) [5]

Вообще - то .. нашел.. Для Нупов таких как я

ДЕлается так:

var
s1 : String;
s2 : WideString;

begin

S2 := S1;

end;

Все переформат автоматом

> Все переформат автоматом
Вам же надо было CP_UTF8

Function AnsiToWide(AText:String;Lang:Word):Variant; Var Len:Integer; WS:WideString; Begin Len:=Length(AText); SetLength(WS,Len); // overallocate, trim later Len:=MultiByteToWideChar(Lang,0,PChar(AText),Len,PWideChar(WS),Len); If Len<0 then Len:=0; SetLength(WS,Len); Result:=WS; End;

Prohodil Mimo © (07.12.05 1:17) [7]
Function AnsiToWide(AText:String;Lang:Word):Variant;

потому что я в Excel значения передавал.

String -> WideString Найти похожие ветки