Проблема с функцией UTF8ToAnsi

[Kronos913]

С функцией UTF8ToAnsi возникла проблема
Когда в строке содержится какой-то "запретный" символ, которого нет в Ansi, то "бракуется" вся строка...
Отсюда вопрос: как сделать так, чтобы остальная строка передавалась нормально, без битых символов?

[DeepFlake]

Какая версия Delphi?
Вся строка браковаться не должна.
Если вместо русских букв появляются знаки вопроса, то это следствие того, что в текущей кодовой странице текста нет тех символов, которые вы пробуете показать.

[Kronos913]

Delphi 7

В том то и дело, что не знак вопроса, а просто если хоть один проблемный символ - то на выходе пустая строка

[DeepFlake]

var s, ch: String;
 ...
for ch in s do
   writeln('ch=',ch);

для юникода тоже должен работать

[DeepFlake]

Можно вот так ещё:

Iterating over string analysing individual codepoints
This code copies each codepoint into a variable of type String which can then be processed further.

procedure IterateUTF8(S: String);
var
  CurP, EndP: PChar;
  Len: Integer;
  ACodePoint: String;
begin
  CurP := PChar(S);        // if S='' then PChar(S) returns a pointer to #0
  EndP := CurP + length(S);
  while CurP < EndP do
  begin
    Len := UTF8CodepointSize(CurP);
    SetLength(ACodePoint, Len);
    Move(CurP^, ACodePoint[1], Len);
    // A single codepoint is copied from the string. Do your thing with it.
    ShowMessageFmt('CodePoint=%s, Len=%d', [ACodePoint, Len]);
    // ...
    inc(CurP, Len);
  end;
end;

То есть пробегают по каждому символу в строке , копируют его в ACodePoint . А вы его можете присоединять к новой строке, то есть сделать свою реализацию UTF8ToAnsi
------

Вот ещё

Iterating over string looking for ASCII characters
If you only want to find characters in ASCII-area, you can use Char type and compare with Txt[i] just like in old times. Most parsers do that and they continue working.

procedure ParseAscii(Txt: string);
var
  i: Integer;
begin
  for i:=1 to Length(Txt) do
    case Txt[i] of
      '(': Что-то делать;
      ')': что-то сделать;
    end;
end;

[Kronos913]

то есть сделать свою реализацию UTF8ToAnsi

По сути, так и пришлось делать - пилить свою версию преобразователя.

Сначала прогнал все char'ы от #32 до #255, чтобы посмотреть какой у них код в UTF8, а потом создать на основе этих данных декодер