Oh! Ich dachte, ich hätte das vor einer Woche im Quellcode mal nachgesehen - aber mich da wohl vertan. Danke für den Hinweis. Dann macht es ja auch Sinn, dass es so nicht funktioniert.
Seltsam dabei ist aber, dass ich, wenn ich auf TObjectList caste, bei
TObjectList(lList).Count
ein sinnvolles Ergebnis bekomme...
Aber Danke, das sollte mir nun schon ein wenig weiterhelfen.
Ach ja, und wegen des Designs, da verstehe ich Eure Vorbehalte schon. Aber ich möchte gerne in einer Elternklasse sowas schreiben wie eine Funktion "AsObject" oder "AsArray" und das dann für die Objekte, die die Kinder erzeugt haben einführen. Das Endprodukt sollte sowas sein, wie ein FluentInterface der Art
Delphi-Quellcode:
Einzelnes JsonObject := CreateIrgendeineObjektList.FiltereDieListe.AsObject.AsJson; // nur das erste gefundene
JsonArray := CreateIrgendeineObjektList.FiltereDieListe.AsArray.AsJson;
Und da würde ich die Funktionen AsArray, AsObject, AsJson gerne für alle denkbaren Objekte gestalten. Daher die Casts.
Viele Grüße
Harald