Dynamisch Code Erzeugen

[neolithos]

Ich will einen sehr sehr flinken Formel-Parser entwickeln!

Delphi-Quellcode:

var b : array [0..5] of byte = ($03, $C0, $83, $E8, $03, $C3); // a * 2 - 3

function Fkt(a : Integer) : Integer;
var p : Pointer;
begin
  p := VirtualAlloc(nil, 1024, MEM_COMMIT, PAGE_EXECUTE_READWRITE);
  if p = nil then
     raise Exception.Create('p=nil');

  CopyMemory(p, @b, SizeOf(b));
  asm
    mov ecx, p
    mov eax, a
    call ecx
    mov Result, eax
  end;
  VirtualFree(p, 0, MEM_RELEASE);
end;

Und dynamisch Code ausführen ist einfacher als ich dachte!