Modulo-10 Prüfsumme eines Strings berechnen

[Delphi.Narium]

Ich schrieb analog zu https://www.activebarcode.de/codes/c.../modulo10.html

Zitat von Prüfziffernberechnung: Modulo 10:

EAN-Nummer: 4 007630 00011
Prüfziffer: zu dieser Zeit unbekannt
Ziffern: 4 0 0 7 6 3 0 0 0 0 1 1
Multiplikation 1 3 1 3 1 3 1 3 1 3 1 3
Ergebnisse 4 0 0 21 6 9 0 0 0 0 1 3 Total = 44
Prüfsumme ausrechnen: Prüfsumme = Die Ergänzung zum nächsten Vielfachen von 10 (hier 50), also 6.
Prüfsumme: 6

Und daraus dann die Zeile Multiplikation 1 3 1 3 1 3 1 3 1 3 1 3 ergibt die Gewichtung. Will man die nicht, dann lässt man's halt und kommt auf Deine Variante.

Welche man wählt ist eigentlich egal, solange man sich dann an die gewählte Version hält und nicht (bei der Kommunikation mit anderen Systemen) quasi so 'ne Art "Mischkalkulation" bekommt.