Zitat von
GuenterS:
ganz am anfang der Liste kommen die richtigen Properties, danach die falschen.
Ahhhhrrrrrrg!!
GetPropList() liefert die Anzahl der Properties zurück. Deine While-Schleife ist falsch.
Hier ist eine For-Schleife angebracht:
Delphi-Quellcode:
prop_count := GetPropList(obj.ClassInfo, type_kinds, nil);
....
for i := 0 to prop_count - 1 do