Перекодировка в Unicod

← →
kaktus (2004-11-23 18:39) [0]

Была задача перегнать текстовик в Unicode - есть функция StringToWideString(...) - не получается! Получается что то не понятное, но никак не Unicode.

← →
Суслик © (2004-11-23 18:41) [1]

есть фукнция win api multibytetowidechar.

как юзать см. гуглом - примеров много.

на данном форуме переодически обсуждается.

← →
clickmaker © (2004-11-23 18:43) [2]

> kaktus (23.11.04 18:39)
> Была задача перегнать текстовик в Unicode - есть функция
> StringToWideString(...) - не получается

как пользуешься?

← →
kaktus (2004-11-23 18:54) [3]

сказать точно не погу потому как я в клубе-исходник с прогой дома - а лупил все по helpe

← →
demonSys (2004-11-25 11:31) [4]

Удалено модератором
Примечание: Задай вопрос в своей ветке

← →
kaktus (2004-11-25 12:39) [5]

Ответ ClickMaker-у:

procedure TForm1.Button1Click(Sender: TObject); var pwHandle : PWideChar; begin Edit1.Text := StringToWideChar(Memo1.Text,pwHandle, Length(Memo1.Text)); end;

Выдает:
EAccsesViolation with message "Accses violation at adress BFF7F19D in module KERNEL32.DLL"

Edit1.Text это не переменная а свойство, а тому же не Юникод, а АНСИ

← →
kaktus (2004-11-25 14:31) [7]

Все получилось!!!!!!!!!!!!!!!!!!!
procedure TForm1.Button1Click(Sender: TObject); var StrSource,StrDest:string; I:Integer; Tmp:WideString; begin strSource := Memo1.Text; Tmp:=StrSource; StrDest:=""; for I:=1 to Length(Tmp) do StrDest:=StrDest+"<"+IntToHex(Integer(Tmp[I]),4)+">"; Memo2.Text := StrDest; end;

Перекодировка в Unicod Найти похожие ветки