PAnsiChar utf8 русские буквы ?

[Должно быть имя?]

Как конвертировать PAnsiChar в PAnsiChar но чтоб urf8 были русскими буковками ?

с PWideChar все понятно а PAnsiChar никак не хочет

function ZvalStrPAChar;
begin
  Result := '';
  case z._type of
    IS_BOOL, IS_LONG   : Result := PAnsiChar(AnsiString(inttostr(z.value.lval)));
    IS_DOUBLE          : Result := PAnsiChar(AnsiString(FloatToStr(z.value.dval)));
    IS_STRING          : Result := z.value.str.val;
  end;
end;

[Somebody]

Что-что? Вопрос непонятен.

[Должно быть имя?]

Сообщение от Somebody

Что-что? Вопрос непонятен.

У меня PAnsiChar получает строку в UTF8. И надо как то конвертировать в понятный вид, без кракозябр... На всякий случай приложу пример с PWideChar

function ZvalStrPWChar;
begin
  Result := '';
  case z._type of
    IS_BOOL, IS_LONG   : Result := StringToOleStr(WideString(inttostr(z.value.lval)));
    IS_DOUBLE          : Result := StringToOleStr(WideString(FloatToStr(z.value.dval)));
    IS_STRING          : Result := StringToOleStr(WideString(UTF8String(z.value.str.val)));
  end;
end;

[Streletz]

Возможно, эта тема как-то поможет:delphi 7 - utf8 to ansi

[Должно быть имя?]

Сообщение от Streletz

Возможно, эта тема как-то поможет:delphi 7 - utf8 to ansi

Мои значения не такие уж маленькие -_- я могу получить русский текст

ShowMessage(AnsiString(UTF8String(z.value.str.val)));

Но когда пытаюсь переконвертировать в PAnsiChar, то кодировка опять слетает, как будто этот тип не дружит с utf8, или я делаю что то не так

ShowMessage(PAnsiChar(AnsiString(UTF8String(z.value.str.val))) );

И да, у меня Delphi XE7

[Streletz]

Сообщение от Должно быть имя?

И да, у меня Delphi XE7

В XE7 тоже есть функция Utf8ToAnsi.

[Должно быть имя?]

Сообщение от Streletz

В XE7 тоже есть функция Utf8ToAnsi.

Так а зафиг она мне??? легко можно глянуть что она вернет = WideString, а он мне нафиг не сдался, если в конечном итоге мне нужно получить PAnsiChar с русскими буквами

Именно PAnsiChar. А не AnsiString, WideString или PWideString - PWideChar

Сообщение от Должно быть имя?

Так а зафиг она мне??? легко можно глянуть что она вернет = WideString, а он мне нафиг не сдался, если в конечном итоге мне нужно получить PAnsiChar с русскими буквами

Именно PAnsiChar. А не AnsiString, WideString или PWideString - PWideChar

....................

[Vapaamies]

Аффтар, ты чудак. Приведенная тобой процедура неработоспособна в любом случае, поскольку PAnsiChar нельзя передавать наружу просто так, если только это не константная строка.

Опиши изначальную задачу.

[Должно быть имя?]

Сообщение от Vapaamies

Аффтар, ты чудак. Приведенная тобой процедура неработоспособна в любом случае, поскольку PAnsiChar нельзя передавать наружу просто так, если только это не константная строка.

Опиши изначальную задачу.

Просто надо создать несколько функций, которые возвращают разные строковые типы

  function ZvalStrS(z:zval) : string; // есть поддержка UTF8
  function ZvalStrA(z:zval) : AnsiString; // есть поддержка UTF8
  function ZvalStrW(z:zval) : WideString; //есть поддержка UTF8

  function ZvalStrPAChar(z:zval) : PAnsiChar; // НЕТУ поддержки UTF8

  function ZvalStrPWChar(z:zval) : PWideChar; // есть поддержка UTF8

[Stilet]

создать несколько функций, которые возвращают разные строковые типы

А почему тогда через PБлаБлаChar? Почему не именно строку как обычно?
И Зачем столько разных функций? Я бы например использовал не их а класс TEncoding - надежнее получилось бы.