Zahlen dividieren

[Florian Huß]

hi wir müssen für die schule nen taschenrechner mit delphi programmieren und da wollte ich wissen (bin abslout neu und habe noch fast keine ahnung) wie man 2 edits miteinander dividiert

ich habe geschrieben aber er sagt das sei falsch

procedure TForm1.Button11_geteilt2Click(Sender: TObject);
begin
e3.Text:= inttostr(strtoint(nu1.Text)/strtoint(nu2.Text));
end;

e3 steht hier für ergebnis3 aber egal wenn mir einer helfen kann wäre das echt cool

mfg
Florian :-D

[pathfinder78]

Einfachste Lösung bei Division von Integer-Werten (keine Rundung des Ergebnisses):
e3.Text:= inttostr(strtoint(nu1.Text) div strtoint(nu2.Text));

Wenn er runden soll:
e3.Text:= inttostr(Round(strtoint(nu1.Text)/strtoint(nu2.Text)));

Für den Befehl Round musst du in der Uses-Klausel die Unit Math hinzufügen

[Florian Huß]

cool danke das prob ich gleich mal aus
thx alot
florian

[Thanatos81]

Hmm, die wenigsten Taschenrechner die ich kenne zeigen

Code:

5 / 2 = 2

an. Deswegen schau dir mal statt IntToStr auch FloatToStr an.

Eine Division ergibt pauschal eine Fließkommazahl, ob dabei wirklich andere Nachkommastellen als 0 herauskommen interessiert Delphi nicht.
Und Integer sind nun mal Ganzzahlen, deswegen kann IntToStr in diesem Fall nicht funktionieren, da du ja eine Kommazahl erhältst, und dafür brauchst du oben erwähntes FloatToStr ;-)

[Florian Huß]

ja das hab ich auch gerade gemerkt aber trotzdem danke für den hinweis
mfg florian

[Florian Huß]

ich habe jetzt zwar floattostr geschrieben aber jetzt sagt er diese procedure sei falsch und kann net mehr kompilieren

e3.Text:= floattostr(strtofloat(nu1.Text)div strtofloat(nu2.Text));

[Thanatos81]

JUpp, weil div ein Operator für Ganzzahlen ist, wenn man mit Fließkomma arbeitet gelten die "normalen" Operatoren wie man sie vom Windows-Taschenrechner, Excel, OpenOffice Calc und so weiter kennt:
*
/
+
-
;-)

[Florian Huß]

ok thx jetzt funzts
mfg florian

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Neuen Beitrag zur Code-Library hinzufügen" nach "Object-Pascal / Delphi-Language" verschoben.
In die Code-Library gehören nur fertige Codes ...

[killerkarl]

Aber davon mal ganz abgesehen ist es übersichtlicher die edits voher in variablen zu laden, das ergebnis in einer solchen zu speichern und dann nur das ergebnis per FloatToStr auslesen