Unbegrenzt viele Nachkommastellen

[Dano]

hi Hagen

ich habe mal ne kleines test-interface zusammengebastelt
ich deklariere ein interface
initialisiere mit einer function meine felder und die VMT
soweit läuft alles prima *juhu*

nun bereiten mir aber aufrufe denen ich einen parameter übergebe probleme

Delphi-Quellcode:

type
  IMyInterface = Interface(IInterface)
    function GetName: String; stdcall;
    procedure SetName(Name: String); stdcall;
    function GetRefCount: Integer; stdcall;
    property Name: String read GetName write SetName;
  end;

wenn ich TestInterface.Name:='Hallo! ;)'; aufrufe pusht er zuerst den zeiger auf den string
dann pusht er den zeiger auf meinen interface record
dann call't er die funktion SetName(Name: String)

soweit alles ok *freu*

jetzt kommt der übliche stackrahmen (push ebp, mov ebp,esp......) und dann will er den referenzzähler des string erhöhen, und das geht schief
der holt sie den falschen zeiger vom stack ( -> exception).... generell verwechselt er die var's aufm stack
die sind alle um eins verschoben..... ich denke mal das das interface automatisch ein self aufn stack haut(macht er ja auch), und vom compiler wird das in der function nicht berücksichtigt

gibts für das problem ne lösung?

mfg Dano