Delphi World - Указатель на функцию

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

Указатель на функцию

Это то, что я нашел при создании простой машины состояний:

Ниже приведен простой пример для Borland Delphi, использующий указатели функций для управления программным потоком. Просто создайте простую форму с единственной кнопкой и скопируйте код из Unit1 во вновь созданный модуль. Добавьте к проекту Unit2 и скомпилируйте проект. Дайте мне знать, если у вас возникнут какие-либо проблемы.

interface

uses

  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls;

type

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var

  Form1: TForm1;
  CurrProc: LongInt;
  MyVal: LongInt;

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var

  NewProc: LongInt;
  MyString: string;
begin

  CurrProc := 2; { начальная точка в таблице методов }
  MyVal := 0; { вспомогательная переменная }
  NewProc := 0;
    { возвращаемое значение для следующего индекса в таблице методов }
  while CurrProc < 6 do
  begin
    { выполняем текущий индекс в таблице методов и получаем следующую процедуру }
    NewProc := ProcTable[CurrProc](MyVal);

    { просто показываем значения NewProc и CurrProc }
    FmtStr(MyString, 'NewProc [%d] CurrProc [%d]', [NewProc, CurrProc]);
    MessageDlg(MyString, mtInformation, [mbOK], 0);

    { присваиваем текущую процедуру возвращаемой процедуре }
    CurrProc := NewProc;
  end;

end;

end.

{ Это простой пример, определяющий массив указателей на функции }

interface

type

  { определяем Procs как функцию }
  Procs = function(var ProcNum: LongInt): LongInt;

var

  { объявляем массив указателей на функции }
  ProcTable: array[1..5] of Procs;

  { определения интерфейсов функций }
function Proc1(var MyVal: LongInt): LongInt; far;
function Proc2(var MyVal: LongInt): LongInt; far;
function Proc3(var MyVal: LongInt): LongInt; far;
function Proc4(var MyVal: LongInt): LongInt; far;
function Proc5(var MyVal: LongInt): LongInt; far;

implementation

uses Dialogs;

function Proc1(var MyVal: LongInt): LongInt;
begin

  MessageDlg('Процедура 1', mtInformation, [mbOK], 0);
  Proc1 := 6;
end;

function Proc2(var MyVal: LongInt): LongInt;
begin

  MessageDlg('Процедура 2', mtInformation, [mbOK], 0);
  Proc2 := 3;
end;

function Proc3(var MyVal: LongInt): LongInt;
begin

  MessageDlg('Процедура 3', mtInformation, [mbOK], 0);
  Proc3 := 4;
end;

function Proc4(var MyVal: LongInt): LongInt;
begin

  MessageDlg('Процедура 4', mtInformation, [mbOK], 0);
  Proc4 := 5;
end;

function Proc5(var MyVal: LongInt): LongInt;
begin

  MessageDlg('Процедура 5', mtInformation, [mbOK], 0);
  Proc5 := 1;
end;

initialization

  { инициализируем содержание массива указателей на функции }
  @ProcTable[1] := @Proc1;
  @ProcTable[2] := @Proc2;
  @ProcTable[3] := @Proc3;
  @ProcTable[4] := @Proc4;
  @ProcTable[5] := @Proc5;

end.

Я думаю это можно сделать приблизительно так: объявите в каждой форме процедуры, обрабатывающие нажатие кнопки, типа процедуры CutButtonPressed(Sender:TObject) of Object; затем просто назначьте события кнопок OnClick этим процедурам при наступлении событий форм OnActivate. Этот способ соответствует концепции ОО-программирования, но если вам не нравится это, то вы все еще можете воспользоваться указателями функций, которая предоставляет Delphi.

Объявите базовый класс формы с объявлениями абстрактных функций для каждой функции, которую вы хотите вызывать из вашего toolbar. Затем наследуйте каждую вашу форму от базового класса формы и создайте определения этих функций.

Пример: (Здесь может встретиться пара синтаксических ошибок - я не компилил это)

type
  TBaseForm = class(TForm)
  public
    procedure Method1; virtual; abstract;
  end;

type
  TDerivedForm1 = class(TBaseForm)
  public
    procedure Method1; override;
  end;

  TDerivedForm2 = class(TBaseForm)
  public
    procedure Method1; override;
  end;

procedure TDerivedForm1.Method1;
begin
  ....
end;

procedure TDerivedForm2.Method1;
begin
  ....
end;

{Для вызова функции из вашего toolbar,
получите активную в настоящий момент форму и вызовите Method1}

procedure OnButtonClick;
var
  AForm: TBaseForm;
begin
  AForm := ActiveForm as TBaseForm;
  AForm.Method1;
end;