Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2006.01.08;
Скачать: [xml.tar.bz2];

Вниз

Unicod > ANSI конвертация.   Найти похожие ветки 

 
dracula ©   (2005-12-08 13:47) [0]

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


 
dracula ©   (2005-12-08 15:59) [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;


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



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

Форум: "Основная";
Текущий архив: 2006.01.08;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.009 c
2-1134893578
Lokk
2005-12-18 11:12
2006.01.08
эврестический алгоритм


2-1135078627
Crass
2005-12-20 14:37
2006.01.08
Редактирование больших файлов


4-1130771115
KorvinOE
2005-10-31 18:05
2006.01.08
Поиск по файлам


14-1134548344
Lost_delpher
2005-12-14 11:19
2006.01.08
конверт TDateTime - DOUBLE - разные рез-ты


6-1127725974
vishnya
2005-09-26 13:12
2006.01.08
Электронная цифровая подпись для писем





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский