Длинный Case

[Utkin]

У меня есть некоторый код

case Id of

          1  : begin

                  // Бла-бла
               end;
          ...

else

            // Ошибка
            Exit;
 end;

И этих блоков begin-end уже штук 50 имеется (свой на каждый Id) и еще штук надцать предвидится. Так вот засомневался - эффективно ли это? Может разбивать на подразделы условиями (если id>50 то ищем там-то и там то иначе смотрим для Id<50). Функция с этим case вызывается построчно (это интерпретатор ) для большого количества массивов строк, поэтому нужна большая эффективность, а в ней и так еще куча проверок различных состояний.

[Квэнди]

А красивее будет унифицировать код, убрав такую линейность )

[Stilet]

Хм. Массив функций:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type f=function(param:string):string;
  var a:array[0..1] of f; id:byte;

 function a1(s:string):string;begin result:='1 -'+s; end;
 function a2(s:string):string;begin result:='2 -'+s; end;

begin
 a[0]:=a1;a[1]:=a2;
 id:=1;
write(a[id]('hallo'));
readln;
end.

Думаю ты понял мою идею 9ато я ее сам не понял (Шучу)

А красивее будет унифицировать код, убрав такую линейность

Пардон, а это как?

[Utkin]

Каким образом? Id это идентификатор определенного действия. Сначала берется строка и определяется что это? Допустим команда объявления константы. Соответственно для нее определяется Id, на основании этой переменной определяется какого рода параметр должен быть извлечен для правильной работы.
Затем этот параметр передается в функцию - в какую уже решается через Case.
Как это можно улучшить?

Stilet твое предложение тоже, ИМХО, аналогично case. Но быстрее?