Stringbearbeitung - UTF8-Zeichensatz

[DeddyH]

Nicht unbedingt die performanteste Lösung, als Ansatz soll es aber erst einmal reichen:

Delphi-Quellcode:

function Irgendwas(const s: string): string;
var
  i, iCharCode: integer;
  CharPair: string;
begin
  Result := '';
  i := 1;
  while i < Length(s) - 1 do
    begin
      CharPair := Copy(s, i, 2);
      if TryStrToInt('$' + CharPair, iCharCode) then
        if (iCharCode >= Ord('A')) and (iCharCode <= Ord('Z')) then
          Result := Result + Chr(iCharCode);
      inc(i, 2);
    end;
end;