CountryList.pas

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');
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.