Items eines List Objektes addieren

[Mavarik]

Zitat von Nugi89:

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...