Kind as Opa innerhalb der Deklerartion

[Aphton]

Zitat von sirius:

@Aphton:

Delphi-Quellcode:

procedure TKind.MeinName;
var i:Integer;
    s:string;
begin
  asm
    pushad
  end;
  s:='test';
  for i:=0 to 0 do showmessage('Damit es nicht durch Zufall doch klappt');
  asm
    popad
    call TOpa.MeinName
  end;
  ShowMessage( '(Kind:) a gugugugu' +s);
end;

Aber mach doch, wie ich schon schrieb, ein mov eax,self direkt vor den Aufruf.

Nö - was machst du, wenn die vorigen calls eax modifizieren?
Mit pusad "sichere" ich nur aus sicherheitsgründen die ganzen Register ... Man weiß ja nie, was zwischendrin so alles geschehen kann!

MfG