Float-Parameter per ASM übergeben

[Neutral General]

Hi,

Also du hast mir bisher sehr geholfen. Es tut mir Leid, aber ich muss nochmal weiter nachfragen

Ich habe jetzt die "Float-Kompatibilität" auf die Parameter 3-n erweitert (bzw 4-n wenn man Self mitzählt), also die Parameter die auf dem Stack abgelegt werden.

Jedoch kommt bei mir in der Funktion immer nur der Wert: -3,6854775808e-3509.

Außerdem erhalte ich die Exception: "Ungültige Gleitkommaoperation in meiner Test4-Procedure:

Delphi-Quellcode:

procedure TForm1.Test4(b: Byte; S: String; f: Extended); //b und S sind nur damit f der dritte parameter sein kann
begin
  ShowMessage(S + ' ' + FloatToStrF(f,ffNumber,5,2) + IntToStr(b));
end;

Hab mir auch den Stack angeguckt: Ich glaube da ist diesesmal nichts verschoben, er sieht jetzt immer total anders aus...

Hier der Code:

Delphi-Quellcode:

procedure TForm1.ExecuteScriptMethod(Method: String;
  Params: array of Const);
var max,off: Integer;
    proc: Pointer;
begin
  proc := MethodAddress(Method);
  max := Length(Params);

  for i:= 2 to max-1 do
  begin
    off := i*8;
    asm
      mov edx,[Params]
      add edx,off
      movzx ecx,[edx+$04] // Params[i].VType --> ecx
      sub ecx,3 // if Params[i].VType  = vtExtended
      jnz @NoExt
        movzx ecx, word ptr [edx+$08]  // then...
        push ecx
        push [edx+$04]
        push [edx]
        jmp @LoopEnd
      @NoExt: // else
        push [edx] 
      @LoopEnd:
    end;
  end;

  // edx,ecx Parameter und eax = Self Parameter folgen
end;

Apollonius... *hundeblick*