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