| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

kaktus ©   (2004-11-23 18:39:00) 

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

---

kaktus   (2004-11-25 14:31:00) [1]

Все получилось!!!!!!!!!!!!!!!!!!!

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;


---

Anatoly Podgoretsky   (2004-11-25 13:35:00) [2]

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

---

kaktus   (2004-11-25 12:39:00) [3]

Ответ 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'

---

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

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

---

kaktus   (2004-11-23 18:54:00) [5]

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

---

clickmaker   (2004-11-23 18:43:00) [6]

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

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

---

Суслик   (2004-11-23 18:41:00) [7]

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

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

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

---

Наверх