PPropInfo dynamsich anlegen

[TheFrog]

Ich brauche in meinem Programm eine dynamsich erzeugte PPropInfo, damit ich RTTI "simulieren" kann.

Ich habe folgenden Versuch gemacht, diese im Speicher anzulegen:

Delphi-Quellcode:

  
  var
    FPropInfo: PPropInfo;

  // PropInfo initialisieren
  GetMem(FPropInfo, SizeOf(TPropInfo));
  GetMem(FPropInfo^.PropType, SizeOf(Integer));
  GetMem(FPropInfo^.PropType^, SizeOf(TTypeKind));

Liege ich damit richtig, irgendwie stehe ich auf dem Schlauch!

Merci, Hans.

[Tryer]

Ein einfaches New(FPropInfo); sollte reichen.

MfG,
Dirk

[Apollonius]

Dadurch werden die anderen Zeiger aber nicht angelegt.

@Ersteller: Das sieht grundsätzlich ganz gut aus, für FPropInfo^.PropType^ brauchst du aber mehr Speicher - hinter dem TTypeKind steht noch eine Längenangabe, der Name des Typs und einige andere Informationen, die abhängig vom TypeKind sind.

[TheFrog]

Das mit New(FPropInfo) war auch mein erster Gedanke.

Da aber PropType ein Pointer auf einen Pointer auf einen Record ist, ist die Sachen nicht so einfach.

Ich habe jetzt einfach die Record-Typen, also TPropInfo, usw. in der Klasse angelegt und den Zeiger darauf zeigen lassen.

Delphi-Quellcode:

var
  FPropInfoRecord: TPropInfo;
  FTypeKindPointer: PTypeInfo;
  FTypeKindRecord: TTypeInfo;

  FPropInfo := @FPropInfoRecord;
  FPropInfo^.PropType := @FTypeKindPointer;
  FTypeKindPointer := @FTypeKindRecord;

Nicht sehr elegant, aber es hat funktioniert und das auch noch ohne Speicherloch!

Danke allen, Hans.

[generic]

Schnapp dir D2010 - da brauchst du den Humbug nicht mehr machen. Die neue RTTI ist Klasse.