Items eines List Objektes addieren

[haentschman]

@Alle: Bin mal wieder Blind gewesen. Meine Logik paßt da nicht wirklich dazu. Warum solche Verenkungen wenn es mit einer Liste einfacher geht? Deshalb dachte ich ursprünglich an einen Tippfehler.

Sorry für die Belästigung.

[Sir Rufo]

Frag mal Emba, warum die bei TList<T> von einem Array-Wrapper auf so eine verkettete Liste umgestiegen sind.

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

[Nugi89]

Das Problem hat sich schon geklärt ^^
Hat ein paar Logikfehler

Danke für eure Hilfen