ComboBox проблема при отправке данных

[record222]

Здравствуйте уважаемые пользователи данного сайта. Я новичек в делфи и хотел бы спросить что в данном коде не верно? Помогите пожалуйста

if ComboBox1.Items.Strings[0]='--' then
begin
data.Add('quest=0');
end
else
if ComboBox1.Items.Strings[1]='Любимое блюдо' then
begin
data.Add('quest=2');
end
else
if ComboBox1.Items.Strings[2]='Ваше прозвище в школе' then
begin
data.Add('quest=3');
end
else
if ComboBox1.Items.Strings[3]='Любимый фильм' then
begin
data.Add('quest=4');
end
else
if ComboBox1.Items='Кличка домашнего питомца' then
begin
data.Add('quest=5');
end
else
if ComboBox1.Items.Strings[5]='Любимый актер' then
begin
data.Add('quest=6');
end
else
if ComboBox1.Items.Strings[6]='Девичья фамилия матери' then
begin
data.Add('quest=7');
end
else
if ComboBox1.Items.Strings[7]='Любымые цветы' then
begin
data.Add('quest=8');
end
else
if ComboBox1.Items.Strings[8]='Почтовый индекс родителей' then
begin
data.Add('quest=9');
end
else
if ComboBox1.Items.Strings[9]='Дата рождения дедушки' then
begin
data.Add('quest=10');
end
else
if ComboBox1.Items.Strings[10]='Имя и отчество бабушки' then
begin
data.Add('quest=11');
end
else
if ComboBox1.Items.Strings[11]='Номер телефона друга/подруги' then
begin
data.Add('quest=12');
end;

И когда я отправляю запрос программа отправляет только 'quest=0', хотя выбрано совсем другое

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[Grag]

Сообщение от record222

Здравствуйте уважаемые пользователи данного сайта. Я новичек в делфи и хотел бы спросить что в данном коде не верно? Помогите пожалуйста



И когда я отправляю запрос программа отправляет только 'quest=0', хотя выбрано совсем другое

Слишком большая вложенность условных операторов, код становится нечитабельным.

Case i of
  0:if ComboBox1.Items.Strings[i]='--' then MyText:='quest='+IntToStr(i);
  1:if ComboBox1.Items.Strings[i]='Любимое блюдо' then Text:='quest='+IntToStr(i+1);
  2:if ComboBox1.Items.Strings[i]='Ваше прозвище в школе' then MyText:='quest='+IntToStr(i+1);
  ------
  ------
  11:if ComboBox1.Items.Strings[i]='Номер телефона друга/подруги' then MyText:='quest='+IntToStr(i+1);
end;//case
data.Add(MyText);

Все становится понятным и должно работать...