Case из STRING. HELP!

[Altera]

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

Не вижу, если честно, ничего хорошего в методе Alter'а. Вместо нескольких операторов if объявлять классовую переменную, несколько функций, удваивать, как минимум, объем памяти под строки и в конечном счёте получить те же if'ы внутри "VL.IndexOf(Match)". И какая разница между несколькими if-elseif-elseif-else и case, кроме "косметической"? А если строк очень много, я уже говорил, лучше смотреть в сторону хеш-таблиц и подбирать подходящую хэш-функцию.

Ну, я особо не разбирался, просто он мне подал идею, как это провернуть.

var
command_array: array [1..3] of string = ('exit', 'max', 'min');

procedure aMain_form.find_buttonClick(sender: tObject);
var
counter: byte;
begin
   for counter := 1 to 3 do
   begin
      if command_array[counter] = command_input.text then
      break;
   end;
   case counter of
   1: showMessage('Выходим');
   2: showMessage('макс');
   3: showMessage('мин');
   end;
end;

Ну вот так, в принцепе можно...

[B_N]

Ну, дело хозяйское. Просто обычно такие комбинации кончаются или какими-нибудь странными глюками в странных местах, или невозможностью нормально прочитать свой собственный код, вставить или добавить еще одну-две строчки - целое дело, приходится менять код сразу в нескольких местах, а если надо строк эдак с полсотни, придется всё время лазить в объявление массива, выискивая там нужную, потом выяснять, какая она по индексу - практически с гарантией где-нибудь перепутать и т.д.

[Altera]

Ну это как код написать...