Oder einfach den Wert auf Pointer (und später zurück) casten:
Delphi-Quellcode:
procedure TMain.MainKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
70: Tasten.Push(Pointer(Key)); // [F] - LINKS
74: Tasten.Push(Pointer(Key)); // [J] - RECHTS
end;
end;
und zurück:
Delphi-Quellcode:
procedure TMain.Timer1Timer(Sender: TObject);
var
i: ^Integer;
begin
i := Tasten.Pop;
case Word(i) of
70: Spieler[0].dreheLinks;
74: Spieler[0].dreheRechts;
darstellen(Sender);
end;
Achtung, TQueue ist die gewünschte Klasse, nicht TStack.
TQueue ist FIFO (First In, First Out), TStack ist FILO (First In, Last Out).
...
...