will aus 2 listboxen die werte zusammen rechen

[sigma]

Hallo hab schon wieder ein problem ich glaub ich sollte es mit dem Programmieren sein lassen bin dafür glaub ich zu dumm
ich hab ein Programm geschrieben mit 2 Listboxen nun will ich die werte aus beiden listboxen zusammen rechnen bekomme es aber nicht hin hat jemand eine idee
hier ist mal mein versuch

Delphi-Quellcode:

for intI := 0 to isbListe1.Items.Count-1 + isbListe2.Items.Count-1 do
     intMittel := intMittel + StrToInt (isbliste1.Items[intI]);
     intMittel2 := intMittel2 + StrToInt (isbliste2.Items[inti]);
     intErg:= intMittel + intMittel2;
     edtWert3.Text := FloatToStr (intMittel);

[Der_Unwissende]

Hi,
ohne dass ich jetzt all zu viel sagen möchte, schau dir mal in der OH den Teil über begin und end an. Ohne dass ich weiß, ob ich hier richtig liege (hab mir deinen Code nicht weiter angeschaut), sehe ich sofort das, worüber ich immer wieder rum jammer, man sollte hinter jede Struktur ein Begin setzen (und diese natürlich durch ein End beenden).
Was auch immer dein Schleife gerade tun soll, so wie es dort steht wird sie x mal die erste Zeile ausführen und dann den Rest (1 mal).
Hat nichts mit zu Dumm zu tun, sondern mit schlechtem Stil (den haben leider viel zu viele).

Gruß Der Unwissende

[Zacherl]

Delphi-Quellcode:

var i, 
  count_1,
  count_2: integer;
begin
  count_1 := 0;
  count_2 := 0;
  for i := 0 to ListBox1.Items.Count -1 do
    count_1 := count_1 + StrToInt(ListBox1.Items[i]);
  for i := 0 to ListBox2.Items.Count -1 do
    count_2 := count_2 + StrToInt(ListBox2.Items[i]);
  //Ergebniss: count_1 + count_2
end;

Florian

[TBx]

... und so nebenher solltest DU auch noch abprüfen, ob die jeweiligen Listboxeinträge überhaupt in Ganzzahlen wandelbnar sind
... oder ist sichergestellt, daß da nichts anderes drinsteht?

... ansonsten dürfte Florians Lösung für Dich passen

Gruß

onlinekater