so, hab die letzte Stunde versucht die TypInfo zu debuggen ...
TTypeData > tkSet: (CompType: PPTypeInfo));
bei Sets mit freien Stellen ist CompType nicht vorhanden (= nil)
in der TypInfo.SetToString wird dieses hier
GetTypeData(PropInfo^.PropType^)^.CompType
aufgerufen, liefert nil und da es daraufhin ungeprüft dereferenziert wird,
TypeInfo := GetTypeData(PropInfo^.PropType^)^.CompType^;
knallt es.
die Frage ist nur, warum gibt es, bei sowas
Code:
TXMLNodeType = (xtInstruction, xtTypedef, xtElement, xtCData, xtComment, xtUnknown[color=#ff0000][b]=6[/b][/color]);
TXMLNodeTypes = Set of TXMLNodeType;
, keine PPTypeInfo mehr?
[edit=alzaimar]'freuen' -> 'freien' auf Bitten des Beitragverfassers. Mfg, alzaimar[/edit]