Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by tgvoelker,
4. Jul 2012
procedure EnumForms;
var pAddr:Cardinal;
pPC:^Cardinal;
pPS:^ShortString;
pS,pCN:ShortString;
pClass:TClass;
pExcept,pB:Boolean;
Begin
//nächste Zeile bereitet die Listen vor, zu denen später hinzugefügt wird
SetUpLists;
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by tgvoelker,
4. Jul 2012
Die werden wie folgt ausgeschlossen:
1. Prüfung: Zeigt ein ausgerichteter Pointer auf die eigene Adresse+Offset 88?
2. Prüfung: Entspricht der Klassenname beim Offset 32 dem, was der als TObjectClass gecastete Pointer aus (1) als "ClassName" zurückgibt? ==> EAccessError, wenn keine Klasse
3. Prüfung (redundant): über InheritsFrom(TObject).
Wenn die Methodenzeiger für GetClassName und...