Forum: Programmieren allgemein
by DeddyH,
20. Jul 2015
Außerdem ist das eine einfach verkettete Liste, also doch Liste, nur eben nicht von TList o.ä. abgeleitet und nicht (ohne selbst zu implementierende Verrenkungen) indiziert ansprechbar.
Und hier ist der Count:
Forum: Programmieren allgemein
by DeddyH,
20. Jul 2015
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:
function TListe.addieren: real;
var
Item: TItem;
begin
Result := 0;
Item := First;
while Assigned(Item) do
begin
Result := Result + Item.wert;