Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.12;
Скачать: CL | DM;

Вниз

Перекодировка в 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"


 
Anatoly Podgoretsky ©   (2004-11-25 13:35) [6]

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;



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

Текущий архив: 2004.12.12;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.036 c
3-1100096254
Andriy Tysh
2004-11-10 17:17
2004.12.12
Как вывести отчёт КвикРепортом из КлиентДатаСета только те записи


14-1100092294
gn
2004-11-10 16:11
2004.12.12
Linux самая небезопасная операционная система в мире!


14-1101315996
Sicilla
2004-11-24 20:06
2004.12.12
Проверка почты


14-1100806076
Игорь Шевченко
2004-11-18 22:27
2004.12.12
Перечитывая Таненбаума (задачка)


3-1100521367
VadimK
2004-11-15 15:22
2004.12.12
Создание Cursor в ХП, через компоненты DBExpress