Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: JSon Formatieren

    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

  AW: JSon Formatieren

    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 :=...