Скачать: CL | DM;

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;

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

---

← →
palva ©   (2005-12-05 21:01) [6]

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

---

← →
Prohodil Mimo ©   (2005-12-07 01:17) [7]

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 ©   (2005-12-07 01:32) [8]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.063 c