Проблема с кодировкой (перенёс utf8toansi из 7 в XE)

[Alex11223]

Теперь? Изменили-то что?)

[Shouldercannon]

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

Теперь? Изменили-то что?)

Теперь - относится к символам. До этого был "неизвестный символ", теперь нормальные символы.
Код остался тем же, ничего в нём не менял.

[Alex11223]

Значит название функции врет, в ANSI так не может быть (под ANSI в данном контексте имеются в виду 1-байтовые кодовые страницы, то есть одна из них).

Посмотрите ее исходник в System.pas если он доступен в вашем издании Дельфи. В старых версиях там просто вызывается Utf8Decode и результат обрезается из WideString в string (AnsiString). Если в новых так же, то там string это уже не AnsiString, то есть ничего не обрежется и Utf8ToAnsi эквивалентен Utf8Decode.

Может быть оставили так для упрощения перехода со старых версий.

[Shouldercannon]

function Utf8ToAnsi(const S: _RawByteStr): string;
begin
  Result := string(Utf8ToUnicodeString(S));
end;

function UTF8ToUnicodeString(const S: _RawByteStr): UnicodeString;
var
  L: Integer;
  Temp: UnicodeString;
begin
  Result := '';
  if S = '' then Exit;
  L := Length(S);
  SetLength(Temp, L);

  L := Utf8ToUnicode(PWideChar(Temp), L + 1, _PAnsiChr(S), L);
  if L > 0 then
    SetLength(Temp, L - 1)
  else
    Temp := '';
  Result := Temp;
end;

[Alex11223]

Ну вот, примерно как я и сказал.