Danke für den Hinweis.
Nachtrag @mk-soft:
Entweder übersehe ich wieder etwas oder es geht tatsächlich nicht, wenn ich deine BaseClass benutze (also die BaseClass Struktur mit meiner BHC-Struktur erweitere, so wie es Deine Klasse vorsieht.
Folgende Prozedur mit dem Macroaufruf ist gegeben:
Code: Alles auswählen
Procedure InitStructure(*this.strBHC_Database)
SetAscii(*this\strBHC_Header\sMagicWord, #BHC_HeaderMagicWord)
;... weiterer Code
EndProcedure
Code: Alles auswählen
Procedure Init(*this.strBHC_Database)
Debug "Initialize BHC_Database"
; weiterer Code
InitStructure(*this)
EndProcedure : AsInitializeObject(Init)
Code: Alles auswählen
PokeS(@*this\strBHC_Header\sMagicWord, #BHC_HeaderMagicWord, SizeOf(*this\strBHC_Header\sMagicWord), #PB_Ascii)
Die Textkonstante #BHC_HeaderMagicWord habe ich auch schon gegen "Test" getauscht - ohne Erfolg.