functionValidateEnterpriseCode(EnterpriseCode:string):Boolean; var i,sum,code,weight:Integer; begin Result:=False; //企业信用代码长度校验 ifLength(EnterpriseCode)<>18then Exit; //企业信用代码权重因子 constfactor:array[1..17]ofInteger=(1,3,9,27,19,26,16,17,20,29,25,13,8,24,10,30,28); //计算企业信用代码前17位的加权和 sum:=0;...