Как считать название процедур из файла и вызвать их в программе?

[StudeHt]

Здравствуйте уважаемые эксперты! Возникла проблема: у меня есть следующие коды процедур:

....................................
procedure DrawingOfTire1;
begin
With MainFormOfKKR.Canvas do // к каждой последующей строке добавляем MainFormOfKKR.Canvas
begin
PolyGon([Point(20,10),Point(795,10)]); //точки 1 и 2
PolyGon([Point(20,25),Point(510,25)]); //точки 3 и 114
PolyGon([Point(514,25),Point(795,25)]); //точки 116 и 4
TextOut(350, 11, 'Внутренняя шина данных');
end;
end;

procedure DrawingOfArrow1;
begin
With MainFormOfKKR.Canvas do // к каждой последующей строке добавляем MainFormOfKKR.Canvas
begin
PolyGon([Point(43,35),Point(43,60)]); //точки 7 и 9
PolyGon([Point(47,35),Point(47,60)]); //точки 8 и 10
PolyGon([Point(45,25),Point(38,40)]); //точки 15 и 11
PolyGon([Point(45,25),Point(52,40)]); //точки 15 и 12
PolyGon([Point(45,70),Point(38,55)]); //точки 16 и 13
PolyGon([Point(45,70),Point(52,55)]); //точки 16 и 14
TextOut(20, 40, 'ШД');
end;
end;

procedure DrawingOfBlock1;
begin
With MainFormOfKKR.Canvas do // к каждой последующей строке добавляем MainFormOfKKR.Canvas
begin
Rectangle(10,110,80,70); //точки 5 и 6
TextOut(15, 71, 'Регистр и');
TextOut(15, 83, 'буфер ши-');
TextOut(15, 94, 'ны данных');
end;
end;
..................................

Как мне сделать так, чтобы если я считываю имена этих процедур из файла, программа по нажатию кнопки выполнила эти процедуры(т.е. нарисовала необходимые элементы)?

[Mandrivnyk]

Через switch, видимо...

[Mad_Cat]

Через switch, видимо...

в делфях/паскалях через if )

[veniside]

  case (index) of
    1: DrawingOfTire1();
    2: DrawingOfArrow1();
    3: DrawingOfBlock1();
  end;

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

[StudeHt]

у меня 75 процедур, а задействованы могут быть всего 15, все-равно через case делать или есть еще способы?

[veniside]

> задействованы могут быть всего 15

ну вот эти 15 в case и забей, делов то

[StudeHt]

Здравствуйте. Вот я начал делать:

procedure TMainFormOfKKR.ButtonProblemRealizationClick(Sender: TObject);
 var
  f:textfile;
  mas:array[1..75] of integer;
  n:integer;
  i:integer;
begin
  assignfile (f,'a.txt');
  reset(f);
  n:=0;
  while not eof (f) do
    begin
      read(f,mas[n]);
      n:=n+1;
    end;
  With MainFormOfKKR.Canvas do // к каждой последующей строке добавляем MainFormOfKKR.Canvas
    begin
      Pen.Width:=2;
      Pen.Color:=clRed;
      Font.Size:=1;
      Font.Color:=clBlack;
    end;
  for i:=1 to n do
    case (Mas[i]) of
      1: DrawingOfTire1;
      2: DrawingOfTire2;
    end;
end;

Я присвоил процедурам уникальные имена и считываю их индексы из файла. Мне нужно чтобы обе процедуры выполнились, потому что в файле содержатся оба индекса, но рисуется толко последняя, как исправить чтобы рисовались обе???

[Swarog]

куча ифов примерно таких

  for i:=1 to n do
   begin
    if Mas[i] in [1,2,5{это к примеру}] then DrawingOfTire1;
    if Mas[i] in [1,2,8{это к примеру}] then DrawingOfTire2;
   end

при таком раскладе при значении 1 или 2 будут выполняться обе при значении 5 только первая, 8 - только вторая

[Swarog]

у меня 75 процедур, а задействованы могут быть всего 15, все-равно через case делать или есть еще способы?

можно тела этих проуедцр и забить в case

procedure Draw(index: integer);
begin
 case i of 
  1:
With MainFormOfKKR.Canvas do // к каждой последующей строке добавляем MainFormOfKKR.Canvas
begin
PolyGon([Point(20,10),Point(795,10)]); //точки 1 и 2
PolyGon([Point(20,25),Point(510,25)]); //точки 3 и 114
PolyGon([Point(514,25),Point(795,25)]); //точки 116 и 4
TextOut(350, 11, 'Внутренняя шина данных');
end;
  2:
With MainFormOfKKR.Canvas do // к каждой последующей строке добавляем MainFormOfKKR.Canvas
begin
PolyGon([Point(43,35),Point(43,60)]); //точки 7 и 9
PolyGon([Point(47,35),Point(47,60)]); //точки 8 и 10
PolyGon([Point(45,25),Point(38,40)]); //точки 15 и 11
PolyGon([Point(45,25),Point(52,40)]); //точки 15 и 12
PolyGon([Point(45,70),Point(38,55)]); //точки 16 и 13
PolyGon([Point(45,70),Point(52,55)]); //точки 16 и 14
TextOut(20, 40, 'ШД');
end;
  3:
Rectangle(10,110,80,70); //точки 5 и 6
TextOut(15, 71, 'Регистр и');
TextOut(15, 83, 'буфер ши-');
TextOut(15, 94, 'ны данных');

///// и так далее все 75
 end;
 
end;

дальше просто делаешь преобразование входной текстовой строки в код, после чего делаешь вызов draw(code)

[StudeHt]

Swarog, спасибо!