Float-Parameter per ASM übergeben

[Neutral General]

Hi,

Ok ich habs gemerkt...

Naja das Problem ist, das ich den Float-Wert über ein Array of Const bekomme.

Das ganze sieht also so aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Test.FloatDings([2.1]);
end;

procedure TTest.FloatDings(Params: Array of Const);
begin
  asm
    mov edx, [Params]
    mov edx, [edx]

    push edx
    mov eax, Form1 // egal jetzt^^
    call TForm1.Test
  end;
end;

procedure TForm1.Test(f: Single);
begin
  ShowMessage(FloatToStrF(f,ffNumber,2,2);
end;

Was kann ich tun?

Gruß
Neutral General