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.