[Gelöst] Verwendung von TQueue

[himitsu]

Zitat von MrMooed:

Weil Delphi bei TStack.Push(AItem: TPointer) erwartet. (Was doch soviel bedeutet wie "gib mir einen Zeiger auf deinen Wert"

TStack ist wie TList
Es will einen "Wert", den es speichern kann.
Wie bei TList also nicht einen Zeiger auf einen beliebigen Speicher.
Willst du wirklich einen Pointer speichern, dann müßtest du dafür sorgen, daß der Speicher nicht verloren geht, also z.B. per New einen Speicher vom Typ PWord (du willst ja ein Word speichern) erstellen, diesen puschen und am Ende (nach dem Pop) natürlich nicht das Dispose vergessen, oder du kastes das Word infach in einen Pointer und wieder zurück.

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



In anktuelleren Delphis (D2009+) könnte man stattdessen auch den generischen Stack nutzen TStack<Word>, welcher direkt den "Wert" speichert.

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

......

[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