Generics Fehler in TQueue? [edit: nein, Doku fehlerhaft]

[Stevie]

Schau dir doch den Beispiel Code an, ist doch logisch, dass zuerst das removed Event getriggert wird (durch den Dequeue aufruf) und das Ergebnis dieses Aufrufs ausgegeben wird.

[himitsu]

Zitat:

Delphi-Quellcode:

  { Show the last enqueued element without modifying the Queue. }
  MessageDlg('First enqueued element is: "' + Queue.Peek() + '".', mtInformation, [mbOK], 0);
 
  ...
 
  { Show the last enqueued element by modifying the Queue. }
  MessageDlg('First enqueued element is: "' + Queue.Dequeue() + '".', mtInformation, [mbOK], 0);

Oder eine kleine Änderung und schon paßt es:

Delphi-Quellcode:

  { Show the last enqueued element without modifying the Queue. }
  MessageDlg('First element is: "' + Queue.Peek() + '".', mtInformation, [mbOK], 0);
 
  ...
 
  { Show the last enqueued element by modifying the Queue. }
  MessageDlg('Enqueued element is: "' + Queue.Dequeue() + '".', mtInformation, [mbOK], 0);

[Stevie]

Fazit: Kein Fehler in TQueue - nur Meldungen und Kommentare im Beispiel Code sind etwas unglücklich gewählt (und nebenbei ein Paradebeispiel, dass solche sehr zur Verwirrung des Lesers führen können)

[mjustin]

[QUOTE=himitsu;1153106]

Zitat:

Oder eine kleine Änderung und schon paßt es:

Delphi-Quellcode:

 
  ...
   { Show the last enqueued element by modifying the Queue. }
  MessageDlg('Enqueued element is: "' + Queue.Dequeue() + '".', mtInformation, [mbOK], 0);

"Enqueues element is" ... Queue.Dequeue ?

Enqueued ist das zuletzt hinzugefügte Element (Ende der Warteschlange).
Dequeue entfernt am Anfang.

Mein Vorschlag wäre:

  MessageDlg('Dequeued element is: "' + Queue.Dequeue() + '".', mtInformation, [mbOK], 0);