Главная страницаОбратная связьКарта сайта

Как использовать переменную для имени процедуры

Автор: Peter Below

Каким образом мне можно использовать переменную типа String в качестве имени процедуры?

Если все процедуры, которые вы собираетесь вызывать имеют список с одними и теми же параметрами, (или все без параметров), то это не трудно. Для этого необходимо:

процедурный тип, соответствующий вашей процедуре, например:


Type
  TMacroProc = Procedure( param: Integer );

массив, "подключающий" имена процедур к их адресам во время выполнения приложения:


Type
  TMacroName  = String[32];
  TMacroLink = Record
    name: TMacroName;
    proc: TMacroProc;
  End;
  TMacroList = Array [1..MaxMacroIndex] Of TMacroLink;

Const
  Macros: TMacroList=(
    (name: "Proc1"; proc: Proc1 ),
    (name: "Proc2"; proc: Proc2 ),
    .....);

интерпретатор функций, типа:


Procedure CallMacro( name: String; param: Integer );
Var
  i: Integer;
Begin
  For i := 1 To MaxMacroIndex Do
    If CompareText( name, Macros[i].name ) = 0 Then
    Begin
      Macros[i].proc( param );
      Break;
    End;
End;

Макро-процедуры необходимо объявить в секции Interface модуля или с ключевым словом Far, например:


Procedure Proc1( n: Integer ); far;
Begin
  ....
End;

Procedure Proc2( n: Integer ); far;
Begin
  ....
End;


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Как использовать переменную для имени процедуры", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info