while schleife

[Pseudemys Nelsoni]

moin,

ich prüfe in einer verketten liste auf "NIL" sobald das eintritt wird die schleife abgebrochen, ich muss sie aber dazu bringen exakt 1mal mehr zu durchzulaufen. mein code sieht so aus:

Delphi-Quellcode:

  while (i^.next <> nil) do
  begin
    Listbox1.Items.Add(i^.nick);
    i := i^.next;
  end;
  Listbox1.Items.Add(i^.nick);

funktioniert auch einwandfrei... aber kann ich mir das doppelte "Listbox1.Items.Add(i^.nick);" nicht irgendwie sparen und mit in der schleife ausführen lassen?