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

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