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

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

Unicod > ANSI конвертация.


dracula ©   (2005-12-08 13:47:00) 

Проблема такая, есть компонент (дерево с чекбоксами) - он работает в юникоде, при нажатии на кнопку должен выдать список помеченных файлов, всё идёт хорошо, но русский текст выдаёт  ?????????? вопросами, понятное дело что надо конвертировать из Юникода во что-то более понятное. В региональных установках стоит USA это я специально поставил. По форумам порылся ничего непомогает, может кто сталкивался с такой проблемой? Можно ли её както решить.


dracula   (2005-12-08 15:59:00) [1]

function PWideToString(  pw : PWideChar  ) : string;
  var
     p : PChar;
     iLen : integer;
  begin
     {Get memory for the string}
     iLen := lstrlenw(  pw  ) + 1;
     GetMem(  p,  iLen  );
     {Convert a unicode (PWideChar) to a string}
     WideCharToMultiByte(  CP_ACP,  0,  pw,  iLen,  p,  iLen * 2,  nil,  nil  );
     Result := p;
     FreeMem(  p,  iLen  );
  end;


Всё помощь ненужна, удалось решить проблему =)


Наверх

Титульная страница Поиск, карта сайта Написать письмо