Ich befürchte StringReplace ist ein gefährlich falscher Ansatz.
Notfalls eher (vom Prinzip her) sowas:
Delphi-Quellcode:
type
TWhatEver = class
FText : String;
end;
...
function ConvertMe(sVal : String) : String;
var
obj : TWhatEver;
begin
try
obj := TJson.JsonToObject<TWhatEver>('{"text":' + sVal + '}');
try
Result := obj.FText;
finally
obj.Free();
end;
except
Result := '';
end;
end;
Obwohl das auch schon echt bäh ist!
Und bitte nochmal drüber schauen.
LG Incocnito