Показать сообщение отдельно
  #3  
Старый 12.04.2017, 01:02
lmikle lmikle сейчас на форуме
Модератор
 
Регистрация: 17.04.2008
Сообщения: 7,799
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Не совсем так. С юникодом там чуть-чуть посложнее.
Попробуй примерно так:
Код:
type
  TCyrString = AnsiString(1251); // указываем кодовую страницу
var
  a_s : TCyrString;
  apc : PAnsiChar;
  s : String; // UnicodeString by default
begin
  ...
  dll_function_call(apc);
  a_s := TCyrString(apc);
  s := a_s;
Собственно, мы принудительно сообщаем компилятору кодовую страницу для AnsiString. Ну а дальше он должен все сделать сам.
Ответить с цитированием