山东省电力用户编码规律

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

begin

if I mod 2 = 1 then

begin

LSum := LSum + ((Integer(LText[I]) - Integer('0')) * 3);

end else

begin

LSum := LSum + ((Integer(LText[I]) - Integer('0')) * 1);

end;

end;

LSum := LSum mod 10;

LText := LText + IntToStr(LSum);

Edit1.Text := LText;

end;