countrylist.pas

著名的SecureBlackBox控件完整源码

end;

function GetCountryAbbr (S : AnsiString) : AnsiString;
begin
  Result:='ZZ';
  if S='Andorra' then Result := 'AD';
  if S='United Arab Emirates' then Result := 'AE';
  if S='Afghanistan' then Result := 'AF';
  if S='Antigua & Barbuda' then Result := 'AG';
  if S='Anguilla' then Result := 'AI';
  if S='Albania' then Result := 'AL';
  if S='Armenia' then Result := 'AM';
  if S='Netherlands Antilles' then Result := 'AN';
  if S='Angola' then Result := 'AO';
  if S='Antarctica' then Result := 'AQ';
  if S='Argentina' then Result := 'AR';
  if S='American Samoa' then Result := 'AS';
  if S='Austria' then Result := 'AT';
  if S='Australia' then Result := 'AU';
  if S='Aruba' then Result := 'AW';
  if S='Azerbaijan' then Result := 'AZ';
  if S='Bosnia and Herzegovina' then Result := 'BA';
  if S='Barbados' then Result := 'BB';
  if S='Bangladesh' then Result := 'BD';
  if S='Belgium' then Result := 'BE';
  if S='Burkina Faso' then Result := 'BF';
  if S='Bulgaria' then Result := 'BG';
  if S='Bahrain' then Result := 'BH';
  if S='Burundi' then Result := 'BI';
  if S='Benin' then Result := 'BJ';
  if S='Bermuda' then Result := 'BM';
  if S='Brunei Darussalam' then Result := 'BN';
  if S='Bolivia' then Result := 'BO';
  if S='Brazil' then Result := 'BR';
  if S='Bahama' then Result := 'BS';
  if S='Bhutan' then Result := 'BT';
  if S='Burma (no longer exists)' then Result := 'BU';
  if S='Bouvet Island' then Result := 'BV';
  if S='Botswana' then Result := 'BW';
  if S='Belarus' then Result := 'BY';
  if S='Belize' then Result := 'BZ';
  if S='Canada' then Result := 'CA';
  if S='Cocos (Keeling) Islands' then Result := 'CC';
  if S='Central African Republic' then Result := 'CF';
  if S='Congo' then Result := 'CG';
  if S='Switzerland' then Result := 'CH';
  if S='Cote D''ivoire (Ivory Coast)' then Result := 'CI';
  if S='Cook Iislands' then Result := 'CK';
  if S='Chile' then Result := 'CL';
  if S='Cameroon' then Result := 'CM';
  if S='China' then Result := 'CN';
  if S='Colombia' then Result := 'CO';
  if S='Costa Rica' then Result := 'CR';
  if S='Czechoslovakia (no longer exists)' then Result := 'CS';
  if S='Cuba' then Result := 'CU';
  if S='Cape Verde' then Result := 'CV';
  if S='Christmas Island' then Result := 'CX';
  if S='Cyprus' then Result := 'CY';
  if S='Czech Republic' then Result := 'CZ';
  if S='German Democratic Republic (no longer exists)' then Result := 'DD';
  if S='Germany' then Result := 'DE';
  if S='Djibouti' then Result := 'DJ';
  if S='Denmark' then Result := 'DK';
  if S='Dominica' then Result := 'DM';
  if S='Dominican Republic' then Result := 'DO';
  if S='Algeria' then Result := 'DZ';
  if S='Ecuador' then Result := 'EC';
  if S='Estonia' then Result := 'EE';
  if S='Egypt' then Result := 'EG';
  if S='Western Sahara' then Result := 'EH';
  if S='Eritrea' then Result := 'ER';
  if S='Spain' then Result := 'ES';
  if S='Ethiopia' then Result := 'ET';
  if S='Finland' then Result := 'FI';
  if S='Fiji' then Result := 'FJ';
  if S='Falkland Islands (Malvinas)' then Result := 'FK';
  if S='Micronesia' then Result := 'FM';
  if S='Faroe Islands' then Result := 'FO';
  if S='France' then Result := 'FR';
  if S='France, Metropolitan' then Result := 'FX';
  if S='Gabon' then Result := 'GA';
  if S='United Kingdom (Great Britain)' then Result := 'GB';
  if S='Grenada' then Result := 'GD';
  if S='Georgia' then Result := 'GE';
  if S='French Guiana' then Result := 'GF';
  if S='Ghana' then Result := 'GH';
  if S='Gibraltar' then Result := 'GI';
  if S='Greenland' then Result := 'GL';
  if S='Gambia' then Result := 'GM';
  if S='Guinea' then Result := 'GN';
  if S='Guadeloupe' then Result := 'GP';
  if S='Equatorial Guinea' then Result := 'GQ';
  if S='Greece' then Result := 'GR';
  if S='South Georgia and the South Sandwich Islands' then Result := 'GS';
  if S='Guatemala' then Result := 'GT';
  if S='Guam' then Result := 'GU';
  if S='Guinea-Bissau' then Result := 'GW';
  if S='Guyana' then Result := 'GY';
  if S='Hong Kong' then Result := 'HK';
  if S='Heard & McDonald Islands' then Result := 'HM';
  if S='Honduras' then Result := 'HN';
  if S='Croatia' then Result := 'HR';
  if S='Haiti' then Result := 'HT';
  if S='Hungary' then Result := 'HU';
  if S='Indonesia' then Result := 'ID';
  if S='Ireland' then Result := 'IE';
  if S='Israel' then Result := 'IL';
  if S='India' then Result := 'IN';
  if S='British Indian Ocean Territory' then Result := 'IO';
  if S='Iraq' then Result := 'IQ';
  if S='Islamic Republic of Iran' then Result := 'IR';
  if S='Iceland' then Result := 'IS';
  if S='Italy' then Result := 'IT';
  if S='Jamaica' then Result := 'JM';
  if S='Jordan' then Result := 'JO';
  if S='Japan' then Result := 'JP';
  if S='Kenya' then Result := 'KE';
  if S='Kyrgyzstan' then Result := 'KG';
  if S='Cambodia' then Result := 'KH';
  if S='Kiribati' then Result := 'KI';
  if S='Comoros' then Result := 'KM';
  if S='St. Kitts and Nevis' then Result := 'KN';
  if S='Korea, Democratic People''s Republic of' then Result := 'KP';
  if S='Korea, Republic of' then Result := 'KR';
  if S='Kuwait' then Result := 'KW';
  if S='Cayman Islands' then Result := 'KY';
  if S='Kazakhstan' then Result := 'KZ';
  if S='Lao People''s Democratic Republic' then Result := 'LA';
  if S='Lebanon' then Result := 'LB';
  if S='Saint Lucia' then Result := 'LC';
  if S='Liechtenstein' then Result := 'LI';
  if S='Sri Lanka' then Result := 'LK';
  if S='Liberia' then Result := 'LR';
  if S='Lesotho' then Result := 'LS';
  if S='Lithuania' then Result := 'LT';
  if S='Luxembourg' then Result := 'LU';
  if S='Latvia' then Result := 'LV';
  if S='Libyan Arab Jamahiriya' then Result := 'LY';
  if S='Morocco' then Result := 'MA';
  if S='Monaco' then Result := 'MC';
  if S='Moldova, Republic of ' then Result := 'MD';
  if S='Madagascar' then Result := 'MG';
  if S='Marshall Islands' then Result := 'MH';
  if S='Mali' then Result := 'ML';
  if S='Mongolia' then Result := 'MN';
  if S='Myanmar' then Result := 'MM';
  if S='Macau' then Result := 'MO';
  if S='Northern Mariana Islands' then Result := 'MP';
  if S='Martinique' then Result := 'MQ';
  if S='Mauritania' then Result := 'MR';
  if S='Monserrat' then Result := 'MS';
  if S='Malta' then Result := 'MT';
  if S='Mauritius' then Result := 'MU';
  if S='Maldives' then Result := 'MV';
  if S='Malawi' then Result := 'MW';
  if S='Mexico' then Result := 'MX';
  if S='Malaysia' then Result := 'MY';
  if S='Mozambique' then Result := 'MZ';
  if S='Nambia' then Result := 'NA';
  if S='New Caledonia' then Result := 'NC';
  if S='Niger' then Result := 'NE';
  if S='Norfolk Island' then Result := 'NF';
  if S='Nigeria' then Result := 'NG';
  if S='Nicaragua' then Result := 'NI';
  if S='Netherlands' then Result := 'NL';
  if S='Norway' then Result := 'NO';
  if S='Nepal' then Result := 'NP';
  if S='Nauru' then Result := 'NR';
  if S='Neutral Zone (no longer exists)' then Result := 'NT';
  if S='Niue' then Result := 'NU';
  if S='New Zealand' then Result := 'NZ';
  if S='Oman' then Result := 'OM';
  if S='Panama' then Result := 'PA';
  if S='Peru' then Result := 'PE';
  if S='French Polynesia' then Result := 'PF';
  if S='Papua New Guinea' then Result := 'PG';
  if S='Philippines' then Result := 'PH';
  if S='Pakistan' then Result := 'PK';
  if S='Poland' then Result := 'PL';
  if S='St. Pierre & Miquelon' then Result := 'PM';
  if S='Pitcairn' then Result := 'PN';
  if S='Puerto Rico' then Result := 'PR';
  if S='Portugal' then Result := 'PT';
  if S='Palau' then Result := 'PW';
  if S='Paraguay' then Result := 'PY';
  if S='Qatar' then Result := 'QA';
  if S='Reunion' then Result := 'RE';
  if S='Romania' then Result := 'RO';
  if S='Russian Federation' then Result := 'RU';
  if S='Rwanda' then Result := 'RW';
  if S='Saudi Arabia' then Result := 'SA';
  if S='Solomon Islands' then Result := 'SB';
  if S='Seychelles' then Result := 'SC';
  if S='Sudan' then Result := 'SD';
  if S='Sweden' then Result := 'SE';
  if S='Singapore' then Result := 'SG';
  if S='St. Helena' then Result := 'SH';
  if S='Slovenia' then Result := 'SI';
  if S='Svalbard & Jan Mayen Islands' then Result := 'SJ';
  if S='Slovakia' then Result := 'SK';
  if S='Sierra Leone' then Result := 'SL';
  if S='San Marino' then Result := 'SM';
  if S='Senegal' then Result := 'SN';
  if S='Somalia' then Result := 'SO';
  if S='Suriname' then Result := 'SR';
  if S='Sao Tome & Principe' then Result := 'ST';
  if S='Union of Soviet Socialist Republics (no longer exists)' then Result := 'SU';
  if S='El Salvador' then Result := 'SV';
  if S='Syrian Arab Republic' then Result := 'SY';
  if S='Swaziland' then Result := 'SZ';
  if S='Turks & Caicos Islands' then Result := 'TC';
  if S='Chad' then Result := 'TD';
  if S='French Southern Territories' then Result := 'TF';
  if S='Togo' then Result := 'TG';
  if S='Thailand' then Result := 'TH';
  if S='Tajikistan' then Result := 'TJ';
  if S='Tokelau' then Result := 'TK';
  if S='Turkmenistan' then Result := 'TM';
  if S='Tunisia' then Result := 'TN';
  if S='Tonga' then Result := 'TO';
  if S='East Timor' then Result := 'TP';
  if S='Turkey' then Result := 'TR';
  if S='Trinidad & Tobago' then Result := 'TT';
  if S='Tuvalu' then Result := 'TV';
  if S='Taiwan, Province of China' then Result := 'TW';
  if S='Tanzania, United Republic of' then Result := 'TZ';
  if S='Ukraine' then Result := 'UA';
  if S='Uganda' then Result := 'UG';
  if S='United States Minor Outlying Islands' then Result := 'UM';
  if S='United States of America' then Result := 'US';
  if S='Uruguay' then Result := 'UY';
  if S='Uzbekistan' then Result := 'UZ';
  if S='Vatican City State (Holy See)' then Result := 'VA';
  if S='St. Vincent & the Grenadines' then Result := 'VC';
  if S='Venezuela' then Result := 'VE';
  if S='British Virgin Islands' then Result := 'VG';
  if S='United States Virgin Islands' then Result := 'VI';
  if S='Viet Nam' then Result := 'VN';
  if S='Vanuatu' then Result := 'VU';
  if S='Wallis & Futuna Islands' then Result := 'WF';
  if S='Samoa' then Result := 'WS';
  if S='Democratic Yemen (no longer exists)' then Result := 'YD';
  if S='Yemen' then Result := 'YE';
  if S='Mayotte' then Result := 'YT';
  if S='Yugoslavia' then Result := 'YU';
  if S='South Africa' then Result := 'ZA';
  if S='Zambia' then Result := 'ZM';
  if S='Zaire' then Result := 'ZR';
  if S='Zimbabwe' then Result := 'ZW';
end;


end.