Rev 748 | Rev 750 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 748 | Rev 749 | ||
---|---|---|---|
Line 77... | Line 77... | ||
77 | for c := 'A' to 'Z' do |
77 | for c := 'A' to 'Z' do |
78 | begin |
78 | begin |
79 | wrkstr := StringReplace(wrkstr, c, IntToStr(Ord(c)-Ord('A')+10)); |
79 | wrkstr := StringReplace(wrkstr, c, IntToStr(Ord(c)-Ord('A')+10)); |
80 | end; |
80 | end; |
81 | 81 | ||
82 | (* At the end, $wrkstr should only contain digits! Verify it! *) |
82 | (* At the end, wrkstr should only contain digits! Verify it! *) |
83 | for i := 1 to Length(wrkstr) do |
83 | for i := 1 to Length(wrkstr) do |
84 | begin |
84 | begin |
85 | if not (wrkstr[i] in ['0'..'9']) then |
85 | if not (wrkstr[i] in ['0'..'9']) then |
86 | begin |
86 | begin |
87 | weLuhnGetCheckDigit := -1; |
87 | weLuhnGetCheckDigit := -1; |