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;

[haentschman]

Hallo...

Zitat:

TListe = class(TObject)

...ähmm. TListe ist keine Liste.

Delphi-Quellcode:

for i := 0 to count - 1 do
  begin
    gesamt:= gesamt + Item.wert; <--(Item.wert) hier wird mir dieser riesige wert übergeben
  end;

Eigentlich kann das gar nicht compilieren weil TObject kein Count hat und mit Item statt First bzw. der Zuweisung derselben wie in #4 gearbeitet wird.

Schreibfehler?

PS: Warum wird mit TItem gearbeitet und nicht direkt mit den Werten?

[mkinzler]

Zitat:

Eigentlich kann das gar nicht compilieren weil TObject kein Count hat

Er implementiert diese Funktion aber für seinen Klasse

[haentschman]

wo implementiert er count? Count bezieht sich in diesem Falle auf TListe. Das ist aber keine Liste.

Delphi-Quellcode:

function TListe.addieren(gesamt: real):real; //Items addieren
var
  i: integer;
  Item: TItem;
begin

  gesamt:= 0;
  i:= count;
 
  for i := 0 to count - 1 do

[DeddyH]

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.

[edit] Und hier ist der Count:

Zitat:

function TListe.count: integer;

[/edit]

[haentschman]

@DeddyH:
hab ich was an den Augen?
TListe = class(TObject) Nachtrag: Ich nehme alles zurück. Ich geh dann mal aus der Sonne.

[Sir Rufo]

Zitat von haentschman:

@DeddyH:
hab ich was an den Augen?
TListe = class(TObject)

Ja, schau den ersten Beitrag an

Wenn du es nicht findest, dann STRG-F im Browser und suche alle Stellen mit "TListe.count"

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

[Nugi89]

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

Danke für eure Hilfen