@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;