Code:
TItem = class(TObject)
public
next: TItem;
wert: real;
end;
TListe = class(TObject)
private
first: TItem;
last: TItem;
public
gesamt: real;
procedure add(wert: real);
function addieren(gesamt: real):real;
function count(): integer;
end;
Ich gehe mal davon aus, dass ist noch keine vollständige Implementation... oder?
Ansonsten macht es nur Sinn, eine verkettete Liste zu bauen, wenn ich oft mitten drin löschen oder einfügen muss und ein verschieben von Elementen zu lange dauern würde... oder das Konstrukt nicht in den Speicher passt...
ein
Delphi-Quellcode:
var
Liste : Array of Real;
wäre sonst deutlich handlicher...