Rechnen mit Kommastellen

[wincompi5]

Hallo zusammen

Ich hänge wieder einmal bei etwas ganz Simplen fest:oops:!
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:evil:!!!
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:-D 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:-D:-D:-D. Werde es gleich mal ausprobieren.:-D

[wincompi5]

Das mit der Division hat Perfekt funktioniert!!:-D 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??? :shock:

[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:-D!!

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

[DeddyH]

Mach aus i mal eine integer statt double.

[wincompi5]

Ah gut es geht jetzt Danke. Bin einfach wiedermal ein bisschen zu dumm:oops:!
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!:-D

[haentschman]

Schön... aber schau dir mal FloatToStrF an. Damit kannst du die Ausgabe optisch besser formatieren :thumb:

[wincompi5]

Werde ich machen Danke!:-D