Wert hinter Pointer erhalten

[3_of_8]

Aua.

Delphi-Quellcode:

procedure PushInt(Val: Integer);
begin
  Stack.Push(Pointer(Val));
end;

function PopInt: Integer;
begin
  Result := Integer(Stack.Pop);
end;

Dann pusht er eine Variable auf den Stack und erhält die Adresse der Variable zurück.

Delphi-Quellcode:

procedure PushInt(Val: Integer);
begin
  Stack.Push(@Val);
end;

function PopInt: Integer;
begin
  Result:=PInteger(Stack.Pop)^;
end;

So schon eher.

EDIT: D'oh... Jetzt verstehe ich das... Klar, Lukes Code geht auch.