Thema: Delphi JSon Formatieren

Einzelnen Beitrag anzeigen

EWeiss
(Gast)

n/a Beiträge
 
#16

AW: JSon Formatieren

  Alt 24. Feb 2018, 16:17
Sieht sehr gut aus Danke..

Frage..
Was spricht gegen
function FormatJSONStr(AString : UTF8String): UTF8String;

Habe aber beim schreiben der Datei noch ein Problem.

Ich öffne die Datei mit TFileStream und fmOpenReadWrite das hat zur folge das dein formatierter Text angehängt und nicht den alten vollständig ersetzt.
Wie kann ich beim Stream erreichen das der Text vollständig ersetzt wird.

Das geht ja nur über fmOpenWrite oder?
Kann ich aber nicht verwenden da ich diese ja vorher einlesen muss.

gruss
  Mit Zitat antworten Zitat