Doppelt verkettete Liste als generischer Typ

[Schorschi5566]

Hallo DeddyH,

na es wird das letzte Element der verketteten Liste zurückgegeben.

Delphi-Quellcode:

function TChainList.Last: TChainList;
begin
  Result := Self;
  if Self <> nil then
  begin
    while Result.FSuccessor <> nil do
      Result := Result.FSuccessor;
    FEol := False;
  end;
end;

Der Witz ist ja gerade, dass man nicht Liste und Elemente verwalten muss sondern nur die Elemente. Finde ich eigentlich ganz elegant, wenn die Casts nicht wären.