Items eines List Objektes addieren

[DeddyH]

Das sieht eh komisch aus, wozu ein Parameter und ein Funktionsergebnis, die am Ende dasselbe enthalten sollen? Aus dem Kopf würde ich das etwa so machen:

Delphi-Quellcode:

function TListe.addieren: real;
var
  Item: TItem;
begin
  Result := 0;
  Item := First;
  while Assigned(Item) do
    begin
      Result := Result + Item.wert;
      Item := Item.Next;
    end;
 end;