该代码段展示了计算10位电力用户编码校验码的过程。通过将前9位中奇数位置数字乘以3，偶数位置数字乘以1，然后求和取个位数作为校验码，确保编码的正确性。
10位数，前9位有用，后一位是校验码，奇数位*3 + 偶数*1 得到的个位数
procedure TForm1.Button1Click(Sender: TObject);
var
LText: string;
I: Integer;
LSum: Integer;
begin
LSum := 0;
LText := Edit1.Text;
if Length(LText) <> 9 then
begin
ShowMessage('Error');
Exit;
end;
for I := 1 to Length(LText) do
begin
if not (LText[I] in ['0'..'9']) then
begin
ShowMessage('Error');
Exit;
end;
end;
for I := 1 to Length(LText) do
procedure TForm1.Button1Click(Sender: TObject);
var
LText: string;
I: Integer;
LSum: Integer;
begin
LSum := 0;
LText := Edit1.Text;
if Length(LText) <> 9 then
begin
ShowMessage('Error');
Exit;
end;
for I := 1 to Length(LText) do
begin
if not (LText[I] in ['0'..'9']) then
begin
ShowMessage('Error');
Exit;
end;
end;
for I := 1 to Length(LText) do
最低0.47元/天 解锁文章
扫一扫
1321
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
