const
ns: array[0..49] of string =
{0 } ('Москва',
{1 } 'Санкт-Петербург',
{2 } 'Новосибирск',
{3 } 'Екатеринбург',
{4 } 'Нижний Новгород',
{5 } 'Казань',
{6 } 'Самара',
{7 } 'Омск',
{8 } 'Челябинск',
{9 } 'Ростов-на-Дону',
{10} 'Уфа',
{11} 'Волгоград',
{12} 'Красноярск',
{13} 'Пермь',
{14} 'Воронеж',
{15} 'Саратов',
{16} 'Краснодар',
{17} 'Тольятти',
{18} 'Тюмень',
{19} 'Ижевск',
{20} 'Барнаул',
{21} 'Ульяновск',
{22} 'Иркутск',
{23} 'Владивосток',
{24} 'Ярославль',
{25} 'Хабаровск',
{26} 'Махачкала',
{27} 'Оренбург',
{28} 'Новокузнецк',
{29} 'Томск',
{30} 'Кемерово',
{31} 'Рязань',
{32} 'Астрахань',
{33} 'Пенза',
{34} 'Набережные Челны',
{35} 'Липецк',
{36} 'Тула',
{37} 'Киров',
{38} 'Чебоксары',
{39} 'Калининград',
{40} 'Курск',
{41} 'Улан-Удэ',
{42} 'Ставрополь',
{43} 'Магнитогорск',
{44} 'Брянск',
{45} 'Иваново',
{46} 'Тверь',
{47} 'Белгород',
{48} 'Сочи',
{49} 'Нижний Тагил');
procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
for i := 0 to 49 do
begin
ComboBox1.Items.Add(ns[i]);
ComboBox2.Items.Add(ns[i]);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if (ComboBox1.ItemIndex = -1) and (ComboBox2.ItemIndex = -1) then
begin
ShowMessage('Выберите начальный и конечный город!');
Exit;
end;
if ComboBox1.ItemIndex = -1 then
begin
ShowMessage('Выберите начальный город!');
Exit;
end;
if ComboBox2.ItemIndex = -1 then
begin
ShowMessage('Выберите конечный город!');
Exit;
end;
if ((ComboBox1.ItemIndex = 0 {Москва} ) or (ComboBox2.ItemIndex = 0)) and
((ComboBox2.ItemIndex = 2 {Новосибирск}) or (ComboBox1.ItemIndex = 2)) then
begin
ShowMessage('Ваш путь лежит через города ' +
ns[4] + ', ' + {Нижний Новгород}
ns[5] + ', ' + {Казань}
ns[34] + ', ' + {Набережные Челны}
ns[10] + ', ' + {Уфа}
ns[8] + ', ' + {Челябинск}
ns[7] + {Омск}
'. Протяженность маршрута 3410 километра.');
end;
end;