Listbox addieren?

[arcangel]

hi, ich muss für die schule ein programm erstellen das werte in die listbox einträgt und diese dann addiert... allerdings schaff ich die addition irgendwie nicht...

hat da wer ein codeschnipsel für mich der die addition übernimmt? ...

[mkinzler]

Du musst den Inhalt der Eimträge (Strings) zuerst in Typen, wandeln, mit denen man Rechnen kann.

Z.B. mit StrToFloatDef()

[bigben37]

die Einträge in einer Listbox bekommst du mit

Delphi-Quellcode:

Listbox1.Items[Itemindex]

heraus,
mit

Delphi-Quellcode:

Listbox1.Count

die Anzahl der Einträge.

Geh einfach die ganzen Einträge mit einer Vorlschleife durch und addiere sie zu einer Variablen.

Ich denke, das sollte als Erklärung reichen.

MFG, Benjamin

[SirThornberry]

Zitat:

Zitat von arcangel

...bzw. kann mir das jemand machen?...
icq: 201922

Ersteres nein, steht auch im Verhaltenscodex der dp. Wir helfen gern aber wir machen nicht unendgeltlich die Arbeit für andere. Die ICQ-Nummer kannst du auch im Profil hinterlegen wenn du magst :-)

[arcangel]

naja gut, erstmal danke für die unterstützung... is mir halt wichtig das das programm fertig wird da es benotet wird

ich probier jetzt schon ewig rum, bin auch nicht wirklich besonders gut in delphi und komm einfach nicht weiter

Delphi-Quellcode:

if Listbox1.Items.Text <> ''  then
            begin
              for y := 0 to i+1 do                                        //i = anzahl der einträge
                begin
           x := StrtoInt(Listbox1.Items[y]);   
                end;
                y := y+1;
           x2 := StrtoInt(Listbox1.Items[y]);
                z := x+x2;
                Label3.Caption := InttoStr(z);
            end;

wie gesagt meine überlegung stimmt irgendwie schon nicht und überblick hab ich auch nicht mehr wirklich viel vll will ja doch noch wer was genaueres für mich posten, danke :)

[bigben37]

Ich hab des eher so gemeint:

Delphi-Quellcode:

var
  i, c: Integer;  //i für for-Schleife; c: Count
begin
  for i := 0 to Listbox1.Count -1 do  //-1 weil Listbox bei 0 anfängt
    begin
      //Hier zu c den listboxeintrag hinzufügen
      //aber nicht einfach c := Listboxeintrag
      //denn du willst ja das hinzuaddieren...
    end;
end;

[thkerkmann]

Mach doch erstmal ne vernünftige Schleife über die Items deiner Listbox

Delphi-Quellcode:

  Summe := 0;
  for y:=0 to Listbox1.Items.Count-1 do
  begin
    // hier hattest Du ja schon einen Ansatz
    x := StrToInt(Listbox1.Items[y]);

    // jetzt auf deine Summe addieren
    // aber bitte selber machen
  end;

  // Summe ausgeben
  // aber bitte selber machen

Dann solltest Du noch überlegen, ob es nur ganzzahlige Werte sein sollen, dann ist StrToInt ok, besser wäre jedoch StrToIntDef()
Die Hilfe in Delphi zeigt dir den Unterschied.

Wenn es denn Gleitkommazahlen sein sollen, solltest Du StrToFloat bzw. StrToFloatDef oder TryStrToFloat verwenden. Wirf auch hierzu mal einen Blick in die Hilfe von Delphi.

So, und jetzt Du

[arcangel]

danke, meine überlegung war komplett falsch, habs jetzt endlich dank euch geschafft :)