Макро-процедуры

Автор: 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;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 159 • TDictionary Custom Sort 6 224 • Fast Watermark Sources 6 020 • 3D Designer 8 918 • Sik Screen Capture 6 355 • Patch Maker 6 773 • Айболит (remote control) 6 755 • ListBox Drag & Drop 5 630 • Доска для игры Реверси 96 209 • Графические эффекты 6 978 • Рисование по маске 6 248 • Перетаскивание изображений 5 148 • Canvas Drawing 5 517 • Рисование Луны 5 218 • Поворот изображения 4 766 • Рисование стержней 3 370 • Paint on Shape 2 623 • Генератор кроссвордов 3 513 • Головоломка Paletto 2 804 • Теорема Монжа об окружностях 3 615 • Пазл Numbrix 2 366 • Заборы и коммивояжеры 3 046 • Игра HIP 2 002 • Игра Go (Го) 1 927 • Симулятор лифта 2 285 • Программа укладки плитки 1 988 • Генератор лабиринта 2 442 • Проверка числового ввода 2 125 • HEX View 2 460 • Физический маятник 2 079