Einzelnen Beitrag anzeigen

Amateurprofi

Registriert seit: 17. Nov 2005
Ort: Hamburg
1.077 Beiträge
 
Delphi XE2 Professional
 
#3

AW: In Asm-Prozedur eine Exception auslösen

  Alt 3. Nov 2023, 06:58
Der Zeiger auf die Typdefinition der Klasse, welche erstellt werden soll, würd' ich mal sagen. (alternativ zur VMT, falls der Constructor virtuell wäre)
Hier also die Klasse "Exception".
(entspricht quasi sowas, wie dem versteckten Parameter "Self" einer nicht-static Class-Procedure)

siehe function _ClassCreate(InstanceOrVMT: Pointer; Alloc: ShortInt): Pointer; in der System.pas


Vielleicht einfacher, wenn du stattdessen Error oder RunError der System-Unit nutzt.
Danke, himitsu.
Hab mir Error und _RunError angeschaut.
Wenn ich das richtig verstehe, kann man bei beiden nur einen Fehlercode, nicht aber einen situationsbedingten Text übergeben.
Auf _ClassCreate war ich auch schon gestoßen, mir ist aber nicht klar, wie ich diesen Pointer ins EAX-Register hinein bekomme.
Sei doch so nett und schaue da noch mal rein.
Danke im Voraus.
Gruß, Klaus
Die Titanic wurde von Profis gebaut,
die Arche Noah von einem Amateur.
... Und dieser Beitrag vom Amateurprofi....
  Mit Zitat antworten Zitat