Einzelnen Beitrag anzeigen

Benutzerbild von patti
patti

Registriert seit: 20. Okt 2004
Ort: Mittelfranken
665 Beiträge
 
Turbo Delphi für Win32
 
#5

AW: Edit.Text -> Einzelnen Wert abarbeiten

  Alt 7. Apr 2011, 18:39
Willkommen als aktiver User in der DP

Also: Als erstes wandelst du den String aus deinem Edit-Feld in eine Integer um (StrToInt).
Mit dieser Zahl kannst du dann das Rechnen anfangen:

Code:
1. 1234 mod 10 = 4 (als Ergebnis merken)
2. 1234 div 10 = 123
3. 123  mod 10 = 3 (zum Ergebnis addieren)
4. 123  div 10 = 12
.
.
.
Das Ganze in eine Schleife verpackt - fertig

Ich hoffe, dadurch wird dir das Prinzip etwas klarer

Edit: Hier noch der Link zur DP-Reference
Patrick Kreutzer
[Informatik-Student im 4. Semester]
http://www.patti-k.de/
  Mit Zitat antworten Zitat