Danke.
Forward Deklarationen waren mir bekannt, jedoch habe ich, das letze mal als ich sie benutzen wollte, wohl einen Fehler gemacht und es hat nicht funktioniert wie ich wollte. Deswegen habe ich es diesmal gar nicht probiert.
Zitat:
um zu viel Code auf der Seite zu vermeiden
Dateianhänge (
PAS mit dem nötigen Teil des Quellcodes)
Wenn in paar Jahren mal jemand das selbe Problem hat, könnte der externe Code weg sein.
Habe den Parser neu geschrieben und nun können auch ganze Objekte wieder zurückgegeben werden.
Der Code sollte in ein paar Tagen hier veröffentlicht werden.
Momentan ist es noch ein bisschen umständlich:
Delphi-Quellcode:
procedure TForm1.btn1Click(Sender: TObject);
var
format: string;
child : TJsonObject;
int : integer;
begin
Json := TJsonObject.Create;
Json.Parse(mmo1.Text);
Json.Format(mmo1.Text, format);
mmo1.Text := format;
child := TJsonObject.Create;
Json['obj'].GetValue(child);
child['id'].GetValue(int);
showmessage(IntTostr(int));
end;
Code:
{
"id": 1,
"age": 18,
"name": "Milos",
"
url": "http://delphipraxis.net",
"valid": true,
"obj": {
"id": 6,
"test": true
}
}
Falls Interesse am bisherigen Code steht, einfach nachfragen.
Freundliche Grüsse