Помогите разобраться с CASE

[monrus]

Не могу понять как можно сделать множественный выбор из строковых значений.
Например: когда ввожу какое-нить слово, хочу чтобы оно обрабатывалось с помощью Case, а потом выводился результат выбора?
Как это можно сделать. А-то много раз делать IF как-то глупо. Помогите.

[Alf]

Из строковых - никак, к сожалению. В большинстве языков, в том числе и в Pascal'e с его диалектами, селектор оператора выбора должен быть скалярного типа. Строки к таковым не относятся, так что самое очевидное решение - длинная цепочка if ... then ... else if ... и так далее. В противном случае придется переходить на C#, там такие штуки, как строковый селектор,  проходят.

[sega]

приблизительно мона так:

type
   TNumericChoiceParent = (ncp_Mother, ncp_Father, ncp_Child);

 procedure TForm1.btChooseClick(Sender: TObject);
 var
   S: string;
 begin
   S := InputEdit.Text;
   case TNumericChoiceParent(GetEnumValue(TypeInfo(TNumericChoiceParent), 'ncp_' + S)) of
     ncp_Mother: ShowMessage('Hello Mom )');
     ncp_Father: ShowMessage('Hi, Dad -]');
     ncp_Child: ShowMessage('Shut up and eat your soup !-(');
   else
     ShowMessage('Who do you think that you are?');
   end;
 end;