So, viel von dem, was ich mit der RTTI realisieren wollte klappt mittlerweile, aber dynamische Arrays entziehen sich meiner Macht. Zumindest ab einem bestimmten Punkt. Erstmal Bestandsaufnahme - so weit bin ich:



Der Constructor dient natürlich nur dem Testen...
Das klappt soweit, alle Ausgaben laufen wie geplant.
Nun sieht man aber schon, dass der Sache die Flexibilität fehlt- Lieber wäre es mir (Klartext: Alles andere ist schön anzusehen aber für mich völlig unbrauchbar), die Typinformationen als PPropList mit GetPropList auszulesen. Ums gleich vorwegzunehmen, auch das funktioniert - aber nur, solange das Array undimensioniert ist. Zur Veranschaulichung nochmal das eigentlich gleiche Codebeispiel, nur das es diesmal knallt:



Schon kommts zu ner Zugriffsverletzung irgendwo im Programm (welches, wie ihr euch sicherlich denken könnt nicht sonderlich groß ist). Grund ist laut Fehlermeldung ein Lesezugriff auf 9E0C7373 (Sollte mir die Speicheraddresse was sagen?)
Kommentier ich den Block um das SetLength herum aus, funktioniert wieder alles bestens.
Heißt für mich, ich kann auf meinen Array nur zugreifen, wenn ich entweder a) den Array noch nicht dimensioniert habe oder b) den Namen von vorn herein kenne.
Leider kommen beide Optionen für mich nicht in Frage.

Hat irgendjemand Erfahrungen mit der Angelegenheit, Denkanstöße oder sowas?

Edit: Ich finds fast schon peinlich, dass sich das so schnell wieder erledigt hat...
Also, das Problem ist gelöst, und ich will euch die Lösung nicht vorenthalten:



Eine Frage bleibt bei mir - warum ändert die "manuelle" Speicherverwaltung das Problem, und was macht Delphi bei der "automatischen" Speicherverwaltung falsch?

Nachtrag 2: Und kann mir vielleicht jemand erklären, wo PMyArray hinzeigt, und ob ich irgendwie ohne den Typecast DynArrayToVariant an mein Array kommen kann? Denn dieser Typecast funktioniert nicht, wenn das Array Objekte enthält, und genau darum gehts mir in meinem Ursprungsproblem. Leider funktionierts auch nicht mit Arrays von Pointern (was ich nicht verstehe, denn Pointer sind doch eigentlich nur Integerwerte), sonst könnt ich um das PRoblem drumrum arbeiten...

Der untenstehende Code soll das Ganze ein wenig verdeutlichen.
PMyArray1 zeigt auf TMyArray. Da TMyArray selber ein Pointer ist, hast Du jetzt bloß einen Pointer auf einen Pointer. Überdies hast Du, wenn ich mich nicht irre, PMyArray oben doppelt definiert. So was ist immer gefährlich.
PMyArray2 zeigt auf die erste belegte Speicherstelle des MyArray:



Wenn Du den Debugger drüberlaufen lässt, wirst Du sehen, dass PMyArray1 <> PMyArray2. Um an die Daten zu kommen, musst Du PMyArray2 benutzen.

Ein kleiner Hinweis: ich habe mal eine Unit "RTTI.pas" geschrieben, man kann sie immer noch auf Taks SVN-Server finden und sie ist auch getestet und ich bin bekannt für meinen leicht lesbaren Code :
http://www.linuxprofessionals.org/wsvn/filedetails.php?repname=dglgui&path=%2Fsandbox%2Ftraude%2FdglRTTI.pas&rev=121

Die Daten müssen geöffnet werden mit "TRTTI_Handler.OpenRTTI(AClient: TObject);" und demgemäß mit "TRTTI_Handler.CloseRTTI;" wieder geschlossen werden (siehe dort).

Ist mir eine Befriedigung wenn mal jemand fragt, denn als ich diese Unit geschrieben hatte, sagte man mir, das wäre Zeitverschwendung, denn es wird dem ursprünglichen Code keine Funktionalität hinzugefügt. Dem kann ich aber nicht zustimmen: Lesbarkeit bzw. Verständlichkeit ist ein Wert an sich. Die nackten Informationen in der Unit TypInfo sind ein wenig gewöhnungsbedürftig.

Viele Grüße,
Traude

Es ist leider so, dass die RTTI von Delphi / FreePascal bei Arrays sehr eingeschränkt beziehungsweise garnicht funktioniert. Wie du vielleicht festgestellt hast, kannst du auch kein Array direkt publizieren.

Wenn es immer noch um das Laden / Speichern von Daten geht, kann man die Arrays in Objekte kapseln, die dann so etwas wie LoadFromStream/SaveToStream implementieren, man also den Lade-/Speicherauftrag delegieren kann.

greetings

_________________
If you find any deadlinks, please send me a notification – Wenn du tote Links findest, sende mir eine Benachrichtigung.
current projects: ManiacLab; aioxmpp
zombofant network • my photostream
„Writing code is like writing poetry“ - source unknown

„Give a man a fish, and you feed him for a day. Teach a man to fish and you feed him for a lifetime. “ ~ A Chinese Proverb

Delphi bietet für dynamische "Listen" auch direkt schon ein paar Klassen an. Und zwar heißen die TCollection und TCollectionItem. In der VCL wird für Listen auch nur grundsätzlich solch eine Kombination (davon abgelittene Klassen) benutzt. Allerdings sind die Einträge in solchen Fällen auch meistens etwas koplexer. Also nicht einfach nur ein Integer oder so was. Dadurch relativiert sich der Overhead der durch die Klassen entstehen würde.