Процедуры

[Federal]

У меня несколько процедур
например
procedure Р1
procedure Р2
procedure Р3
procedure Р4
procedure Р5
procedure Р6
................
procedure Р300
в поле ЕДИТ1 вводим номер (допустим 2)процедуры нажимаем кнопку

Button1
вызвать процедуру ЕДИТ1 то есть 2 то есть Р2;

Я бы хотел избежать типа
if (Edit1.Text='1') then P1;
if (Edit1.Text='2') then P2;
.........
if (Edit1.Text='300') then P300;

А как нибудь попроще
типа
i:=StrToInt(Edit1.text);
P[i];

[Necrophobic]

можешь сделать через делегаты, если у всех процедур одинаковые параметры
пишешь

type 
  TDel = array of procedure of object;

потом ясное дело объект его

var P : TDel;

затем самая некрасивая часть решения(((

setlength(P,300);
P[0] := p1;
P[1] := p2;
P[2] := p3;
---------------
P[299] := p300;

зато теперь, можно вызывать функции по индексу!!

P[strtoint(edit1.text)];

[Federal]

Лучше и не придумать...Спасибо!!!

[Grag]

А вот еще одна "некрасивая реализация" без всяких "делегатов"...

i:=StrToInt(Edit1.text);
case i of
  1:P1;
  2:p2;

  300:P300
end; //case