Оператор выбора для компонента Edit

@olorin3000 · Регистрация: 27.09.2012

Author24 — интернет-сервис помощи студентам

Здравствуйте!
Вот моя процедура:

Код

procedure TForm1.Button1Click(Sender: TObject);
var
id1,id2,i,j:integer;
f1:TextFile;
st:string;
mas:array[1..6,1..6] of integer;
begin
AssignFile(f1,'D:\roads\roads.txt');
Reset(f1);
for i:=1 to 6 do
for j:=1 to 6 do
Read(mas[i,j]);
CloseFile(f1);

if Edit1.text<>'' then
case Edit1.Text of
'Абердин':id1:=1;
'Эдинбург': id1:=2;
'Форт Уильям': id1:=3;
'Глазго':id1:=4;
'Инвернесс':id1:=5;
'Перт':id1:=6;
end;

if Edit2.text<>'' then
case Edit2.Text of
'Абердин':id2:=1;
'Эдинбург': id2:=2;
'Форт Уильям': id2:=3;
'Глазго':id2:=4;
'Инвернесс':id2:=5;
'Перт':id2:=6;
end;

Label5.Caption:=' '+'Расстояние от  '+Edit1.Text+'a'+' к  '+Edit2.Text+'у ='+
IntToStr(mas[id1,id2])+' миль.';

end;

Компилятор возмущается на оператор case. Пишет что не совместимые типы integer и string.
Подскажите как можно решить эту проблему. Спасибо ))

HighPredator · 27.09.2012, 19:50

Оператор case применяется только для порядковых типов данных, к которым строковый не относится.

@olorin3000 · 27.09.2012, 19:58 **[ТС]**

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

Оператор case применяется только для порядковых типов данных, к которым строковый не относится.

Ага ясно. Большое спасибо. Придется оператор if использовать.

Одиночка · 27.09.2012, 22:17

Раз у тебя одни и те же названия, используй ComboBox-ы. И ItemIndex используй в Case.

@TaYgA · 27.09.2012, 22:21

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

Ага ясно. Большое спасибо. Придется оператор if использовать.

olorin3000, да ладно тебе каждый вариант через if рассматриать! Это же текст программы увеличится в 2 раза как миниум! Скажи, а использование Edit в твоем проекте обязательно? Просто если edit заменить ListBox1 и прописать все возможные варианты (а пользователь бы сам выбирал требуемый ему), то можно было бы сделать вот так

Delphi

  Case ListBox1.ItemIndex of 
    0:id1:=1;
    1: id1:=2;
    2: id1:=3;
    3:id1:=4;
    4:id1:=5;
    5:id1:=6;
  end;

@olorin3000 · 27.09.2012, 22:32 **[ТС]**

Спасибо ребята. )) Программа по сути делает расчет пути от города а в город б (в миля)

HighPredator 6045 / 2160 / 753 Регистрация: 10.12.2010 Сообщений: 6,005 Записей в блоге: 3
	27.09.2012, 19:50	2
	Оператор case применяется только для порядковых типов данных, к которым строковый не относится. 0

@olorin3000 2 / 2 / 0 Регистрация: 27.09.2012 Сообщений: 48
	27.09.2012, 19:58 [ТС]	3
	Сообщение от HighPredator Оператор case применяется только для порядковых типов данных, к которым строковый не относится. Ага ясно. Большое спасибо. Придется оператор if использовать. 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	27.09.2012, 22:17	4
	Раз у тебя одни и те же названия, используй ComboBox-ы. И ItemIndex используй в Case. 0

@olorin3000 2 / 2 / 0 Регистрация: 27.09.2012 Сообщений: 48
	27.09.2012, 22:32 [ТС]	6
	Спасибо ребята. )) Программа по сути делает расчет пути от города а в город б (в миля) 0