山东省电力用户编码规律

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;