[Gelöst] Verwendung von TQueue

[MrMooed]

Zitat von himitsu:

TStack ist wie TList
Es will einen "Wert", den es speichern kann.

Wie gesagt, diese Variable "Key" ist nach Verlassen der Ereignisprozedur ungültig und damit auch der Zeiger auf sie.

Aber wie kann ich ihm den Wert übergeben, wenn er einen Zeiger erwartet stehe da gerade auf dem Schlauch

//Edit:
Argh habe den Post von sakura nicht gesehen. Werde es eben mal so testen

//Edit2:
So wie sakura es vorgeschlagen hat klappt es Das klärt auch meine Frage wie ich ihm einen Wert übergebe wenn er einen Pointer erwartet Vielen Dank an euch

[nuclearping]

Zitat von MrMooed:

So wie sakura es vorgeschlagen hat klappt es Das klärt auch meine Frage wie ich ihm einen Wert übergebe wenn er einen Pointer erwartet Vielen Dank an euch

Statt dem Key kannst du ihm auch einen State übergeben.

Delphi-Quellcode:

type
  TDirections = (dirLeft, dirRight);

// ...

case Key of
  70: Tasten.Push(Pointer(dirLeft)); // [F] - LINKS
  74: Tasten.Push(Pointer(dirRight)); // [J] - RECHTS
end;

Ist einfacher, Bezeichner wie "dirLeft" und "dirRight" zu assoziieren, als 70, 74:

Delphi-Quellcode:

procedure TMain.Timer1Timer(Sender: TObject);
var
  i: ^Integer;
begin
  i := Tasten.Pop;
  case TDirection(i) of
    dirLeft: Spieler[0].dreheLinks;
    dirRight: Spieler[0].dreheRechts;
  darstellen(Sender);
end;

[himitsu]

Zitat:

Delphi-Quellcode:

var
  i: ^Integer;
begin
  i := Tasten.Pop;
  case TDirection(i) of

Warum nicht "verständlichen" Code schreiben?

Ich weiß auch nicht, was ^Integer aka PInteger mit TDirection ode Pointer zu tun hat.

Hinzu wurde ja doch direkt gecastet. ( TDirections > Pointer )
Warum dann nicht auch rückzu? ( Pointer > PInteger > TDirections )

Delphi-Quellcode:

var
  d: TDirection;
begin
  d := TDirection(Tasten.Pop);
  case d of

[nuclearping]

Wenn das über Pop so geht, ohne dass der Compiler wegen irgendwas rummeckert, dann noch besser.

[himitsu]

MinEnumSize für diesen Enum auf 4 stellen (bzw. unter 64 Bit auf 8)

Damit die Typen gleich groß und somit das Casten problemlos geht

[daywalker9]

Gelöscht