Hallo OLLI
Zitat von
OLLI_T:
So wie ich Deinen Code interpretiere gehört Deine
asm-Funktion zur Klasse TAnotherClass.
Nein, in den Klassen sind keine Methoden deklariert sondern dienen lediglich der Veranschaulichung des Problems mit den Attribute. Ich habe den Code zusammenhangslos verwendet.
Leider habe ich meinen Betrag etwas zu flüchtig abgegeben, er wird zwar kompiliert, allerdings zu Code, wie man ihn warhscheinlich nicht erwartet.
Wenn ich Dich richtig Verstanden habe, möchtest Du etwas in der Form
Delphi-Quellcode:
asm
//Result:= MyObject.FMyStyle.FMyFont.FMyColor
mov eax, TMyClass([ebx]).FMyStyle.FMyFont.FMyColor
end
haben, oder?
Dieser Source lässt sich leider nicht innerhalb eines Statements derefferenzieren und würde auch vom Delphi-Compiler in mehrere Statements übersetzt werden.
Sollte es sich bei einem Attribute allerdings um einen Record handeln, lässt sich der Zugriff über ein Displacement erreichen und Delphi übersetzt es korrekt:
Delphi-Quellcode:
TMyClass =
class
FAttribute : TPoint;
end;
var
myObject: TMyClass;
begin
myObject:= TMyClass.Create;
myObject.FAttribute.x:= 42;
myObject.FAttribute.y:= 23;
asm
mov ebx, myObject
mov ecx, TMyClass([ebx]).FAttribute.y
end;
Ich habe den Fall mit Deinem D5-Enterprise als auch mit D7-Architect getestet. Leider gibt der Compiler im Fall eines aggregierten Objekts weder eine Warnung noch einen Fehler aus.