Hallo zusammen,
Ich muss ein Json File erstellen der folgende Struktur hat.
Code:
{
"zahlungsmittel": "Bankomat",
"nachbonieren": true,
"positionen": [
{
"bezeichnung": "Rechnung Nr. 24",
"menge": 1,
"einzelpreis": 12000,
"ust": 19
},
{
"bezeichnung": "Rechnung Nr. 24",
"menge": 1,
"einzelpreis": 2000,
"ust": 19
]
}
Ich Habe im Netz "Superobject" gefunden und versucht damit die Json Files zu erstellen.
Leider habe ich ein Problem, dass ich die Struktur bzw. Reihenfolge nicht hinbekomme. Die Bezeichnungen sind Variabel
Hier mein Beispielcode Code:
Benutze Delphi XE2 Pro
Delphi-Quellcode:
//...
var
json, json_sub: ISuperObject;
begin
json := SO;
json.S['zahlungsmittel'] := 'Bar';
json.O['positionen'] := SA([]);
json.s['Bezeichnung'] := 'P1';
json.s['menge'] := '1';
json.s['einzelpreis'] := '1490';
//json.S['zahlungsmittel'] := 'Bar';
//json.O['zahlungsmittel'] := SA([]);
json.SaveTo(Belegname+'.json');
json := nil;
json_sub := nil;
end;
Ich hoffe Ihr könnt mir helfen.
Gruß Pet
PS hatte mit Json noch nichts zu tun.