countrylist.pas

著名的SecureBlackBox控件完整源码

unit CountryList;

interface

uses Windows, Messages, SysUtils, Classes, StdCtrls, ExtCtrls;

  procedure FillCountryCombo (Combo : TComboBox);
  function GetCountryAbbr (S : AnsiString) : AnsiString;

implementation

procedure FillCountryCombo (Combo : TComboBox);
begin
  Combo.Items.Clear;
  Combo.Items.Add('Andorra');
  Combo.Items.Add('United Arab Emirates');
  Combo.Items.Add('Afghanistan');
  Combo.Items.Add('Antigua & Barbuda');
  Combo.Items.Add('Anguilla');
  Combo.Items.Add('Albania');
  Combo.Items.Add('Armenia');
  Combo.Items.Add('Netherlands Antilles');
  Combo.Items.Add('Angola');
  Combo.Items.Add('Antarctica');
  Combo.Items.Add('Argentina');
  Combo.Items.Add('American Samoa');
  Combo.Items.Add('Austria');
  Combo.Items.Add('Australia');
  Combo.Items.Add('Aruba');
  Combo.Items.Add('Azerbaijan');
  Combo.Items.Add('Bosnia and Herzegovina');
  Combo.Items.Add('Barbados');
  Combo.Items.Add('Bangladesh');
  Combo.Items.Add('Belgium');
  Combo.Items.Add('Burkina Faso');
  Combo.Items.Add('Bulgaria');
  Combo.Items.Add('Bahrain');
  Combo.Items.Add('Burundi');
  Combo.Items.Add('Benin');
  Combo.Items.Add('Bermuda');
  Combo.Items.Add('Brunei Darussalam');
  Combo.Items.Add('Bolivia');
  Combo.Items.Add('Brazil');
  Combo.Items.Add('Bahama');
  Combo.Items.Add('Bhutan');
  Combo.Items.Add('Burma (no longer exists)');
  Combo.Items.Add('Bouvet Island');
  Combo.Items.Add('Botswana');
  Combo.Items.Add('Belarus');
  Combo.Items.Add('Belize');
  Combo.Items.Add('Canada');
  Combo.Items.Add('Cocos (Keeling) Islands');
  Combo.Items.Add('Central African Republic');
  Combo.Items.Add('Congo');
  Combo.Items.Add('Switzerland');
  Combo.Items.Add('Cote D''ivoire (Ivory Coast)');
  Combo.Items.Add('Cook Iislands');
  Combo.Items.Add('Chile');
  Combo.Items.Add('Cameroon');
  Combo.Items.Add('China');
  Combo.Items.Add('Colombia');
  Combo.Items.Add('Costa Rica');
  Combo.Items.Add('Czechoslovakia (no longer exists)');
  Combo.Items.Add('Cuba');
  Combo.Items.Add('Cape Verde');
  Combo.Items.Add('Christmas Island');
  Combo.Items.Add('Cyprus');
  Combo.Items.Add('Czech Republic');
  Combo.Items.Add('German Democratic Republic (no longer exists)');
  Combo.Items.Add('Germany');
  Combo.Items.Add('Djibouti');
  Combo.Items.Add('Denmark');
  Combo.Items.Add('Dominica');
  Combo.Items.Add('Dominican Republic');
  Combo.Items.Add('Algeria');
  Combo.Items.Add('Ecuador');
  Combo.Items.Add('Estonia');
  Combo.Items.Add('Egypt');
  Combo.Items.Add('Western Sahara');
  Combo.Items.Add('Eritrea');
  Combo.Items.Add('Spain');
  Combo.Items.Add('Ethiopia');
  Combo.Items.Add('Finland');
  Combo.Items.Add('Fiji');
  Combo.Items.Add('Falkland Islands (Malvinas)');
  Combo.Items.Add('Micronesia');
  Combo.Items.Add('Faroe Islands');
  Combo.Items.Add('France');
  Combo.Items.Add('France, Metropolitan');
  Combo.Items.Add('Gabon');
  Combo.Items.Add('United Kingdom (Great Britain)');
  Combo.Items.Add('Grenada');
  Combo.Items.Add('Georgia');
  Combo.Items.Add('French Guiana');
  Combo.Items.Add('Ghana');
  Combo.Items.Add('Gibraltar');
  Combo.Items.Add('Greenland');
  Combo.Items.Add('Gambia');
  Combo.Items.Add('Guinea');
  Combo.Items.Add('Guadeloupe');
  Combo.Items.Add('Equatorial Guinea');
  Combo.Items.Add('Greece');
  Combo.Items.Add('South Georgia and the South Sandwich Islands');
  Combo.Items.Add('Guatemala');
  Combo.Items.Add('Guam');
  Combo.Items.Add('Guinea-Bissau');
  Combo.Items.Add('Guyana');
  Combo.Items.Add('Hong Kong');
  Combo.Items.Add('Heard & McDonald Islands');
  Combo.Items.Add('Honduras');
  Combo.Items.Add('Croatia');
  Combo.Items.Add('Haiti');
  Combo.Items.Add('Hungary');
  Combo.Items.Add('Indonesia');
  Combo.Items.Add('Ireland');
  Combo.Items.Add('Israel');
  Combo.Items.Add('India');
  Combo.Items.Add('British Indian Ocean Territory');
  Combo.Items.Add('Iraq');
  Combo.Items.Add('Islamic Republic of Iran');
  Combo.Items.Add('Iceland');
  Combo.Items.Add('Italy');
  Combo.Items.Add('Jamaica');
  Combo.Items.Add('Jordan');
  Combo.Items.Add('Japan');
  Combo.Items.Add('Kenya');
  Combo.Items.Add('Kyrgyzstan');
  Combo.Items.Add('Cambodia');
  Combo.Items.Add('Kiribati');
  Combo.Items.Add('Comoros');
  Combo.Items.Add('St. Kitts and Nevis');
  Combo.Items.Add('Korea, Democratic People''s Republic of');
  Combo.Items.Add('Korea, Republic of');
  Combo.Items.Add('Kuwait');
  Combo.Items.Add('Cayman Islands');
  Combo.Items.Add('Kazakhstan');
  Combo.Items.Add('Lao People''s Democratic Republic');
  Combo.Items.Add('Lebanon');
  Combo.Items.Add('Saint Lucia');
  Combo.Items.Add('Liechtenstein');
  Combo.Items.Add('Sri Lanka');
  Combo.Items.Add('Liberia');
  Combo.Items.Add('Lesotho');
  Combo.Items.Add('Lithuania');
  Combo.Items.Add('Luxembourg');
  Combo.Items.Add('Latvia');
  Combo.Items.Add('Libyan Arab Jamahiriya');
  Combo.Items.Add('Morocco');
  Combo.Items.Add('Monaco');
  Combo.Items.Add('Moldova, Republic of ');
  Combo.Items.Add('Madagascar');
  Combo.Items.Add('Marshall Islands');
  Combo.Items.Add('Mali');
  Combo.Items.Add('Mongolia');
  Combo.Items.Add('Myanmar');
  Combo.Items.Add('Macau');
  Combo.Items.Add('Northern Mariana Islands');
  Combo.Items.Add('Martinique');
  Combo.Items.Add('Mauritania');
  Combo.Items.Add('Monserrat');
  Combo.Items.Add('Malta');
  Combo.Items.Add('Mauritius');
  Combo.Items.Add('Maldives');
  Combo.Items.Add('Malawi');
  Combo.Items.Add('Mexico');
  Combo.Items.Add('Malaysia');
  Combo.Items.Add('Mozambique');
  Combo.Items.Add('Nambia');
  Combo.Items.Add('New Caledonia');
  Combo.Items.Add('Niger');
  Combo.Items.Add('Norfolk Island');
  Combo.Items.Add('Nigeria');
  Combo.Items.Add('Nicaragua');
  Combo.Items.Add('Netherlands');
  Combo.Items.Add('Norway');
  Combo.Items.Add('Nepal');
  Combo.Items.Add('Nauru');
  Combo.Items.Add('Neutral Zone (no longer exists)');
  Combo.Items.Add('Niue');
  Combo.Items.Add('New Zealand');
  Combo.Items.Add('Oman');
  Combo.Items.Add('Panama');
  Combo.Items.Add('Peru');
  Combo.Items.Add('French Polynesia');
  Combo.Items.Add('Papua New Guinea');
  Combo.Items.Add('Philippines');
  Combo.Items.Add('Pakistan');
  Combo.Items.Add('Poland');
  Combo.Items.Add('St. Pierre & Miquelon');
  Combo.Items.Add('Pitcairn');
  Combo.Items.Add('Puerto Rico');
  Combo.Items.Add('Portugal');
  Combo.Items.Add('Palau');
  Combo.Items.Add('Paraguay');
  Combo.Items.Add('Qatar');
  Combo.Items.Add('Reunion');
  Combo.Items.Add('Romania');
  Combo.Items.Add('Russian Federation');
  Combo.Items.Add('Rwanda');
  Combo.Items.Add('Saudi Arabia');
  Combo.Items.Add('Solomon Islands');
  Combo.Items.Add('Seychelles');
  Combo.Items.Add('Sudan');
  Combo.Items.Add('Sweden');
  Combo.Items.Add('Singapore');
  Combo.Items.Add('St. Helena');
  Combo.Items.Add('Slovenia');
  Combo.Items.Add('Svalbard & Jan Mayen Islands');
  Combo.Items.Add('Slovakia');
  Combo.Items.Add('Sierra Leone');
  Combo.Items.Add('San Marino');
  Combo.Items.Add('Senegal');
  Combo.Items.Add('Somalia');
  Combo.Items.Add('Suriname');
  Combo.Items.Add('Sao Tome & Principe');
  Combo.Items.Add('Union of Soviet Socialist Republics (no longer exists)');
  Combo.Items.Add('El Salvador');
  Combo.Items.Add('Syrian Arab Republic');
  Combo.Items.Add('Swaziland');
  Combo.Items.Add('Turks & Caicos Islands');
  Combo.Items.Add('Chad');
  Combo.Items.Add('French Southern Territories');
  Combo.Items.Add('Togo');
  Combo.Items.Add('Thailand');
  Combo.Items.Add('Tajikistan');
  Combo.Items.Add('Tokelau');
  Combo.Items.Add('Turkmenistan');
  Combo.Items.Add('Tunisia');
  Combo.Items.Add('Tonga');
  Combo.Items.Add('East Timor');
  Combo.Items.Add('Turkey');
  Combo.Items.Add('Trinidad & Tobago');
  Combo.Items.Add('Tuvalu');
  Combo.Items.Add('Taiwan, Province of China');
  Combo.Items.Add('Tanzania, United Republic of');
  Combo.Items.Add('Ukraine');
  Combo.Items.Add('Uganda');
  Combo.Items.Add('United States Minor Outlying Islands');
  Combo.Items.Add('United States of America');
  Combo.Items.Add('Uruguay');
  Combo.Items.Add('Uzbekistan');
  Combo.Items.Add('Vatican City State (Holy See)');
  Combo.Items.Add('St. Vincent & the Grenadines');
  Combo.Items.Add('Venezuela');
  Combo.Items.Add('British Virgin Islands');
  Combo.Items.Add('United States Virgin Islands');
  Combo.Items.Add('Viet Nam');
  Combo.Items.Add('Vanuatu');
  Combo.Items.Add('Wallis & Futuna Islands');
  Combo.Items.Add('Samoa');
  Combo.Items.Add('Democratic Yemen (no longer exists)');
  Combo.Items.Add('Yemen');
  Combo.Items.Add('Mayotte');
  Combo.Items.Add('Yugoslavia');
  Combo.Items.Add('South Africa');
  Combo.Items.Add('Zambia');
  Combo.Items.Add('Zaire');
  Combo.Items.Add('Zimbabwe');
  Combo.Items.Add('Unknown or unspecified country');