Rechnen mit Kommastellen

[wincompi5]

Hallo zusammen

Ich hänge wieder einmal bei etwas ganz Simplen fest!
Es geht nämlich darum, dass ich ein Programm gemacht habe, das u.A. Zahlen berechnen muss.
Dieses Programm Rechnet nämlich zuerst alle Zahlen in einer Listbox zusammen mit diesem Code hier:

Code:

  var  i: Integer;
    gesamt: integer;
  begin
 
gesamt:= 0;

for i := 0 to ListBox2.Items.Count - 1 do
begin
  gesamt := gesamt + StrToInt(ListBox2.Items[i]);
    end;
  

     Edit1.Text := IntToStr(gesamt);
end;

Das Resultat erscheint zwar aber nicht mit Kommastellen!!!
Als nächstes Rechnet das Programm auch noch eine Division:

Code:

Label3.Caption := InttoStr(StrtoInt(Edit2.Text) div Listbox2.Items.Count);

Auch bei diesem Resultat erscheint nur eine ganze Zahl!

Wie kann ich nun den Code ändern, dass Kommazahlen erscheinen!

Vielen Dank schon im Voraus und mit Freundlichen Grüssen
wincompi5

[sirius]

statt "integer" "double" nehmen.
Statt "div" dass übliche "\" nehmen
und nicht strtoint und inttostr sondern strtofloat und floattostr.

[wincompi5]

Wow danke für die schnelle Antwort. Werde es gleich mal ausprobieren.

[wincompi5]

Das mit der Division hat Perfekt funktioniert!! Aber bei der Plus-Rechnung in der Listbox habe ich es probiert statt Integer die Zahlen als Double zu definieren. Aber irgendwie ging es nicht!! Wie muss ich das genau machen???

[DeddyH]

Irgendwie anders. Sry, aber bei solchen Fragen kann man auch nur so antworten. Was genau heißt "ging nicht"?

[wincompi5]

Sorry also hier mein Code mit meinem Versuch das ganze als Double zu definieren.

Delphi-Quellcode:

  var  i: Double;
  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;
end;

Danke das ihr mir helft!!

[mkinzler]

Und was genau geht nicht?

[wincompi5]

Es heisst einfach das Ineger und Double inkompatibel sind. Aber ich möchte gern wissen wie der Code geht damit alles als Double definiert ist. Einfach damit er Kommastellen anzeigt.

[DeddyH]

Mach aus i mal eine integer statt double.

[wincompi5]

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!