Einzelnen Beitrag anzeigen

Amateurprofi

Registriert seit: 17. Nov 2005
Ort: Hamburg
1.062 Beiträge
 
Delphi XE2 Professional
 
#7

AW: Summe einer Serie von Zahlen mit Hilfe von 2 Edit-boxen

  Alt 25. Aug 2012, 21:42
Zitat:
Ja, entweder so, oder dass man sich mit dem Eingeben der Zahlen bei den Edits abwechselt, und dann ein Label für's Resultat verwendet.
Das entspräche aber nicht der Aufgabe in der von 2 Edits und einem Button, nicht aber von einem Label die Rede ist.

Zitat:
Danke für die Anregung mit deiner Methode, leider reicht mein Kenntnisstand (noch) nicht aus um sie nachvollziehen zu könne.
Kurze Erklärung

Im Button1.Click werden die Inhalte der beiden Edits gelöscht und die Summe der Zahlen (fSum) auf 0 gesetzt.

Im Edit1KeyUp passiert folgendes
Prüfung ob die gerade gelöste Taste die Return-Taste ist UND ob Edit1 einen Text enthält.
Wenn Nein, dann wird die Prozedur verlassen.
Wenn Ja, dann wird versucht den Text aus Edit1 in einen Double umzuwandeln.
(Double, weil im Aufgabentext "Zahlen" steht und nicht "Ganzzahlen".)
Wenn das TryStrToFloat(Edit1.Text, n) False zurückgibt, dann konnte der Text nicht in eine Zahl umgewandelt werden und die Prozedur wird verlassen.
Wenn das TryStrToFloat(Edit1.Text, n) True zurückgibt, dann ist die Umwandlung gelungen und n enthält den Wert.
Dann wird
1) dieser Wert zur bisherigen Summe (fSum) addiert
2) Die neue Summe in einen String umgewandelt und in Edit2.Text gestellt
3) Edit1 gelöscht, damit die nächste Zahl eingegeben werden kann

Im FormCreate wird ein OnClick des "Lösch-Buttons" ausgelöst, um sicherzustellen dass die Edits leer und fSum = 0 ist.
Gruß, Klaus
Die Titanic wurde von Profis gebaut,
die Arche Noah von einem Amateur.
... Und dieser Beitrag vom Amateurprofi....
  Mit Zitat antworten Zitat