помогите разобраться новичку!!!

[kena]

есть такая задача:
(оператор case) Написать программы, котторая относилабы введенный продукт к категории овощ, фрукт или другое!

Если в case нельзя использовать string то как тогда? Что тоя не как не догоню?

Если можно то в подробностях пожалуйста!!!

[DM_bite]

Если в case нельзя использовать string то как тогда? Что тоя не как не догоню?

Я что-то не понял, но вы видимо об этом?

var s:string;
begin
case s of

[Greblin]

Как вариант: создаём массив строк, в котором будут храниться названия продуктов. После ввода ищем продукт в этом массиве и соответственно определяем индекс. Затем уже case по этому индексу

[kena]

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

Я что-то не понял, но вы видимо об этом?

var s:string;
begin
case s of

У меня почемуто в леции написано что" Параметром, по которому осуществляется выбор, служит так называемый ключ выбора (или селектор) - выражение любого типа (кроме типов REAL и STRING)." Вот но ща попробую как вы посоветовали.

[kena]

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

Как вариант: создаём массив строк, в котором будут храниться названия продуктов. После ввода ищем продукт в этом массиве и соответственно определяем индекс. Затем уже case по этому индексу

Мы еще не дошли до массивов в колледже.так что я пока в этом не разбирусь. Но спасибо большое за ответ

[MalCer]

var
 a:integer;
begin
a:=Strtoint( edit1.Text);
case a of
1: ShowMessage('Овощь);
2 : ShowMessage('Фрукт');
3: ShowMessage('Другое');
end;