Сейчас на форуме: Rio (+6 невидимых)

 eXeL@B —› Оффтоп —› перекодировка в UTF-8
Посл.ответ Сообщение

Ранг: 34.8 (посетитель)
Активность: 0.01↘0
Статус: Участник

 Создано: 26 декабря 2008 22:47
· Личное сообщение · #1

Парни помогите плиз нужно в дельфи текст из мемо1 перекодировать в кодировку UTF-8 как можно такое реализовать? поиск ничего дельного не дал...




Ранг: 1288.1 (!!!!), 273thx
Активность: 1.29↘0
Статус: Участник

 Создано: 26 декабря 2008 22:54
· Личное сообщение · #2

AnsiToUTF8



Ранг: 107.5 (ветеран)
Активность: 0.15↘0
Статус: Участник

 Создано: 26 декабря 2008 23:26 · Поправил: Stack
· Личное сообщение · #3

в 2009 канает простое приравнение типов, в прошлых хз как но вариант Ara самый надежный.

вот еще че нашел в одной из старых прог

Code:
  1. function StringToPWide(sStr: string): PWideChar;
  2. var
  3.   pw: PWideChar;
  4.   iSize,INewSize: integer;
  5. begin
  6.   iSize := Length(sStr) + 1;
  7.   pw := AllocMem(iNewSize);
  8.   MultiByteToWideChar(CP_ACP, 0, PChar(sStr), iSize, pw, iNewSize);
  9.   Result := pw;
  10. end;


-----
Md5 fcbb6c9c9a5029b24d70f2d67c7cca74
 eXeL@B —› Оффтоп —› перекодировка в UTF-8

У вас должно быть 20 пунктов ранга, чтобы оставлять сообщения в этом подфоруме, но у вас только 0

   Для печати Для печати