创建一个检查 ID 号是否满足条件的函数答案

【问题标题】：Create a function that checks if ID number satisfies criteria创建一个检查 ID 号是否满足条件的函数
【发布时间】：2016-11-12 13:35:24
【问题描述】：

我是 NAV 的新手，所以我的问题可能看起来有点菜鸟，但它就是这样。我创建了一个表，其中有一个名为 ID 号的字段，用户需要输入一个 10 位的 Biginteger（或代码，IDK 更好），它代表他/她的 ID。我必须创建一个函数，通过检查它是否满足以下条件来检查这个数字是否正确：

如果数字是ABCDEFGHIJ，那么数字J（称为控制数字）必须等于： J=13-( 7*(A+G) + 6*(B+H) + 5*(C+I) + 4*(D+J)) MOD 13

而且，还需要满足以下条件：

J <= 9 -> X = J
J > 9 -> X = 0

我认为首先使用函数 FORMAT 将整数转换为字符串，然后为每个局部变量 A、B、C、D 使用 COPYSTR... 但它不起作用:( 任何人都可以帮我提供正确的代码吗？

【问题讨论】：

【解决方案1】：

Str := format("Id"); A:=Str[1]; B:=Str[2];

等等……

或者如果你想要 A,B,C 作为整数然后。

Str := format("Id");评估（A，Str[1]）；评估(B, Str[2]);

【讨论】：

【解决方案2】：

你可以试试这个代码，因为它对我有用：

Num : BigInteger;
Digits : Array of Byte;
I : Integer;

FOR i := 10 DOWNTO 1 DO BEGIN
  Digits[i] := Num MOD 10;
  Num := Num DIV 10;
END;

如果它不适合你，请告诉我。

【讨论】：