Frage zum Substring in Delphi

[Oernie1984]

@ Perlsau

Naja ich bin ja noch nicht fertig. Ich habe fürs erst einmal nach einer Möglichkeit gesucht Zugriff auf die einzelnen Ziffern meiner Zahl zu bekommen weil ich mit jeder einzelnen noch weiter rechnen muss. Hier nur mal so zur Info was dahinter steckt

8-stellige Nummer von links nach rechts auseinander nehmen und Einfach, Doppelt, Einfach, Doppelt, usw. die einzelnen Ziffern addieren. Besonderheit: Kommt eine der doppelt genommenen Einzelzahlen über 9 (wird also zweistellig), werden die beiden Stellen dieser Zahl wiederum addiert (statt dass die zweistellige Zahl für die Gesamt-Addition verwendet wird). Das Ergebnis der Gesamt-Addition wird von der nächst höheren durch 10 teilbaren Zahl abgezogen. Das Ergebnis ist die Prüfziffer.

Beispiel:

PNR8 = 12161110

Teil 1 Einfach = 1
Teil 2 Doppelt = 4
Teil 3 Einfach = 1
Teil 4 Doppelt = 12 = 3
Teil 5 Einfach = 1
Teil 6 Doppelt = 2
Teil 7 Einfach = 1
Teil 8 Doppelt = 0
Ergebnis = 13
20 ./. 13 = 7

PNR9 = 121611107

Grüße
Oernie