[Gelöst] Verwendung von TQueue

[sakura]

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).

......