Typinformation von Records

[jensw_2000]

Ich habe hier (klick) eine Unit von Sirius gefunden, mit der man dynamische Strukturen komfortabel in einen Stream packen kann.
Bleibt das Problem, das TypeInfo(TMyRecord) nur funktioniert, wenn der Record einen Member vom Typ Variant hat.

Beispiel:

Delphi-Quellcode:

Type
  TMyRecord1 = packed Record
    aInteger    : integer;
    aString     : String[100];
  end;

...

Typeinfo(TMyRecord1)     >>>>  Der Typ TMyRecord1 enthält keine TypInformation.

Delphi-Quellcode:

Type
  TMyRecord2 = packed Record
    Dummy       : variant;
    aInteger    : integer;
    aString     : String[100];
  end;

Typeinfo(TMyRecord2)      >>>>  geht

Warum ist das so ?
Kann ich irgendwie an die Typinformation kommen ohne einen Variant in den Record zu stecken ?

Der Record wird als Parameter zum Aufruf einer DLL Prozedur verwendet. Die DLL verwendet kein Sharemem. Daher habe ich etwas Respekt vor dem Variant, weil der der geneigte "DLL Benutzer" versuchen könnte, lange Strings über den Variant zu transportieren.



Schöne Grüße,
Jens