Subversion Repositories oidplus

Rev

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;