HTTP.Get/Post - Umlaute anzeigen

[TERWI]

@General
Dieses SuperObjetct werde ich mir trotzdem mal ansehen.
Wird wahrscheinlich an anderer Stelle eine meiner "Krücken" ersetzen.

Nictsdestotrotz habe ich da noch ein wenig getippt.
Hier meine Kleine Routine, welche beliebig viele \u00?? in einem String ersetzt.

Delphi-Quellcode:

function DecodeJString(text : array of ansichar) : ansistring;
var
  len, p1, p2, val : integer;
begin
  result := '';
  len    := length(text);
  p1     := 1;
  p2     := PosEx('\u00', text, p1);
  if (p2 > 0) then
  begin
    while (p2 > 0) do
    begin
      val := hextoint(text[p2 + 3] + text[p2 + 4]);
      result := result + copy(text, p1, p2 - 1) + chr(val);
      p1 := p2 + 6;
      p2 := PosEx('\u00', text, p1);
    end;
  end;
  result := result + copy(text, p1, len - p2);
end;