JSon Formatieren

[hemmingway]

for var i := 1 to JSONString.Length do
begin
if JSONString[i] = '\' then
begin
if (JSONString[i+1] <> '\') and (JSONString[i+1] <> '"') then
JSONString[i] := #1;
end;
end;
JSONString := StringReplace(JSONString, '\', '', [rfReplaceAll]);
JSONString := StringReplace(JSONString, #1, '\\', [rfReplaceAll]);
JSONString := StringReplace(JSONString, '"{', '{', [rfReplaceAll]);
JSONString := StringReplace(JSONString, '}"', '}', [rfReplaceAll]);

Mit dieser Variante kann man ein einzelnes \ in Pfadangaben retten.

Viele Grüße, Bernhard