{"id":582,"date":"2009-08-19T19:41:00","date_gmt":"2009-08-19T11:41:00","guid":{"rendered":""},"modified":"2013-11-17T17:20:19","modified_gmt":"2013-11-17T09:20:19","slug":"%e8%ba%ab%e4%bb%bd%e8%af%81%e5%8f%b7%e7%a0%81%e7%9b%b8%e5%85%b3%e5%a4%84%e7%90%86%e5%8d%95%e5%85%83","status":"publish","type":"post","link":"https:\/\/kyle.ai\/blog\/582.html","title":{"rendered":"\u8eab\u4efd\u8bc1\u53f7\u7801\u76f8\u5173\u5904\u7406\u5355\u5143"},"content":{"rendered":"<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\n\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\r\n\/\/  \u5355\u5143\u7528\u9014\uff1a\u8eab\u4efd\u8bc1\u53f7\u7801\u76f8\u5173\u5904\u7406                                              \/\/\r\n\/\/  \u5355\u5143\u4f5c\u8005\uff1a\u6c60\u9f99                                                            \/\/\r\n\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\r\n\/\/  \u5907    \u6ce8\uff1a                                                                \/\/\r\n\/\/      \u533a\u5212\u4ee3\u7801\u8f6c\u6362\u4e3a\u540d\u79f0\u7684\u90e8\u5206\uff0c\u9700\u8981\u4ece\u5916\u90e8\u6587\u4ef6\u4e2d\u8bfb\u53d6\u533a\u5212\u5b9a\u4e49\u7684\u6570\u636e\uff08\u5982\u968f\u5355  \/\/\r\n\/\/  \u5143\u53d1\u5e03\u7684\u6587\u4ef6 regioncode.dat \uff09\u3002                                          \/\/\r\n\/\/                                                                            \/\/\r\n\/\/      \u8be5\u6587\u4ef6\u4e3a\u7eaf\u6587\u672c\u6587\u4ef6\uff0c\u6bcf\u884c\u662f\u4e00\u4e2a\u4ee3\u7801\u548c\u540d\u79f0\u7684\u5bf9\u5e94\u5173\u7cfb\u3002\u4ee3\u7801\u548c\u540d\u79f0\u4e4b\u95f4\u4ee5  \/\/\r\n\/\/  \u9017\u53f7\u4f5c\u5206\u9694\u3002\u4ee5#\u5f00\u5934\u7684\u884c\u4f5c\u4e3a\u6ce8\u91ca\u884c\uff0c\u7a7a\u884c\u4e0d\u5904\u7406\u3002\u7a0b\u5e8f\u4e2d\u4f5c\u4e86\u4e00\u5b9a\u7684\u5bb9\u9519\u5904\u7406\uff0c \/\/\r\n\/\/  \u901a\u5e38\u60c5\u51b5\u4e0b\uff0c\u4e0d\u6b63\u786e\u7684\u6570\u636e\u4f1a\u88ab\u7565\u8fc7\u3002\u4f46\u5728\u91cd\u65b0\u7f16\u6392\u65f6\uff0c\u8fd8\u662f\u8bf7\u5c3d\u91cf\u4fdd\u8bc1\u6570\u636e\u7684\u6b63  \/\/\r\n\/\/  \u786e\u6027\u3002                                                                    \/\/\r\n\/\/                                                                            \/\/\r\n\/\/\u3000\u3000\u3000\u53e6\u5916\uff0c\u4e3a\u4e86\u4fdd\u8bc1\u67e5\u627e\u7684\u6548\u7387\uff0c\u6240\u4ee5\u8981\u6c42\u6587\u4ef6\u4e2d\u7684\u8bb0\u5f55\u6309\u533a\u5212\u4ee3\u7801\u7531\u5c0f\u5230\u5927\u7684\u987a  \/\/\r\n\/\/\u3000\u5e8f\u6392\u5217\u3002      \u3000                                                          \/\/\r\n\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\r\n\r\nunit ascidnum;\r\n\r\ninterface\r\n\r\nuses\r\n  Controls,\r\n  Classes,\r\n  SysUtils;\r\n\r\ntype\r\n\/\/\u6027\u522b\r\n  TSex = (sexUnknown,   \/\/\u672a\u77e5\r\n          sexMale,      \/\/\u7537\u6027\r\n          sexFemale);   \/\/\u5973\u6027\r\n\r\n\/\/\u8eab\u4efd\u8bc1\u53f7\u7801\u7684\u7c7b\u578b\r\n  TIDNumType = (idnum15,   \/\/15\u4f4d\r\n                idnum18);  \/\/18\u4f4d\r\n\r\n\/\/\u6821\u9a8c\u7ed3\u679c\r\n  TChecksumRst = (csNoChecksum,       \/\/\u65e0\u6821\u9a8c\uff0815\u4f4d\uff09\r\n                  csChecksumError,    \/\/\u9519\u8bef\r\n                  csChecksumCorrect); \/\/\u6b63\u786e\r\n\r\n\/\/\u4e2a\u4eba\u4fe1\u606f\r\n  TIDNumInfo = record\r\n    IDNumType   : TIDNumType;   \/\/\u8eab\u4efd\u8bc1\u53f7\u7801\u7c7b\u578b\r\n    RegionCode  : string;       \/\/\u533a\u5212\u4ee3\u7801\r\n    RegionStr   : string;       \/\/\u533a\u5212\u540d\u79f0\r\n    BirthDay    : TDate;        \/\/\u751f\u65e5\r\n    Sex         : TSex;         \/\/\u6027\u522b\r\n    ChecksumRst : TChecksumRst; \/\/\u6821\u9a8c\u7ed3\u679c\r\n  end;\r\n\r\n\/\/\u533a\u5212\u4ee3\u7801\u5bf9\u5e94\u5173\u7cfb\r\n  TRegionCodeTransRec = record\r\n    RegionCode: string;     \/\/\u4ee3\u7801\r\n    RegionStr : string;     \/\/\u540d\u79f0\r\n  end;\r\n\r\n  TRegionCodeTransArray = array of TRegionCodeTransRec;\r\n\r\n\/\/\u5206\u79bb\u8fc7\u7684\u533a\u57df\u4ee3\u7801\r\n  TSepRegionCode = record\r\n    ProvinceCode : string; \/\/\u7701\u7ea7\u4ee3\u7801\r\n    CityCode     : string; \/\/\u5e02\u7ea7\u4ee3\u7801\r\n    CountyCode   : string; \/\/\u533a\u53bf\u7ea7\u4ee3\u7801\r\n  end;\r\n\r\n  TStrArray = array of string;\r\n\r\nconst\r\n\/\/18\u4f4d\u8eab\u4efd\u8bc1\u53f7\u7801\u7684\u6821\u9a8c\u65b9\u5f0f\u4e2d\u4f7f\u7528\u7684\u5e38\u91cf\r\n\/\/\u4ece\u5de6\u5411\u53f3\uff0c\u9664\u4e86\u672b\u5c3e\u7684\u6821\u9a8c\u4f4d\u4e4b\u5916\uff0c\u6bcf\u4f4d\u7684\u6743\u503c\r\n  cPosPowerArray : array&#x5B;1..17] of integer = (7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2);\r\n\r\n\/\/\u5f97\u5230\u7684\u6821\u9a8c\u503c\u5bf9\u5e94\u7684\u7b2c18\u4f4d\u5b57\u7b26\r\n  cCheckSumValueArray : array&#x5B;0..10] of char = ('1', '0', 'X', '9', '8', '7', '6', '5', '4', '3', '2');\r\n\r\n\/\/\u53d6\u8eab\u4efd\u8bc1\u53f7\u7801\u4e2d\u7684\u4fe1\u606f\r\n\/\/\u4e3a\u4e86\u52a0\u5feb\u901f\u5ea6\uff0c\u4e0d\u5c06\u533a\u5212\u4ee3\u7801\u8fdb\u884c\u8f6c\u6362\r\n\/\/\u9700\u8981\u53d6\u5f97\u786e\u5207\u7684\u533a\u5212\u540d\u79f0\uff0c\u7528GetRegionStr\u51fd\u6570\r\nfunction GetIDNumInfo(IDNum: string; var IDNumInfo: TIDNumInfo): boolean;\r\n\r\n\/\/\u68c0\u67e5\u8eab\u4efd\u8bc1\u53f7\u7801\u7684\u6709\u6548\u6027\r\n\/\/\u5185\u90e8\u4ecd\u7136\u662f\u5229\u7528GetIDNumInfo\u51fd\u6570\r\nfunction IsIDNumValid(IDNum: string): boolean;\r\n\r\n\/\/\u5c0615\u4f4d\u8eab\u4efd\u8bc1\u53f7\u7801\u6269\u5c55\u4e3a18\u4f4d\r\nfunction ExpandIDNum(IDNum15: string; var IDNum18: string): boolean;\r\n\r\n\/\/\u6839\u636e\u533a\u5212\u4ee3\u7801\u53d6\u76f8\u5e94\u7684\u5b57\u7b26\u4e32\r\nfunction GetRegionStr(RegionCode: string; FromFileName: string): string; overload;\r\n\r\nfunction GetRegionStr(RegionCode: string): string; overload;\r\n\r\nfunction GetRegionStr(var IDNumInfo: TIDNumInfo; FromFileName: string): boolean; overload;\r\n\r\nfunction GetRegionStr(var IDNumInfo: TIDNumInfo): boolean; overload;\r\n\r\n\/\/\u4ece\u6587\u4ef6\u4e2d\u533a\u5212\u4ee3\u7801\u4fe1\u606f\r\nfunction LoadRegionDat(FromFileName: string; var RegionCodeArray: TRegionCodeTransArray): boolean; overload;\r\n\/\/\u4e0b\u9762\u8fd9\u4e2a\u51fd\u6570\u7684\u4f5c\u7528\u662f\u76f4\u63a5\u5c06\u533a\u5212\u4ee3\u7801\u4fe1\u606f\u8bfb\u5165\u5230\u672c\u5355\u5143\u7684\u516c\u7528\u53d8\u91cf\u91cc\r\nfunction LoadRegionDat(FromFileName: string): boolean; overload;\r\n\r\nimplementation\r\n\r\nvar\r\n  RegionCodeTransArray : TRegionCodeTransArray;\r\n\r\n\/\/\u5224\u65ad\u8fd9\u4e2a\u5b57\u7b26\u662f\u5426\u4e3a\u6570\u5b57\r\nfunction IsDigiChar(TestChar: Char): boolean;\r\nbegin\r\n\/\/\u76f4\u63a5\u5224\u65ad\u6587\u5b57\r\n  Result := TestChar in &#x5B;'0', '1', '2', '3', '4', '5', '6', '7', '8', '9'];\r\n\/\/\u5f53\u7136\u8fd9\u91cc\u4e5f\u53ef\u4ee5\u4f7f\u7528\u5224\u65ad\u5b57\u7b26ASCII\u503c\u6240\u5728\u533a\u95f4\u7684\u65b9\u6cd5\uff0c\u5982\uff1a\r\n\/\/  Result := ord(TestChar) in &#x5B;ord('0')..ord('9')];\r\nend;\r\n\r\n\/\/\u5224\u65ad\u4e00\u4e2a\u5b57\u7b26\u4e32\u662f\u5426\u5168\u90e8\u7531\u6570\u5b57\u7ec4\u6210\r\nfunction IsDigiStr(TestStr: string): boolean;\r\nvar\r\n  Count0 : integer;\r\nbegin\r\n  if Length(TestStr) &gt; 0 then\r\n  begin\r\n    Result := true;\r\n    for Count0 := 1 to Length(TestStr) do\r\n      if not IsDigiChar(TestStr&#x5B;Count0]) then\r\n      begin\r\n        Result := false;\r\n        Break;\r\n      end;\r\n  end else\r\n    Result := false;\r\nend;\r\n\r\n\/\/\u7528\u4e8e\u751f\u621018\u4f4d\u8eab\u4efd\u8bc1\u53f7\u7801\u4e2d\u7684\u6821\u9a8c\u5b57\u7b26\r\n\/\/\u6ce8\u610f\uff1a\u6b64\u51fd\u6570\u4e0d\u68c0\u67e5\u524d17\u4f4d\u7684\u6709\u6548\u6027\u4ee5\u53ca\u5176\u662f\u5426\u4e3a\u6570\u5b57\r\nfunction GenIDNumCheckSumChar(IDNum18: string): char;\r\nvar\r\n  DataSum : integer;\r\n  Count0 : integer;\r\nbegin\r\n  if length(IDNum18) = 18 then\r\n  begin\r\n    DataSum := 0;\r\n\/\/\u5c06\u524d17\u4f4d\u4e0a\u7684\u5404\u4e2a\u6570\u5b57\u52a0\u6743\u7d2f\u52a0\r\n    for Count0 := 1 to 17 do\r\n      Inc(DataSum, StrtoInt(IDNum18&#x5B;Count0]) * cPosPowerArray&#x5B;Count0]);\r\n\/\/\u7ed3\u679c\u53d6\u6a21\uff0c\u518d\u4ece\u5b57\u5178\u4e2d\u5f97\u5230\u5bf9\u5e94\u7684\u5b57\u7b26\r\n    Result := cCheckSumValueArray&#x5B;DataSum mod 11];\r\n  end else\r\n    Result := ' ';\r\nend;\r\n\r\n\/\/\u5c0615\u4f4d\u8eab\u4efd\u8bc1\u53f7\u7801\u6269\u5c55\u4e3a18\u4f4d\r\nfunction ExpandIDNum(IDNum15: string; var IDNum18: string): boolean;\r\nvar\r\n  IDNumInfo: TIDNumInfo;\r\n  TmpIDNum : string;\r\nbegin\r\n  Result := false;\r\n  IDNum18 := '';\r\n\/\/\u5148\u68c0\u5bdf\u539f\u6709\u7684\u53f7\u7801\u662f\u5426\u6b63\u786e\r\n  if (length(IDNum15) = 15) and GetIDNumInfo(IDNum15, IDNumInfo) then\r\n  begin\r\n\/\/\u884c\u653f\u533a\u5212\u4ee3\u7801 + \u751f\u65e5 + \u987a\u5e8f\u7801 + \u6821\u9a8c\r\n    TmpIDNum := IDNumInfo.RegionCode + formatdatetime('yyyymmdd', IDNumInfo.BirthDay) + Copy(IDNum15, 13, 3) + ' ';\r\n\/\/\u751f\u6210\u6821\u9a8c\u7801\uff0c\u8865\u5230\u672b\u4f4d\r\n    TmpIDNum&#x5B;18] := GenIDNumCheckSumChar(TmpIDNum);\r\n    IDNum18      := TmpIDNum;\r\n    Result       := true;\r\n  end;\r\nend;\r\n\r\nfunction GetIDNumInfo(IDNum: string; var IDNumInfo: TIDNumInfo): boolean;\r\nvar\r\n  ToProcess : boolean;\r\n  IDNumLen,\r\n  Year, Month, Day : word;\r\n  SexMark          : char;\r\nbegin\r\n  Result := false;\r\n  FillChar(IDNumInfo, sizeof(IDNumInfo), #0);\r\n\r\n  IDNumLen := length(IDNum);\r\n  if IDNumLen in &#x5B;15, 18] then\r\n  begin\r\n    ToProcess := false;\r\n\/\/\u68c0\u67e5\u5b57\u7b26\u4e32\u662f\u5426\u7b26\u5408\u8981\u6c42\r\n    case IDNumLen of\r\n\/\/15\u4f4d\u8eab\u4efd\u8bc1\u53f7\u7801\uff0c\u5168\u90e8\u8981\u6c42\u4e3a\u6570\u5b57\r\n      15  : begin\r\n              ToProcess := IsDigiStr(IDNum);\r\n              IDNumInfo.IDNumType := idnum15;\r\n              IDNumInfo.ChecksumRst := csNoChecksum;\r\n            end;\r\n\/\/18\u4f4d\u8eab\u4efd\u8bc1\u53f7\u7801\uff0c\u524d17\u4f4d\u5fc5\u987b\u662f\u6570\u5b57\uff0c\u6700\u540e\u4e00\u4f4d\u9664\u6570\u5b57\u5916\uff0c\u53ef\u80fd\u662f&quot;X&quot;\r\n      18  : begin\r\n              ToProcess := IsDigiStr(Copy(IDNum, 1, 17)) and (IsDigiChar(IDNum&#x5B;18]) or (IDNum&#x5B;18] in &#x5B;'x', 'X']));\r\n              IDNumInfo.IDNumType := idnum18;\r\n            end;\r\n    end;\r\n\r\n    if ToProcess then\r\n    begin\r\n\/\/\u53d6\u533a\u5212\u4ee3\u7801\r\n      IDNumInfo.RegionCode := Copy(IDNum, 1, 6);\r\n\r\n\/\/\u53d6\u751f\u65e5\u4fe1\u606f\r\n      case IDNumInfo.IDNumType of\r\n        idnum15 : begin\r\n                    Year  := strtoint('19' + Copy(IDNum, 7, 2));\r\n                    Month := strtoint(Copy(IDNum, 9, 2));\r\n                    Day   := strtoint(Copy(IDNum, 11, 2));\r\n                  end;\r\n        idnum18 : begin\r\n                    Year  := strtoint(Copy(IDNum, 7, 4));\r\n                    Month := strtoint(Copy(IDNum, 11, 2));\r\n                    Day   := strtoint(Copy(IDNum, 13, 2));\r\n                  end;\r\n        else\r\n        begin\r\n          Year  := 0;\r\n          Month := 0;\r\n          Day   := 0;\r\n        end;\r\n      end;\r\n\/\/\u5c1d\u8bd5\u5c06\u751f\u65e5\u4fe1\u606f\u8f6c\u6362\u6210\u65e5\u671f\r\n      try\r\n        IDNumInfo.BirthDay := EncodeDate(Year, Month, Day);\r\n      except\r\n        ToProcess := false;\r\n      end;\r\n\r\n      if ToProcess then\r\n      begin\r\n\/\/\u53d6\u6027\u522b\r\n        SexMark := '1';\r\n\/\/\u53d6\u6027\u522b\u6807\u5fd7\r\n        case IDNumInfo.IDNumType of\r\n          idnum15 : SexMark := IDNum&#x5B;15];\r\n          idnum18 : SexMark := IDNum&#x5B;17];\r\n        end;\r\n\/\/\u5224\u65ad\u6027\u522b\r\n        case strtoint(SexMark) mod 2 of\r\n          0 : IDNumInfo.Sex := sexFemale;\r\n          1 : IDNumInfo.Sex := sexMale;\r\n        end;\r\n\r\n\/\/\u5982\u679c\u662f18\u4f4d\u7684\u8eab\u4efd\u8bc1\uff0c\u5224\u65ad\u6821\u9a8c\u662f\u5426\u6b63\u786e\r\n        if IDNumInfo.IDNumType = idnum18 then\r\n        begin\r\n          if CompareText(GenIDNumCheckSumChar(IDNum), IDNum&#x5B;18]) = 0 then\r\n          begin\r\n            IDNumInfo.ChecksumRst := csChecksumCorrect;\r\n            Result := true;\r\n          end;\r\n        end else\r\n          Result := true;\r\n      end;\r\n    end;\r\n  end;\r\nend;\r\n\r\n\/\/\u5224\u65ad\u8eab\u4efd\u8bc1\u53f7\u7801\u662f\u5426\u6b63\u786e\uff0c\u901a\u8fc7\u4ece\u4e2d\u53d6\u4fe1\u606f\u662f\u5426\u6210\u529f\u6765\u5224\u5b9a\u3002\r\nfunction IsIDNumValid(IDNum: string): boolean;\r\nvar\r\n  TmpIDNumInfo : TIDNumInfo;\r\nbegin\r\n  Result := GetIDNumInfo(IDNum, TmpIDNumInfo);\r\nend;\r\n\r\n\/\/\u5c06\u533a\u5212\u4ee3\u7801\u8f6c\u6362\u6210\u540d\u79f0\r\nfunction RegionCode2Str(RegionCode: string; RegionCodeArray: TRegionCodeTransArray): string;\r\n\r\n\/\/\u5728\u5217\u8868\u4e2d\u641c\u7d22\u6307\u5b9a\u7684\u533a\u5212\u4ee3\u7801\u6240\u5bf9\u5e94\u7684\u540d\u79f0\r\n\/\/\u7528\u6298\u534a\u67e5\u627e\uff0c\u6240\u4ee5\u8981\u6c42\u8f93\u5165\u7684\u5bf9\u5e94\u5173\u7cfb\u5fc5\u987b\u662f\u6709\u5e8f\u7684\r\n  function SearchRegionStr(SearchRegionCode: string): string;\r\n  var\r\n    SearchFrom,\r\n    SearchTo,\r\n    CheckIdx,\r\n    SearchValue,\r\n    CheckValue   : integer;\r\n  begin\r\n    Result := '';\r\n\r\n    SearchFrom   := low(RegionCodeArray);\r\n    SearchTo     := high(RegionCodeArray);\r\n    SearchValue  := StrToInt(SearchRegionCode);\r\n    while SearchFrom &lt;= SearchTo do\r\n    begin\r\n      CheckIdx := (SearchFrom + SearchTo) div 2;\r\n      CheckValue := StrToInt(RegionCodeArray&#x5B;CheckIdx].RegionCode);\r\n\r\n      if CheckValue = SearchValue then\r\n      begin\r\n        Result := RegionCodeArray&#x5B;CheckIdx].RegionStr;\r\n        Break;\r\n      end else\r\n        if CheckValue &gt; SearchValue then\r\n        begin\r\n          SearchTo := CheckIdx - 1;\r\n        end else\r\n          if CheckValue &lt; SearchValue then\r\n          begin\r\n            SearchFrom := CheckIdx + 1;\r\n          end;\r\n    end;\r\n  end;\r\n\r\nvar\r\n  SepRegionCode : TSepRegionCode;\r\n  TmpStr,\r\n  SearchRst : string;\r\nbegin\r\n  Result := '';\r\n\/\/\u533a\u5212\u4ee3\u7801\u4e3a6\u4f4d\r\n  if (length(RegionCode) = 6) and IsDigiStr(RegionCode) and (length(RegionCodeArray) &gt; 0) then\r\n  begin\r\n\/\/\u5206\u89e3\u533a\u5212\u4ee3\u7801\r\n    SepRegionCode.ProvinceCode := Copy(RegionCode, 1, 2);\r\n    SepRegionCode.CityCode     := Copy(RegionCode, 3, 2);\r\n    SepRegionCode.CountyCode   := Copy(RegionCode, 5, 2);\r\n\r\n\/\/\u7701\u7ea7\u7684\u533a\u5212\u4ee3\u7801\u4e0d\u5305\u62ec11\u4ee5\u4e0b\u7684\u7ec4\u5408\r\n    if StrToInt(SepRegionCode.ProvinceCode) &gt; 10 then\r\n    begin\r\n\/\/\u5217\u8868\u5185\u641c\u7d22\u7701\u7684\u540d\u79f0\r\n      TmpStr := '';\r\n      SearchRst := SearchRegionStr(SepRegionCode.ProvinceCode + '0000');\r\n      if length(SearchRst) &gt; 0 then\r\n      begin\r\n        TmpStr := SearchRst;\r\n\/\/\u5728\u5217\u8868\u5185\u641c\u7d22\u5e02\u7684\u540d\u79f0\r\n        SearchRst := SearchRegionStr(SepRegionCode.ProvinceCode + SepRegionCode.CityCode + '00');\r\n        if length(SearchRst) &gt; 0 then\r\n        begin\r\n          if not((SearchRst = '\u5e02\u8f96\u533a') or (SearchRst = '\u53bf')) then\r\n            TmpStr := TmpStr + SearchRst;\r\n\/\/\u5728\u5217\u8868\u5185\u641c\u7d22\u53bf\u7684\u540d\u79f0\r\n          SearchRst := SearchRegionStr(SepRegionCode.ProvinceCode + SepRegionCode.CityCode + SepRegionCode.CountyCode);\r\n          if length(SearchRst) &gt; 0 then\r\n          begin\r\n            if not((SearchRst = '\u5e02\u8f96\u533a') or (SearchRst = '\u53bf')) then\r\n              TmpStr := TmpStr + SearchRst;\r\n          end;\r\n        end;\r\n      end;\r\n\r\n      Result := TmpStr;\r\n    end;\r\n\r\n  end;\r\n\r\nend;\r\n\r\n\/\/\u53d6\u533a\u5212\u540d\u79f0\r\nfunction GetRegionStr(RegionCode: string; FromFileName: string): string;\r\nvar\r\n  RegionCodeArray: TRegionCodeTransArray;\r\nbegin\r\n  if LoadRegionDat(FromFileName, RegionCodeArray) then\r\n    Result := RegionCode2Str(RegionCode, RegionCodeArray)\r\n  else\r\n    Result := '';\r\nend;\r\n\r\n\/\/\u53d6\u533a\u5212\u540d\u79f0\r\nfunction GetRegionStr(RegionCode: string): string;\r\nbegin\r\n  Result := RegionCode2Str(RegionCode, RegionCodeTransArray);\r\nend;\r\n\r\n\/\/\u53d6\u533a\u5212\u540d\u79f0\r\nfunction GetRegionStr(var IDNumInfo: TIDNumInfo; FromFileName: string): boolean;\r\nvar\r\n  RegionStr : string;\r\nbegin\r\n  RegionStr := GetRegionStr(IDNumInfo.RegionCode, FromFileName);\r\n  if not (RegionStr = '') then\r\n  begin\r\n    IDNumInfo.RegionStr := RegionStr;\r\n    Result := true;\r\n  end else\r\n    Result := false;\r\nend;\r\n\r\n\/\/\u53d6\u533a\u5212\u540d\u79f0\r\nfunction GetRegionStr(var IDNumInfo: TIDNumInfo): boolean;\r\nvar\r\n  RegionStr : string;\r\nbegin\r\n  RegionStr := GetRegionStr(IDNumInfo.RegionCode);\r\n  if not (RegionStr = '') then\r\n  begin\r\n    IDNumInfo.RegionStr := RegionStr;\r\n    Result := true;\r\n  end else\r\n    Result := false;\r\nend;\r\n\r\n\/\/\u6839\u636e\u6307\u5b9a\u5206\u9694\u7b26\u5206\u89e3\u5b57\u7b26\u4e32\uff0c\u5e76\u5b58\u5165\u6570\u7ec4\r\nfunction  DecodeStr2Array(Source: string; SepChar: char; var Rst: TStrArray): integer;\r\nvar\r\n  Count, CutFrom, Len: word;\r\n\r\n  procedure AddStr(Str: string);\r\n  begin\r\n    SetLength(Rst, length(Rst) + 1);\r\n    Rst&#x5B;high(Rst)] := Str;\r\n  end;\r\nbegin\r\n  Result := 0;\r\n  SetLength(Rst, 0);\r\n  len := length(Source);\r\n  if len &gt; 0 then\r\n  begin\r\n    CutFrom := 1;\r\n\r\n    for count := 1 to len do \/\/\u9010\u5b57\u7b26\u626b\u63cf\u5b57\u7b26\u4e32\uff0c\u9047\u5230\u5206\u9694\u7b26\u65f6\u5219\u5207\u65ad\u4e32\u83b7\u5f97\u6570\u636e\r\n      if (Source&#x5B;count] = SepChar) then begin\r\n        AddStr(Copy(Source, CutFrom, count - CutFrom));\r\n        CutFrom := count + 1;\r\n        if Count = Len then\r\n          AddStr('');\r\n      end else\r\n        if count = len then\r\n        begin\r\n          AddStr(Copy(Source, CutFrom, count - CutFrom + 1));\r\n          Break;\r\n        end;\r\n\r\n    Result := length(Rst);\r\n  end;\r\nend;\r\n\r\n\/\/\u628a\u533a\u5212\u4ee3\u7801\u548c\u540d\u79f0\u7684\u5bf9\u5e94\u5173\u7cfb\u4ece\u6587\u4ef6\u8bfb\u5230\u53d8\u91cf\u4e2d\r\nfunction LoadRegionDat(FromFileName: string; var RegionCodeArray: TRegionCodeTransArray): boolean;\r\nvar\r\n  Count0 : integer;\r\n  RegionDatFile : TStringList;\r\n  StrArray      : TStrArray;\r\nbegin\r\n  Result := false;\r\n  SetLength(RegionCodeArray, 0);\r\n\r\n  if FileExists(FromFileName) then\r\n  begin\r\n    RegionDatFile := TStringList.Create;\r\n\/\/\u8bfb\u5165\u6587\u4ef6\r\n    try\r\n      RegionDatFile.LoadFromFile(FromFileName);\r\n    except\r\n\r\n    end;\r\n\/\/\u5904\u7406\u6570\u636e\r\n    for Count0 := 0 to RegionDatFile.Count - 1 do\r\n\/\/\u8df3\u8fc7\u7a7a\u884c\r\n      if length(RegionDatFile&#x5B;Count0]) &gt; 0 then\r\n      begin\r\n\/\/\u8df3\u8fc7\u4ee5#\u5f00\u5934\u7684\u884c\uff08\u6ce8\u91ca\u884c\uff09\r\n        if not (RegionDatFile&#x5B;Count0]&#x5B;1] = '#') then\r\n        begin\r\n\/\/\u5206\u89e3\u6570\u636e\r\n          if (DecodeStr2Array(RegionDatFile&#x5B;Count0], ',', StrArray) = 2) and   \/\/\u4ee5,\u5206\u9694\u7684\u4e24\u4e2a\u5b57\u6bb5\r\n            (length(StrArray&#x5B;0]) = 6) and                                      \/\/\u4ee3\u7801\u957f\u5ea6\u4e3a6\u4e2a\u5b57\u7b26\r\n            IsDigiStr(StrArray&#x5B;0]) and                                         \/\/\u4ee3\u7801\u5fc5\u987b\u5168\u90e8\u662f\u6570\u5b57\r\n            (length(StrArray&#x5B;1]) &gt; 0) then                                     \/\/\u540d\u79f0\u957f\u5ea6\u5fc5\u987b\u5927\u4e8e1\r\n          begin\r\n\/\/\u589e\u52a0\u5185\u5bb9\r\n            SetLength(RegionCodeArray, length(RegionCodeArray) + 1);\r\n            RegionCodeArray&#x5B;high(RegionCodeArray)].RegionCode := StrArray&#x5B;0];\r\n            RegionCodeArray&#x5B;high(RegionCodeArray)].RegionStr  := StrArray&#x5B;1];\r\n          end;\r\n        end;\r\n      end;\r\n\r\n    Result := length(RegionCodeArray) &gt; 0;\r\n\r\n    RegionDatFile.Free;\r\n  end;\r\nend;\r\n\r\n\/\/\u76f4\u63a5\u5c06\u533a\u5212\u4ee3\u7801\u4fe1\u606f\u8bfb\u5165\u5230\u672c\u5355\u5143\u7684\u516c\u7528\u53d8\u91cf\u91cc\r\nfunction LoadRegionDat(FromFileName: string): boolean;\r\nbegin\r\n  Result := LoadRegionDat(FromFileName, RegionCodeTransArray);\r\nend;\r\n\r\ninitialization\r\n  SetLength(RegionCodeTransArray, 0);\r\n\r\nend.\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/ [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6],"tags":[],"class_list":["post-582","post","type-post","status-publish","format-standard","hentry","category-code_related"],"_links":{"self":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/582","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/comments?post=582"}],"version-history":[{"count":1,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/582\/revisions"}],"predecessor-version":[{"id":4736,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/582\/revisions\/4736"}],"wp:attachment":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/media?parent=582"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/categories?post=582"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/tags?post=582"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}