Forum: Programmieren allgemein
Delphi
by hemmingway,
4. Nov 2021
for var i := 1 to JSONString.Length do
begin
if JSONString = '\' then
begin
if (JSONString <> '\') and (JSONString <> '"') then
JSONString := #1;
end;
end;
JSONString := StringReplace(JSONString, '\', '', );
JSONString := StringReplace(JSONString, #1, '\\', );
Forum: Programmieren allgemein
Delphi
by hemmingway,
28. Okt 2021
Für die formatierte Ausgabe mit Bordmitteln geht auch folgendes:
var Export := TExport.Create; // Das zu exportierende Object
var m := TJSONMarshal.Create(TJSONConverter.Create);
var SerializedExport := m.Marshal(Export) as TJSONObject;
var JSONString := SerializedExport.ToString;
SerializedExport.Free;
JSONString := StringReplace(JSONString, '\\', '', );
JSONString :=...