Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by BBoy,
30. Sep 2016
Dann bedeutet die if Abfrage also:
Solange im Array result daten sind tue folgendes...
Dennoch ist das ganze für mich etwas undurchsichtig. Ziemlich abstrakt für mich... Damit muss ich mich mal gesondert auseinandersetzen :)
Danke!
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by BBoy,
30. Sep 2016
Das muss man erst mal verstehen :) Hier meine Lösung:
var
X, Obj: ISuperObject;
AMember, OMember: IMember;
begin
X := TSuperObject.Create(result_string);
for AMember in X.A do begin
for OMember in AMember.AsObject do begin
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by BBoy,
29. Sep 2016
Hatte bisher nie mit json zu tun. Habe mir nun x-superobject-master heruntergeladen und mich daran versucht.
Im result_string sind die json daten.
X := SO(result_string);
memo1.Lines.Add( X.AsString );
memo1.Lines.Add( X.AsString );
memo1.Lines.Add( X.AsString );
memo1.Lines.Add( X.AsString );
memo1.Lines.Add( X.AsString );