You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1118 lines
32 KiB
Plaintext
1118 lines
32 KiB
Plaintext
{
|
|
This file is part of R&Q.
|
|
Under same license
|
|
}
|
|
unit RQCodes;
|
|
{$I RnQConfig.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows, System.Types, System.Rtti, Generics.Defaults, Generics.Collections;
|
|
|
|
{$I NoRTTI.inc}
|
|
|
|
{High-level functions}
|
|
function StrToAgeI(const Value: String): LongWord;
|
|
function StrToGenderI(const Value: String): Byte;
|
|
function SrvStrToGenderI(const Value: String): Byte;
|
|
function StrToLanguageI(const Value: String): AnsiString;
|
|
//function StrToCountryI(const Value: String): Word;
|
|
function StrToInterestI(const Value: String): Word;
|
|
function StrToOccupationI(const Value: String): Word;
|
|
function StrToPastI(const Value: String): Word;
|
|
function StrToOrganizationI(const Value: String): Word;
|
|
function StrToGMTI(const Value: String): SmallInt;
|
|
function StrToMarStI(const Value: String): Word;
|
|
function SrvStrToMarStI(const Value: String): Word;
|
|
|
|
function AgesToStr: String;
|
|
function GendersToStr: String;
|
|
function LanguagesToStr: String;
|
|
function InterestsToStr: String;
|
|
//function CountrysToStr: String;
|
|
function GMTsToStr: String;
|
|
function MarStsToStr: String;
|
|
|
|
function GendersByID(ID: Byte): String;
|
|
function CountriesByID(const ID: AnsiString): String;
|
|
function LanguagesByID(const ID: AnsiString): String;
|
|
function InterestsByID(ID: Word): String;
|
|
function MarStsByID(ID: Byte): String;
|
|
function SrvMarStsByID(ID: Byte): String;
|
|
|
|
type
|
|
// TValType = String;
|
|
TValType = AnsiString;
|
|
TCodeValWord = record ID: Word; Value: TValType end;
|
|
TCodeValSrvWord = record ID: Word; Value: TValType; SrvValue: TValType end;
|
|
TCodeValByte = record ID: Byte; Value: TValType end;
|
|
TCodeValSrvByte = record ID: Byte; Value: TValType; SrvValue: TValType end;
|
|
TCodeValLongWord = record Id: LongWord; Value: TValType end;
|
|
TCodeValSmInt = record ID: Smallint; Value: TValType end;
|
|
TCodeValString = record ID: TValType; Value: TValType end;
|
|
|
|
TSortedPairs |
|
protected
|
|
function GetValue(Key: T1): T2;
|
|
procedure SetValue(Key: T1; const Value: T2);
|
|
function ComparePair(const Left, Right: TPair |
|
public
|
|
constructor Create; overload;
|
|
procedure AddOrSetValue(const aKey: T1; const aValue: T2); overload;
|
|
function IndexOfKey(const aKey: T1): Integer;
|
|
function ContainsKey(const aKey: T1): Boolean; inline;
|
|
property Values[Key: T1]: T2 read GetValue write SetValue;
|
|
end;
|
|
|
|
var
|
|
ISOCountries: TSortedPairs |
|
|
|
//Text constants
|
|
//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
|
|
//------------------------------------------------------------------------------------------------------------\
|
|
const
|
|
Ages: array[0..6] of TCodeValLongWord =
|
|
((ID: $0D001100; Value: '13-17'),
|
|
(ID: $12001600; Value: '18-22'),
|
|
(ID: $17001D00; Value: '23-29'),
|
|
(ID: $1E002700; Value: '30-39'),
|
|
(ID: $28003100; Value: '40-49'),
|
|
(ID: $32003B00; Value: '50-59'),
|
|
(ID: $3C001027; Value: '60-above'));
|
|
|
|
const
|
|
Genders: array[0..1] of TCodeValSrvByte =
|
|
((ID: 1; Value: 'Female'; SrvValue: 'female'),
|
|
( ID: 2; Value: 'Male'; SrvValue: 'male'));
|
|
{
|
|
Countries: array[0..242] of TCodeValWord =
|
|
((ID: 1; Value: 'USA'),
|
|
(ID: 7; Value: 'Russia'),
|
|
(ID: 20; Value: 'Egypt'),
|
|
(ID: 27; Value: 'South Africa'),
|
|
(ID: 30; Value: 'Greece'),
|
|
(ID: 31; Value: 'Netherlands'),
|
|
(ID: 32; Value: 'Belgium'),
|
|
(ID: 33; Value: 'France'),
|
|
(ID: 34; Value: 'Spain'),
|
|
(ID: 36; Value: 'Hungary'),
|
|
(ID: 39; Value: 'Italy'),
|
|
(ID: 40; Value: 'Romania'),
|
|
(ID: 41; Value: 'Switzerland'),
|
|
(ID: 42; Value: 'Czech Republic'),
|
|
(ID: 43; Value: 'Austria'),
|
|
(ID: 44; Value: 'United Kingdom'),
|
|
(ID: 45; Value: 'Denmark'),
|
|
(ID: 46; Value: 'Sweden'),
|
|
(ID: 47; Value: 'Norway'),
|
|
(ID: 48; Value: 'Poland'),
|
|
(ID: 49; Value: 'Germany'),
|
|
(ID: 51; Value: 'Peru'),
|
|
(ID: 52; Value: 'Mexico'),
|
|
(ID: 53; Value: 'Cuba'),
|
|
(ID: 54; Value: 'Argentina'),
|
|
(ID: 55; Value: 'Brazil'),
|
|
(ID: 56; Value: 'Chile'),
|
|
(ID: 57; Value: 'Colombia'),
|
|
(ID: 58; Value: 'Venezuela'),
|
|
(ID: 60; Value: 'Malaysia'),
|
|
(ID: 61; Value: 'Australia'),
|
|
(ID: 62; Value: 'Indonesia'),
|
|
(ID: 63; Value: 'Philippines'),
|
|
(ID: 64; Value: 'New Zealand'),
|
|
(ID: 65; Value: 'Singapore'),
|
|
(ID: 66; Value: 'Thailand'),
|
|
(ID: 81; Value: 'Japan'),
|
|
(ID: 82; Value: 'Korea (Republic of)'),
|
|
(ID: 84; Value: 'Vietnam'),
|
|
(ID: 86; Value: 'China'),
|
|
(ID: 90; Value: 'Turkey'),
|
|
(ID: 91; Value: 'India'),
|
|
(ID: 92; Value: 'Pakistan'),
|
|
(ID: 93; Value: 'Afghanistan'),
|
|
(ID: 94; Value: 'Sri Lanka'),
|
|
(ID: 95; Value: 'Myanmar'),
|
|
(ID: 98; Value: 'Iran'),
|
|
(ID: 101; Value: 'Anguilla'),
|
|
(ID: 102; Value: 'Antigua'),
|
|
(ID: 103; Value: 'Bahamas'),
|
|
(ID: 104; Value: 'Barbados'),
|
|
(ID: 105; Value: 'Bermuda'),
|
|
(ID: 106; Value: 'British Virgin Islands'),
|
|
(ID: 107; Value: 'Canada'),
|
|
(ID: 108; Value: 'Cayman Islands'),
|
|
(ID: 109; Value: 'Dominica'),
|
|
(ID: 110; Value: 'Dominican Republic'),
|
|
(ID: 111; Value: 'Grenada'),
|
|
(ID: 112; Value: 'Jamaica'),
|
|
(ID: 113; Value: 'Montserrat'),
|
|
(ID: 114; Value: 'Nevis'),
|
|
(ID: 115; Value: 'St. Kitts'),
|
|
(ID: 116; Value: 'St. Vincent and the Grenadines'),
|
|
(ID: 117; Value: 'Trinidad and Tobago'),
|
|
(ID: 118; Value: 'Turks and Caicos Islands'),
|
|
(ID: 120; Value: 'Barbuda'),
|
|
(ID: 121; Value: 'Puerto Rico'),
|
|
(ID: 122; Value: 'Saint Lucia'),
|
|
(ID: 123; Value: 'United States Virgin Islands'),
|
|
(ID: 212; Value: 'Morocco'),
|
|
(ID: 213; Value: 'Algeria'),
|
|
(ID: 216; Value: 'Tunisia'),
|
|
(ID: 218; Value: 'Libya'),
|
|
(ID: 220; Value: 'Gambia'),
|
|
(ID: 221; Value: 'Senegal Republic'),
|
|
(ID: 222; Value: 'Mauritania'),
|
|
(ID: 223; Value: 'Mali'),
|
|
(ID: 224; Value: 'Guinea'),
|
|
(ID: 225; Value: 'Ivory Coast'),
|
|
(ID: 226; Value: 'Burkina Faso'),
|
|
(ID: 227; Value: 'Niger'),
|
|
(ID: 228; Value: 'Togo'),
|
|
(ID: 229; Value: 'Benin'),
|
|
(ID: 230; Value: 'Mauritius'),
|
|
(ID: 231; Value: 'Liberia'),
|
|
(ID: 232; Value: 'Sierra Leone'),
|
|
(ID: 233; Value: 'Ghana'),
|
|
(ID: 234; Value: 'Nigeria'),
|
|
(ID: 235; Value: 'Chad'),
|
|
(ID: 236; Value: 'Central African Republic'),
|
|
(ID: 237; Value: 'Cameroon'),
|
|
(ID: 238; Value: 'Cape Verde Islands'),
|
|
(ID: 239; Value: 'Sao Tome and Principe'),
|
|
(ID: 240; Value: 'Equatorial Guinea'),
|
|
(ID: 241; Value: 'Gabon'),
|
|
(ID: 242; Value: 'Congo'),
|
|
(ID: 243; Value: 'Dem. Rep. of the Congo'),
|
|
(ID: 244; Value: 'Angola'),
|
|
(ID: 245; Value: 'Guinea-Bissau'),
|
|
(ID: 246; Value: 'Diego Garcia'),
|
|
(ID: 247; Value: 'Ascension Island'),
|
|
(ID: 248; Value: 'Seychelle Islands'),
|
|
(ID: 249; Value: 'Sudan'),
|
|
(ID: 250; Value: 'Rwanda'),
|
|
(ID: 251; Value: 'Ethiopia'),
|
|
(ID: 252; Value: 'Somalia'),
|
|
(ID: 253; Value: 'Djibouti'),
|
|
(ID: 254; Value: 'Kenya'),
|
|
(ID: 255; Value: 'Tanzania'),
|
|
(ID: 256; Value: 'Uganda'),
|
|
(ID: 257; Value: 'Burundi'),
|
|
(ID: 258; Value: 'Mozambique'),
|
|
(ID: 260; Value: 'Zambia'),
|
|
(ID: 261; Value: 'Madagascar'),
|
|
(ID: 262; Value: 'Reunion Island'),
|
|
(ID: 263; Value: 'Zimbabwe'),
|
|
(ID: 264; Value: 'Namibia'),
|
|
(ID: 265; Value: 'Malawi'),
|
|
(ID: 266; Value: 'Lesotho'),
|
|
(ID: 267; Value: 'Botswana'),
|
|
(ID: 268; Value: 'Swaziland'),
|
|
(ID: 269; Value: 'Mayotte Island'),
|
|
(ID: 290; Value: 'St. Helena'),
|
|
(ID: 291; Value: 'Eritrea'),
|
|
(ID: 297; Value: 'Aruba'),
|
|
(ID: 298; Value: 'Faeroe Islands'),
|
|
(ID: 299; Value: 'Greenland'),
|
|
(ID: 350; Value: 'Gibraltar'),
|
|
(ID: 351; Value: 'Portugal'),
|
|
(ID: 352; Value: 'Luxembourg'),
|
|
(ID: 353; Value: 'Ireland'),
|
|
(ID: 354; Value: 'Iceland'),
|
|
(ID: 355; Value: 'Albania'),
|
|
(ID: 356; Value: 'Malta'),
|
|
(ID: 357; Value: 'Cyprus'),
|
|
(ID: 358; Value: 'Finland'),
|
|
(ID: 359; Value: 'Bulgaria'),
|
|
(ID: 370; Value: 'Lithuania'),
|
|
(ID: 371; Value: 'Latvia'),
|
|
(ID: 372; Value: 'Estonia'),
|
|
(ID: 373; Value: 'Moldova'),
|
|
(ID: 374; Value: 'Armenia'),
|
|
(ID: 375; Value: 'Belarus'),
|
|
(ID: 376; Value: 'Andorra'),
|
|
(ID: 377; Value: 'Monaco'),
|
|
(ID: 378; Value: 'San Marino'),
|
|
(ID: 379; Value: 'Vatican City'),
|
|
(ID: 380; Value: 'Ukraine'),
|
|
(ID: 381; Value: 'Yugoslavia'),
|
|
(ID: 385; Value: 'Croatia'),
|
|
(ID: 386; Value: 'Slovenia'),
|
|
(ID: 387; Value: 'Bosnia and Herzegovina'),
|
|
(ID: 389; Value: 'F.Y.R.O.M. (Former Yugoslav Republic of Macedonia)'),
|
|
(ID: 500; Value: 'Falkland Islands'),
|
|
(ID: 501; Value: 'Belize'),
|
|
(ID: 502; Value: 'Guatemala'),
|
|
(ID: 503; Value: 'El Salvador'),
|
|
(ID: 504; Value: 'Honduras'),
|
|
(ID: 505; Value: 'Nicaragua'),
|
|
(ID: 506; Value: 'Costa Rica'),
|
|
(ID: 507; Value: 'Panama'),
|
|
(ID: 508; Value: 'St. Pierre and Miquelon'),
|
|
(ID: 509; Value: 'Haiti'),
|
|
(ID: 590; Value: 'Guadeloupe'),
|
|
(ID: 591; Value: 'Bolivia'),
|
|
(ID: 592; Value: 'Guyana'),
|
|
(ID: 593; Value: 'Ecuador'),
|
|
(ID: 594; Value: 'French Guiana'),
|
|
(ID: 595; Value: 'Paraguay'),
|
|
(ID: 596; Value: 'Martinique'),
|
|
(ID: 597; Value: 'Suriname'),
|
|
(ID: 598; Value: 'Uruguay'),
|
|
(ID: 599; Value: 'Netherlands Antilles'),
|
|
(ID: 670; Value: 'Saipan Island'),
|
|
(ID: 671; Value: 'Guam'),
|
|
(ID: 672; Value: 'Christmas Island'),
|
|
(ID: 673; Value: 'Brunei'),
|
|
(ID: 674; Value: 'Nauru'),
|
|
(ID: 675; Value: 'Papua New Guinea'),
|
|
(ID: 676; Value: 'Tonga'),
|
|
(ID: 677; Value: 'Solomon Islands'),
|
|
(ID: 678; Value: 'Vanuatu'),
|
|
(ID: 679; Value: 'Fiji Islands'),
|
|
(ID: 680; Value: 'Palau'),
|
|
(ID: 681; Value: 'Wallis and Futuna Islands'),
|
|
(ID: 682; Value: 'Cook Islands'),
|
|
(ID: 683; Value: 'Niue'),
|
|
(ID: 684; Value: 'American Samoa'),
|
|
(ID: 685; Value: 'Western Samoa'),
|
|
(ID: 686; Value: 'Kiribati Republic'),
|
|
(ID: 687; Value: 'New Caledonia'),
|
|
(ID: 688; Value: 'Tuvalu'),
|
|
(ID: 689; Value: 'French Polynesia'),
|
|
(ID: 690; Value: 'Tokelau'),
|
|
(ID: 691; Value: 'Micronesia, Federated States of'),
|
|
(ID: 692; Value: 'Marshall Islands'),
|
|
(ID: 705; Value: 'Kazakhstan'),
|
|
(ID: 706; Value: 'Kyrgyz Republic'),
|
|
(ID: 708; Value: 'Tajikistan'),
|
|
(ID: 709; Value: 'Turkmenistan'),
|
|
(ID: 711; Value: 'Uzbekistan'),
|
|
(ID: 800; Value: 'International Freephone Service'),
|
|
(ID: 850; Value: 'Korea (North)'),
|
|
(ID: 852; Value: 'Hong Kong'),
|
|
(ID: 853; Value: 'Macau'),
|
|
(ID: 855; Value: 'Cambodia'),
|
|
(ID: 856; Value: 'Laos'),
|
|
(ID: 870; Value: 'INMARSAT'),
|
|
(ID: 871; Value: 'INMARSAT (Atlantic-East)'),
|
|
(ID: 872; Value: 'INMARSAT (Pacific)'),
|
|
(ID: 873; Value: 'INMARSAT (Indian)'),
|
|
(ID: 874; Value: 'INMARSAT (Atlantic-West)'),
|
|
(ID: 880; Value: 'Bangladesh'),
|
|
(ID: 886; Value: 'Taiwan, Republic of China'),
|
|
(ID: 960; Value: 'Maldives'),
|
|
(ID: 961; Value: 'Lebanon'),
|
|
(ID: 962; Value: 'Jordan'),
|
|
(ID: 963; Value: 'Syria'),
|
|
(ID: 964; Value: 'Iraq'),
|
|
(ID: 965; Value: 'Kuwait'),
|
|
(ID: 966; Value: 'Saudi Arabia'),
|
|
(ID: 967; Value: 'Yemen'),
|
|
(ID: 968; Value: 'Oman'),
|
|
(ID: 971; Value: 'United Arab Emirates'),
|
|
(ID: 972; Value: 'Israel'),
|
|
(ID: 973; Value: 'Bahrain'),
|
|
(ID: 974; Value: 'Qatar'),
|
|
(ID: 975; Value: 'Bhutan'),
|
|
(ID: 976; Value: 'Mongolia'),
|
|
(ID: 977; Value: 'Nepal'),
|
|
(ID: 994; Value: 'Azerbaijan'),
|
|
(ID: 995; Value: 'Georgia'),
|
|
(ID: 2691; Value: 'Comoros'),
|
|
(ID: 4101; Value: 'Liechtenstein'),
|
|
(ID: 4201; Value: 'Slovak Republic'),
|
|
(ID: 5399; Value: 'Guantanamo Bay'),
|
|
(ID: 5901; Value: 'French Antilles'),
|
|
(ID: 6101; Value: 'Cocos-Keeling Islands'),
|
|
(ID: 6701; Value: 'Rota Island'),
|
|
(ID: 6702; Value: 'Tinian Island'),
|
|
(ID: 6721; Value: 'Australian Antarctic Territory'),
|
|
(ID: 6722; Value: 'Norfolk Island'),
|
|
(ID: 9999; Value: 'Unknown'));
|
|
}
|
|
Languages: array[0..68] of TCodeValString =
|
|
((ID: 'AFR'; Value: 'Afrikaans'),
|
|
(ID: 'ALB'; Value: 'Albanian'),
|
|
(ID: 'ARA'; Value: 'Arabic'),
|
|
(ID: 'ARM'; Value: 'Armenian'),
|
|
(ID: 'AZE'; Value: 'Azerbaijani'),
|
|
(ID: 'XX'; Value: 'Belarusian'), // BEL ?
|
|
(ID: 'BHO'; Value: 'Bhojpuri'),
|
|
(ID: 'BOS'; Value: 'Bosnian'),
|
|
(ID: 'BUL'; Value: 'Bulgarian'),
|
|
(ID: 'MYA'; Value: 'Burmese'),
|
|
// (ID: 'YUE'; Value: 'Cantonese'),
|
|
(ID: 'CAT'; Value: 'Catalan'),
|
|
(ID: 'CHA'; Value: 'Chamorro'),
|
|
(ID: 'ZHO'; Value: 'Chinese'),
|
|
(ID: 'SCR'; Value: 'Croatian'),
|
|
(ID: 'CZE'; Value: 'Czech'),
|
|
(ID: 'DAN'; Value: 'Danish'),
|
|
(ID: 'NLD'; Value: 'Dutch'),
|
|
(ID: 'ENG'; Value: 'English'),
|
|
(ID: 'EPO'; Value: 'Esperanto'),
|
|
(ID: 'EST'; Value: 'Estonian'),
|
|
(ID: 'FAS'; Value: 'Farsi'),
|
|
(ID: 'FIN'; Value: 'Finnish'),
|
|
(ID: 'FRE'; Value: 'French'),
|
|
(ID: 'GLA'; Value: 'Gaelic'),
|
|
(ID: 'GER'; Value: 'German'),
|
|
(ID: 'GRE'; Value: 'Greek'),
|
|
(ID: 'GUJ'; Value: 'Gujarati'),
|
|
(ID: 'HEB'; Value: 'Hebrew'),
|
|
(ID: 'HIN'; Value: 'Hindi'),
|
|
(ID: 'HUN'; Value: 'Hungarian'),
|
|
(ID: 'ICE'; Value: 'Icelandic'),
|
|
(ID: 'IND'; Value: 'Indonesian'),
|
|
(ID: 'ITA'; Value: 'Italian'),
|
|
(ID: 'JPN'; Value: 'Japanese'),
|
|
(ID: 'KHM'; Value: 'Khmer'),
|
|
(ID: 'KOR'; Value: 'Korean'),
|
|
(ID: 'KUR'; Value: 'Kurdish'),
|
|
(ID: 'LAO'; Value: 'Lao'),
|
|
(ID: 'LAV'; Value: 'Latvian'),
|
|
(ID: 'LIT'; Value: 'Lithuanian'),
|
|
(ID: 'MAC'; Value: 'Macedonian'),
|
|
(ID: 'MAY'; Value: 'Malay'),
|
|
// (ID: 'CMN'; Value: 'Mandarin'),
|
|
(ID: 'MON'; Value: 'Mongolian'),
|
|
(ID: 'NNO'; Value: 'Norwegian'),
|
|
(ID: 'PER'; Value: 'Persian'),
|
|
(ID: 'POL'; Value: 'Polish'),
|
|
(ID: 'POR'; Value: 'Portuguese'),
|
|
(ID: 'PAN'; Value: 'Punjabi'),
|
|
(ID: 'RUM'; Value: 'Romanian'),
|
|
(ID: 'RUS'; Value: 'Russian'),
|
|
(ID: 'SRP'; Value: 'Serbo-Croatian'),
|
|
(ID: 'SND'; Value: 'Sindhi'),
|
|
(ID: 'SLO'; Value: 'Slovak'),
|
|
(ID: 'SLV'; Value: 'Slovenian'),
|
|
(ID: 'SOM'; Value: 'Somali'),
|
|
(ID: 'SPA'; Value: 'Spanish'),
|
|
(ID: 'SWA'; Value: 'Swahili'),
|
|
(ID: 'SWE'; Value: 'Swedish'),
|
|
(ID: 'TGL'; Value: 'Tagalog'),
|
|
// (ID: 'TWN'; Value: 'Taiwanese'),
|
|
(ID: 'TAM'; Value: 'Tamil'),
|
|
(ID: 'TAT'; Value: 'Tatar'),
|
|
(ID: 'THA'; Value: 'Thai'),
|
|
(ID: 'TUR'; Value: 'Turkish'),
|
|
(ID: 'UKR'; Value: 'Ukrainian'),
|
|
(ID: 'URD'; Value: 'Urdu'),
|
|
(ID: 'VIE'; Value: 'Vietnamese'),
|
|
(ID: 'YID'; Value: 'Yiddish'),
|
|
(ID: 'YOR'; Value: 'Yoruba'),
|
|
(ID: 'WEL'; Value: 'Welsh'));
|
|
|
|
Occupations: array[1..17] of TCodeValByte =
|
|
((ID: 1; Value: 'Academic'),
|
|
(ID: 2; Value: 'Administrative'),
|
|
(ID: 3; Value: 'Art/Entertainment'),
|
|
(ID: 4; Value: 'College Student'),
|
|
(ID: 5; Value: 'Computers'),
|
|
(ID: 6; Value: 'Community & Social'),
|
|
(ID: 7; Value: 'Education'),
|
|
(ID: 8; Value: 'Engineering'),
|
|
(ID: 9; Value: 'Financial Services'),
|
|
(ID: 10; Value: 'Government'),
|
|
(ID: 11; Value: 'High School Student'),
|
|
(ID: 12; Value: 'Home'),
|
|
(ID: 13; Value: 'ICQ - Providing Help'),
|
|
(ID: 14; Value: 'Law'),
|
|
(ID: 15; Value: 'Managerial'),
|
|
(ID: 16; Value: 'Manufacturing'),
|
|
(ID: 17; Value: 'Medical/Health'));
|
|
|
|
arrInterests: array[0..50] of TCodeValByte =
|
|
((ID: 100; Value: 'Art'),
|
|
(ID: 101; Value: 'Cars'), // $65
|
|
(ID: 102; Value: 'Celebrity Fans'),
|
|
(ID: 103; Value: 'Collections'),
|
|
(ID: 104; Value: 'Computers'),
|
|
(ID: 105; Value: 'Culture & Literature'),
|
|
(ID: 106; Value: 'Fitness'),
|
|
(ID: 107; Value: 'Games'),
|
|
(ID: 108; Value: 'Hobbies'),
|
|
(ID: 109; Value: 'ICQ - Providing Help'),
|
|
(ID: 110; Value: 'Internet'),
|
|
(ID: 111; Value: 'Lifestyle'),
|
|
(ID: 112; Value: 'Movies/TV'),
|
|
(ID: 113; Value: 'Music'),
|
|
(ID: 114; Value: 'Outdoor Activities'),
|
|
(ID: 115; Value: 'Parenting'),
|
|
(ID: 116; Value: 'Pets/Animals'),
|
|
(ID: 117; Value: 'Religion'),
|
|
(ID: 118; Value: 'Science/Technology'),
|
|
(ID: 119; Value: 'Skills'),
|
|
(ID: 120; Value: 'Sports'),
|
|
(ID: 121; Value: 'Web Design'),
|
|
(ID: 122; Value: 'Nature and Environment'),
|
|
(ID: 123; Value: 'News & Media'),
|
|
(ID: 124; Value: 'Government'),
|
|
(ID: 125; Value: 'Business & Economy'),
|
|
(ID: 126; Value: 'Mystics'),
|
|
(ID: 127; Value: 'Travel'),
|
|
(ID: 128; Value: 'Astronomy'),
|
|
(ID: 129; Value: 'Space'),
|
|
(ID: 130; Value: 'Clothing'),
|
|
(ID: 131; Value: 'Parties'),
|
|
(ID: 132; Value: 'Women'),
|
|
(ID: 133; Value: 'Social science'),
|
|
(ID: 134; Value: '60''s'),
|
|
(ID: 135; Value: '70''s'),
|
|
(ID: 136; Value: '80''s'),
|
|
(ID: 137; Value: '50''s'),
|
|
(ID: 138; Value: 'Finance and corporate'),
|
|
(ID: 139; Value: 'Entertainment'),
|
|
(ID: 140; Value: 'Consumer electronics'),
|
|
(ID: 141; Value: 'Retail stores'),
|
|
(ID: 142; Value: 'Health and beauty'),
|
|
(ID: 143; Value: 'Media'),
|
|
(ID: 144; Value: 'Household products'),
|
|
(ID: 145; Value: 'Mail order catalog'),
|
|
(ID: 146; Value: 'Business services'),
|
|
(ID: 147; Value: 'Audio and visual'),
|
|
(ID: 148; Value: 'Sporting and athletic'),
|
|
(ID: 149; Value: 'Publishing'),
|
|
(ID: 150; Value: 'Home automation'));
|
|
|
|
RandGroups: array[1..11] of TCodeValByte =
|
|
((ID: 1; Value: 'General'),
|
|
(ID: 2; Value: 'Romance'),
|
|
(ID: 3; Value: 'Games'),
|
|
(ID: 4; Value: 'Students'),
|
|
(ID: 5; Value: '20 something'),
|
|
(ID: 6; Value: '30 something'),
|
|
(ID: 7; Value: '40 something'),
|
|
(ID: 8; Value: '50+'),
|
|
(ID: 9; Value: 'Romance'),
|
|
(ID: 10; Value: 'Man requesting woman'),
|
|
(ID: 11; Value: 'Woman requesting man'));
|
|
|
|
Organizations: array[0..19] of TCodeValWord =
|
|
((ID: 200; Value: 'Alumni Org.'),
|
|
(ID: 201; Value: 'Charity Org.'),
|
|
(ID: 202; Value: 'Club/Social Org.'),
|
|
(ID: 203; Value: 'Community Org.'),
|
|
(ID: 204; Value: 'Cultural Org.'),
|
|
(ID: 205; Value: 'Fan Clubs'),
|
|
(ID: 206; Value: 'Fraternity/Sorority'),
|
|
(ID: 207; Value: 'Hobbyists Org.'),
|
|
(ID: 208; Value: 'International Org.'),
|
|
(ID: 209; Value: 'Nature and Environment Org.'),
|
|
(ID: 210; Value: 'Professional Org.'),
|
|
(ID: 211; Value: 'Scientific/Technical Org.'),
|
|
(ID: 212; Value: 'Self Improvement Group'),
|
|
(ID: 213; Value: 'Spiritual/Religious Org.'),
|
|
(ID: 214; Value: 'Sports Org.'),
|
|
(ID: 215; Value: 'Support Org.'),
|
|
(ID: 216; Value: 'Trade and Business Org.'),
|
|
(ID: 217; Value: 'Union'),
|
|
(ID: 218; Value: 'Volunteer Org.'),
|
|
(ID: 299; Value: 'Other'));
|
|
|
|
Pasts: array[0..7] of TCodeValWord =
|
|
((ID: 300; Value: 'Elementary School'),
|
|
(ID: 301; Value: 'High School'),
|
|
(ID: 302; Value: 'College'),
|
|
(ID: 303; Value: 'University'),
|
|
(ID: 304; Value: 'Military'),
|
|
(ID: 305; Value: 'Past Work Place'),
|
|
(ID: 306; Value: 'Past Organization'),
|
|
(ID: 399; Value: 'Other'));
|
|
|
|
const
|
|
GMTs: array[0..49] of TCodeValSmInt =
|
|
((ID: -100; Value: ''),
|
|
(ID: 24; Value: '-12:00'),
|
|
(ID: 23; Value: '-11:30'),
|
|
(ID: 22; Value: '-11:00'),
|
|
(ID: 21; Value: '-10:30'),
|
|
(ID: 20; Value: '-10:00'),
|
|
(ID: 19; Value: '-9:30'),
|
|
(ID: 18; Value: '-9:00'),
|
|
(ID: 17; Value: '-8:30'),
|
|
(ID: 16; Value: '-8:00'),
|
|
(ID: 15; Value: '-7:30'),
|
|
(ID: 14; Value: '-7:00'),
|
|
(ID: 13; Value: '-6:30'),
|
|
(ID: 12; Value: '-6:00'),
|
|
(ID: 11; Value: '-5:30'),
|
|
(ID: 10; Value: '-5:00'),
|
|
(ID: 9 ; Value: '-4:30'),
|
|
(ID: 8 ; Value: '-4:00'),
|
|
(ID: 7 ; Value: '-3:30'),
|
|
(ID: 6 ; Value: '-3:00'),
|
|
(ID: 5 ; Value: '-2:30'),
|
|
(ID: 4 ; Value: '-2:00'),
|
|
(ID: 3 ; Value: '-1:30'),
|
|
(ID: 2 ; Value: '-1:00'),
|
|
(ID: 1 ; Value: '-0:30'),
|
|
(ID: 0 ; Value: '+0:00'),
|
|
(ID: -1; Value: '+0:30'),
|
|
(ID: -2; Value: '+1:00'),
|
|
(ID: -3; Value: '+1:30'),
|
|
(ID: -4; Value: '+2:00'),
|
|
(ID: -5; Value: '+2:30'),
|
|
(ID: -6; Value: '+3:00'),
|
|
(ID: -7; Value: '+3:30'),
|
|
(ID: -8; Value: '+4:00'),
|
|
(ID: -9; Value: '+4:30'),
|
|
(ID: -10; Value: '+5:00'),
|
|
(ID: -11; Value: '+5:30'),
|
|
(ID: -12; Value: '+6:00'),
|
|
(ID: -13; Value: '+6:30'),
|
|
(ID: -14; Value: '+7:00'),
|
|
(ID: -15; Value: '+7:30'),
|
|
(ID: -16; Value: '+8:00'),
|
|
(ID: -17; Value: '+8:30'),
|
|
(ID: -18; Value: '+9:00'),
|
|
(ID: -19; Value: '+9:30'),
|
|
(ID: -20; Value: '+10:00'),
|
|
(ID: -21; Value: '+10:30'),
|
|
(ID: -22; Value: '+11:00'),
|
|
(ID: -23; Value: '+11:30'),
|
|
(ID: -24; Value: '+12:00'));
|
|
|
|
MarSts: array[0..11] of TCodeValSrvWord =
|
|
((ID: $0000; Value: 'Not specified'; SrvValue: 'unknown'),
|
|
(ID: $000A; Value: 'Single'; SrvValue: 'single'),
|
|
(ID: $000B; Value: 'Long-term relationship'; SrvValue: 'longTermRelationship'),
|
|
(ID: $000C; Value: 'Engaged'; SrvValue: 'engaged'),
|
|
(ID: $000D; Value: 'Dating'; SrvValue: 'dating'),
|
|
(ID: $0014; Value: 'Married'; SrvValue: 'married'),
|
|
(ID: $001E; Value: 'Divorced'; SrvValue: 'divorced'),
|
|
(ID: $001F; Value: 'Separated'; SrvValue: 'separated'),
|
|
(ID: $0028; Value: 'Widowed'; SrvValue: 'widowed'),
|
|
(ID: $0032; Value: 'Open relationship'; SrvValue: 'openRelationship'),
|
|
(ID: $0033; Value: 'Ask me'; SrvValue: 'askMe'),
|
|
(ID: $00FF; Value: 'Other'; SrvValue: 'other'));
|
|
|
|
type
|
|
TEnumData = record
|
|
GeoCode: string;
|
|
GeoName: string;
|
|
Success: Boolean;
|
|
end;
|
|
|
|
GEOID = type LONG;
|
|
GEOTYPE = type DWORD;
|
|
GEOCLASS = type DWORD;
|
|
|
|
SYSGEOTYPE = (
|
|
GEO_NATION = $0001,
|
|
GEO_LATITUDE = $0002,
|
|
GEO_LONGITUDE = $0003,
|
|
GEO_ISO2 = $0004,
|
|
GEO_ISO3 = $0005,
|
|
GEO_RFC1766 = $0006,
|
|
GEO_LCID = $0007,
|
|
GEO_FRIENDLYNAME= $0008,
|
|
GEO_OFFICIALNAME= $0009,
|
|
GEO_TIMEZONES = $000A,
|
|
GEO_OFFICIALLANGUAGES = $000B,
|
|
GEO_ISO_UN_NUMBER = $000C,
|
|
GEO_PARENT = $000D
|
|
);
|
|
|
|
SYSGEOCLASS = (
|
|
GEOCLASS_NATION = 16,
|
|
GEOCLASS_REGION = 14,
|
|
GEOCLASS_ALL = 0
|
|
);
|
|
|
|
GEO_ENUMPROC = function(GeoId: GEOID): BOOL; stdcall;
|
|
|
|
function EnumSystemGeoID(GeoClass: GEOCLASS; ParentGeoId: GEOID; lpGeoEnumProc: GEO_ENUMPROC): BOOL; stdcall; external kernel32 name 'EnumSystemGeoID';
|
|
function GetGeoInfo(Location: GEOID; GeoType: GEOTYPE; lpGeoData: LPTSTR; cchData: Integer; LangId: LANGID): Integer; stdcall; external kernel32 name {$IFDEF UNICODE}'GetGeoInfoW'{$ELSE}'GetGeoInfoA'{$ENDIF};
|
|
function TryGetCountryNameByISO2(const Code: string; out Name: string): Boolean;
|
|
procedure DefineISOCountries;
|
|
|
|
{@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}
|
|
|
|
implementation
|
|
|
|
uses
|
|
System.SysUtils, RDGlobal, RnQLangs;
|
|
|
|
var
|
|
EnumData: TEnumData;
|
|
|
|
constructor TSortedPairs |
|
begin
|
|
inherited Create(TDelegatedComparer |
|
end;
|
|
|
|
function TSortedPairs |
|
begin
|
|
Result := CompareStr(TValue.From |
|
end;
|
|
|
|
function TSortedPairs |
|
var
|
|
i: Integer;
|
|
begin
|
|
Result := -1;
|
|
for i := 0 to Count - 1 do
|
|
if CompareStr(TValue.From |
|
begin
|
|
Result := i;
|
|
Break;
|
|
end;
|
|
end;
|
|
|
|
function TSortedPairs |
|
begin
|
|
Result := IndexOfKey(aKey) >= 0;
|
|
end;
|
|
|
|
function TSortedPairs |
|
var
|
|
i: Integer;
|
|
begin
|
|
i := IndexOfKey(Key);
|
|
if i >= 0 then
|
|
Result := Items[i].Value
|
|
else
|
|
Result := Default(T2);
|
|
end;
|
|
|
|
procedure TSortedPairs |
|
var
|
|
i: Integer;
|
|
Pair: TPair |
|
begin
|
|
i := IndexOfKey(Key);
|
|
if i >= 0 then
|
|
begin
|
|
Pair := Items[i];
|
|
Pair.Value := Value;
|
|
Items[i] := Pair;
|
|
end
|
|
else
|
|
begin
|
|
Pair.Create(Key, Value);
|
|
inherited Add(Pair);
|
|
end;
|
|
end;
|
|
|
|
procedure TSortedPairs |
|
begin
|
|
SetValue(aKey, aValue);
|
|
end;
|
|
|
|
function TryGetGeoInfo(GeoId: GEOID; GeoType: GEOTYPE; out Value: string): Boolean;
|
|
var
|
|
Buffer: string;
|
|
BufferLen: Integer;
|
|
begin
|
|
Result := False;
|
|
BufferLen := GetGeoInfo(GeoId, GeoType, LPTSTR(Buffer), 0, 0);
|
|
if BufferLen <> 0 then
|
|
begin
|
|
SetLength(Buffer, BufferLen);
|
|
Result := GetGeoInfo(GeoId, GeoType, LPTSTR(Buffer), BufferLen, 0) <> 0;
|
|
if Result then
|
|
Value := Trim(Buffer);
|
|
end;
|
|
end;
|
|
|
|
function EnumGeoInfoProc(GeoId: GEOID): BOOL; stdcall;
|
|
var
|
|
S: string;
|
|
begin
|
|
Result := TryGetGeoInfo(GeoId, GEOTYPE(GEO_ISO2), S);
|
|
if Result and (S = EnumData.GeoCode) then
|
|
begin
|
|
Result := False;
|
|
EnumData.Success := TryGetGeoInfo(GeoId, GEOTYPE(GEO_FRIENDLYNAME), EnumData.GeoName);
|
|
end;
|
|
end;
|
|
|
|
function EnumGeoInfoProcAll(GeoId: GEOID): BOOL; stdcall;
|
|
var
|
|
GeoCode, GeoName: String;
|
|
begin
|
|
Result := TryGetGeoInfo(GeoId, GEOTYPE(GEO_ISO2), GeoCode);
|
|
if Result then
|
|
if TryGetGeoInfo(GeoId, GEOTYPE(GEO_FRIENDLYNAME), GeoName) then
|
|
ISOCountries.AddOrSetValue(GeoCode, GetTranslation(GeoName));
|
|
Result := True;
|
|
end;
|
|
|
|
function TryGetCountryNameByISO2(const Code: string; out Name: string): Boolean;
|
|
begin
|
|
EnumData.GeoCode := Code;
|
|
EnumData.Success := False;
|
|
|
|
if not EnumSystemGeoID(GEOCLASS(GEOCLASS_NATION), 0, EnumGeoInfoProc) then
|
|
RaiseLastOSError;
|
|
|
|
Result := EnumData.Success;
|
|
if Result then
|
|
Name := EnumData.GeoName;
|
|
end;
|
|
|
|
procedure DefineISOCountries;
|
|
begin
|
|
EnumSystemGeoID(GEOCLASS(GEOCLASS_NATION), 0, EnumGeoInfoProcAll);
|
|
ISOCountries.Sort;
|
|
end;
|
|
|
|
function StrToAgeI(const Value: String): LongWord;
|
|
var
|
|
i: Word;
|
|
val : TValType;
|
|
begin
|
|
val := Value;
|
|
if Length(val)> 0 then
|
|
for i := Low(Ages) to High(Ages) do
|
|
if Ages[i].Value = val then
|
|
begin
|
|
Result := Ages[i].ID;
|
|
Exit;
|
|
end;
|
|
Result := 0;
|
|
end;
|
|
|
|
function StrToGenderI(const Value: String): Byte;
|
|
var
|
|
i: Word;
|
|
begin
|
|
if Length(Value)> 0 then
|
|
for i := Low(Genders) to High(Genders) do
|
|
if GetTranslation(Genders[i].Value) = Value then
|
|
begin
|
|
Result := Genders[i].ID;
|
|
Exit;
|
|
end;
|
|
Result := 0;
|
|
end;
|
|
|
|
function SrvStrToGenderI(const Value: String): Byte;
|
|
var
|
|
i: Word;
|
|
begin
|
|
if Length(Value)> 0 then
|
|
for i := Low(Genders) to High(Genders) do
|
|
if Genders[i].SrvValue = Value then
|
|
begin
|
|
Result := Genders[i].ID;
|
|
Exit;
|
|
end;
|
|
Result := 0;
|
|
end;
|
|
|
|
function StrToLanguageI(const Value: String): AnsiString;
|
|
var
|
|
i: Integer;
|
|
begin
|
|
if Length(Value)> 0 then
|
|
for i := Low(Languages) to High(Languages) do
|
|
if GetTranslation(Languages[i].Value) = Value then
|
|
begin
|
|
Result := Languages[i].ID;
|
|
Exit;
|
|
end;
|
|
Result := '';
|
|
end;
|
|
|
|
{function StrToCountryI(const Value: String): Word;
|
|
var
|
|
i: Word;
|
|
begin
|
|
if Length(Value)> 0 then
|
|
for i := Low(Countries) to High(Countries) do
|
|
if GetTranslation(Countries[i].Value) = Value then
|
|
begin
|
|
Result := Countries[i].ID;
|
|
Exit;
|
|
end;
|
|
Result := 0;
|
|
end;
|
|
}
|
|
function StrToInterestI(const Value: String): Word;
|
|
var
|
|
i: Word;
|
|
begin
|
|
if Length(Value)> 0 then
|
|
for i := Low(arrInterests) to High(arrInterests) do
|
|
if GetTranslation(arrInterests[i].Value) = Value then
|
|
begin
|
|
Result := arrInterests[i].ID;
|
|
Exit;
|
|
end;
|
|
Result := 0;
|
|
end;
|
|
|
|
function StrToOccupationI(const Value: String): Word;
|
|
var
|
|
i: Word;
|
|
val : TValType;
|
|
begin
|
|
val := Value;
|
|
if Length(val)> 0 then
|
|
for i := Low(Occupations) to High(Occupations) do
|
|
if Occupations[i].Value = val then
|
|
begin
|
|
Result := Occupations[i].ID;
|
|
Exit;
|
|
end;
|
|
Result := 0;
|
|
end;
|
|
|
|
function StrToPastI(const Value: String): Word;
|
|
var
|
|
i: Word;
|
|
val : TValType;
|
|
begin
|
|
val := Value;
|
|
if Length(val)> 0 then
|
|
for i := Low(Pasts) to High(Pasts) do
|
|
if Pasts[i].Value = val then
|
|
begin
|
|
Result := Pasts[i].ID;
|
|
Exit;
|
|
end;
|
|
Result := 0;
|
|
end;
|
|
|
|
function StrToMarStI(const Value: String): Word;
|
|
var
|
|
i: Word;
|
|
begin
|
|
if Length(Value)> 0 then
|
|
for i := Low(MarSts) to High(MarSts) do
|
|
if GetTranslation(MarSts[i].Value) = Value then
|
|
begin
|
|
Result := MarSts[i].ID;
|
|
Exit;
|
|
end;
|
|
Result := 0;
|
|
end;
|
|
|
|
function SrvStrToMarStI(const Value: String): Word;
|
|
var
|
|
i: Word;
|
|
begin
|
|
if Length(Value) > 0 then
|
|
for i := Low(MarSts) to High(MarSts) do
|
|
if MarSts[i].SrvValue = Value then
|
|
begin
|
|
Result := MarSts[i].ID;
|
|
Exit;
|
|
end;
|
|
Result := 0;
|
|
end;
|
|
|
|
function StrToOrganizationI(const Value: String): Word;
|
|
var
|
|
i: Word;
|
|
val : TValType;
|
|
begin
|
|
val := Value;
|
|
if Length(val)> 0 then
|
|
for i := Low(Organizations) to High(Organizations) do
|
|
if Organizations[i].Value = val then
|
|
begin
|
|
Result := Organizations[i].ID;
|
|
Exit;
|
|
end;
|
|
Result := 0;
|
|
end;
|
|
|
|
function AgesToStr : String;
|
|
var
|
|
i: Word;
|
|
val : TValType;
|
|
begin
|
|
val := '';
|
|
for i := Low(Ages) to High(Ages) do
|
|
val := val +Ages[i].Value + CRLF;
|
|
Result := val;
|
|
end;
|
|
|
|
function GendersToStr : String;
|
|
var
|
|
i: Word;
|
|
begin
|
|
result:='';
|
|
for i := Low(Genders) to High(Genders) do
|
|
result:=result + GetTranslation(Genders[i].Value) + CRLF;
|
|
end;
|
|
|
|
function MarStsToStr : String;
|
|
var
|
|
i: Word;
|
|
begin
|
|
result:='';
|
|
for i := Low(MarSts) to High(MarSts) do
|
|
result:=result + GetTranslation(MarSts[i].Value)+CRLF;
|
|
end;
|
|
|
|
function LanguagesToStr : String;
|
|
var
|
|
i: Integer;
|
|
begin
|
|
result:='';
|
|
for i := Low(Languages) to High(Languages) do
|
|
result:=result + GetTranslation(Languages[i].Value)+CRLF;
|
|
end;
|
|
|
|
function InterestsToStr: String;
|
|
var
|
|
i: Word;
|
|
begin
|
|
result := '';
|
|
for i := Low(arrInterests) to High(arrInterests) do
|
|
result := result + GetTranslation(arrInterests[i].Value) + CRLF;
|
|
end;
|
|
|
|
function CountrysToStr : String;
|
|
var
|
|
a: TPair |
|
begin
|
|
Result := '';
|
|
for a in ISOCountries do
|
|
Result := Result + GetTranslation(a.Value) + CRLF;
|
|
end;
|
|
|
|
function GMTsToStr : String;
|
|
{ function GMTc(i : Smallint): string;
|
|
begin
|
|
if i > 0 then
|
|
result := '-'
|
|
else
|
|
result := '+';
|
|
result := result + IntToStr(i div 2)+ ':';
|
|
if odd(i) then
|
|
result:=result+'30'
|
|
else
|
|
result:=result+'00';
|
|
end;
|
|
var
|
|
i : Smallint;
|
|
begin
|
|
result := '' + CRLF;
|
|
for i := 24 downto -24 do
|
|
result := 'GMT ' + GMTc(i);}
|
|
var
|
|
i: Word;
|
|
val : TValType;
|
|
begin
|
|
val :='' + CRLF;
|
|
for i := Low(GMTs)+1 to High(GMTs) do
|
|
// result:=result+'GMT ' + GMTs[i].Value+CRLF;
|
|
val := val + GMTs[i].Value+CRLF;
|
|
Result := val;
|
|
end;
|
|
function StrToGMTI(const Value: String): SmallInt;
|
|
var
|
|
i: Word;
|
|
val : TValType;
|
|
begin
|
|
val := Value;
|
|
if GMTs[0].Value= val then
|
|
begin
|
|
Result := GMTs[0].ID;
|
|
Exit;
|
|
end;
|
|
for i := Low(GMTs)+1 to High(GMTs) do
|
|
// if ('GMT ' + GMTs[i].Value)= Value then
|
|
if (GMTs[i].Value)= val then
|
|
begin
|
|
Result := GMTs[i].ID;
|
|
Exit;
|
|
end;
|
|
Result := 0;
|
|
end;
|
|
|
|
function GendersByID(ID : Byte) : String;
|
|
var
|
|
i: Word;
|
|
begin
|
|
for i := Low(Genders) to High(Genders) do
|
|
if Genders[i].ID = ID then
|
|
begin
|
|
Result := GetTranslation(Genders[i].Value);
|
|
Exit;
|
|
end;
|
|
Result := '';
|
|
end;
|
|
|
|
function MarStsByID(ID: Byte): String;
|
|
var
|
|
i: Word;
|
|
begin
|
|
for i := Low(MarSts) to High(MarSts) do
|
|
if MarSts[i].ID = ID then
|
|
begin
|
|
Result := GetTranslation(MarSts[i].Value);
|
|
Exit;
|
|
end;
|
|
Result := '';
|
|
end;
|
|
|
|
function SrvMarStsByID(ID: Byte): String;
|
|
var
|
|
i: Word;
|
|
begin
|
|
for i := Low(MarSts) to High(MarSts) do
|
|
if MarSts[i].ID = ID then
|
|
begin
|
|
Result := MarSts[i].SrvValue;
|
|
Exit;
|
|
end;
|
|
Result := 'unknown';
|
|
end;
|
|
|
|
function CountriesByID(const ID: AnsiString) : String;
|
|
var
|
|
a: TPair |
|
begin
|
|
for a in ISOCountries do
|
|
if a.Key = ID then
|
|
begin
|
|
Result := GetTranslation(A.Value);
|
|
Exit;
|
|
end;
|
|
Result := '';
|
|
end;
|
|
|
|
function LanguagesByID(const ID: AnsiString) : String;
|
|
var
|
|
i: Integer;
|
|
begin
|
|
for i := Low(Languages) to High(Languages) do
|
|
if Languages[i].ID = ID then
|
|
begin
|
|
Result := GetTranslation(Languages[i].Value);
|
|
Exit;
|
|
end;
|
|
Result := '';
|
|
end;
|
|
|
|
function InterestsByID(ID : Word) : String;
|
|
var
|
|
i: Word;
|
|
begin
|
|
for i := Low(arrInterests) to High(arrInterests) do
|
|
if arrInterests[i].ID = ID then
|
|
begin
|
|
Result := GetTranslation(arrInterests[i].Value);
|
|
Exit;
|
|
end;
|
|
Result := '';
|
|
end;
|
|
|
|
initialization
|
|
|
|
ISOCountries := TSortedPairs |
|
|
|
finalization
|
|
|
|
ISOCountries.Free
|
|
|
|
end.
|