Edit.Text -> Einzelnen Wert abarbeiten

[Maik81ftl]

Zitat von shmia:

Du hast grundsätzlich zwei verschiedene Möglichkeiten:
1.) jedes einzelne Zeichen im String in eine Zahlumwandeln (mit funktion Ord()) und die Einzelwerte addieren
2.) den String im Gesamten in eine Zahl umwandeln (mit Funktion StrToInt()) und
dann mit Mod 10 und Div 10 die Reste zusammenaddieren.

Methode 1.) ist einfacher aber du sollst ja die etwas schwerere Methode 2.) benützen.

Oder methode 3 anwenden.

a) Zeichenkette auf "Nummerische werte" Prüfen (Bit für Bit oder zusammen)
b) jedes Zeichen in ein Array einschreiben
c) array in einer for - schleife zusammen zählen
d) wenn ergebnis > 10 bei schritt b) wieder anfangen.

Schaut auf den ersten blick billig aus, ist aber auch schon nicht ohne. Grund??? versuchen mal ein Buchstaben in eine Zahl zu bekommen nach dem Motto StrToInt('Z'); das ende davon kennt jeder...