Ah gut es geht jetzt Danke. Bin einfach wiedermal ein bisschen zu dumm
!
Hier der fertige Code:
Code:
var i: Integer;
var gesamt: Double ;
begin
gesamt:= 0;
for i := 0 to ListBox2.Items.Count - 1 do
begin
gesamt := gesamt + StrToFloat(ListBox2.Items[i]);
end;
Edit1.Text := FloatToStr(gesamt);
end;
Habe einfach unten noch statt IntToStr in FloatToStr umgeändert. Jetzt funktioniert es perfekt!!
Danke!
