Records und RTTI?

[stoxx]

Hi Sirius,

das Verfahren ist mir noch nicht ganz klar. Würde es denn gehen, und wenn ja wie, dass die
property MyRecord mit in der Liste bei "GetPropList" erscheint?
Was meinst Du?

[sirius]

Leg in TmyRecord mal einen String rein und schaus dir an!

[stoxx]

Zitat:

Zitat von sirius

Leg in TmyRecord mal einen String rein und schaus dir an!

hmm .. naja .. Bedingung wäre, TMyRecord nicht zu verändern.
Es handelt sich bei uns um 2 oder 3 neue Standarddatentypen. so wie Double..

Ich hab auch schon geschaut ob man die Unit TypInfo ergänzen und /oder neu compilieren könnte.
Bin da aber nicht weiter gekommen.

Da gibts so SetFloatProp proceduren, bin aber da nicht weitergekommen.
Liegt sowas im Rahmen der Möglichkeiten? oder völlig aussichtslos?

Delphi-Quellcode:

procedure SetFloatProp(Instance: TObject; const PropName: string;
  const Value: Extended);
begin
  SetFloatProp(Instance, FindPropInfo(Instance, PropName), Value);
end;

ich würde gern auch die TTypeKind um einen oder zwei neue Typen erweitern

Delphi-Quellcode:

type
  TTypeKind = (tkUnknown, tkInteger, tkChar, tkEnumeration, tkFloat,
    tkString, tkSet, tkClass, tkMethod, tkWChar, tkLString, tkWString,
    tkVariant, tkArray, tkRecord, tkInterface, tkInt64, tkDynArray);

[sirius]

Zitat:

Zitat von stoxx

Liegt sowas im Rahmen der Möglichkeiten? oder völlig aussichtslos?

Wenn der Record so bleibt, ist es aussichtslos.

Delphi unterscheidet strikt zwischen Record mit dynamischen Inhalten (dynamische Arrays, Strings, Interfaces, Variant) und den anderen Records.

[stoxx]

Zitat:

Zitat von sirius

Wenn der Record so bleibt, ist es aussichtslos.

und wenn man "ganz" viel Aufwand betreiben würde, und die VCL komplett neu compilieren würde?
Und die Unit TypInfo um einen eigenen Typ erweitern würde?

Double hat ja auch keinen eigenen String.

Würde das dann möglich sein, oder spielt der Compiler dann nicht mit?

Die neuen Möglichkeiten der Operatorenüberladung bieten halt schöne Möglichkeiten eines neuen Datentyps.

[sirius]

Vielleicht (irgendwie gibt es ja auch myDouble), aber ich hab vor Montag keine Zeit da genauer drüber nachzudenken.

[stoxx]

ok, ich danke Dir :-)
ich guck da Montag nochmal ;-)

[stoxx]

Hi Sirius,

ich wollte Dich nochmal fragen, warum der Typ nicht als tkRecord im RTTI System auftaucht?
Muss man den Typ vorher irgendwo registrieren, damit er erfasst wird?
tkRecord muss ja irgendwie einen Sinn haben, oder?

:-)

Danke !

[sirius]

Sieht schlecht aus. In meinem verlinkten Code hatte ich sowieso die InitTable benutzt (da taucht auch kein double auf, weil es ja weder initialisiert noch finaliziert werden muss).
Bei den published properties (und Methoden) sind mir auch schon ein paar Ungereimtheiten aufgefallen. Z.B. werden bei manchen Methode die Paramter gespeichert ({MethodInfo on}) bei anderen nicht. Das Record scheint etwas besonderes an sich zu haben. Ändern kann man das meiner Meinung nach nicht. Der compiler arbeitet hier ganz autark und legt die RTTI so an, wie er sie benötigt. Die Unit TypInfo eröffnet nur eine Möglichkeit darauf zuzugreifen, sie ist aber keine Vorraussetzung für das Arbeiten des Compilers bzw. das Anlegen der RTTI.

[stoxx]

und man kann diese PropList nicht nachträglich patchen irgendwie? indem man den Eintrag hinzufügt?
Meine Kenntnisse sind dafür zu gering, aber die Liste muss doch irgendwo sein
die Funktion GetPropInfos ist dann leider Assembler :-(

aus Typinfo

Delphi-Quellcode:

function GetPropList(TypeInfo: PTypeInfo; out PropList: PPropList): Integer;
begin
  Result := GetTypeData(TypeInfo)^.PropCount;
  if Result > 0 then
  begin
    GetMem(PropList, Result * SizeOf(Pointer));
    GetPropInfos(TypeInfo, PropList);
  end;
end;