Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

Другая вещь, которую вы можете сделать — исключить работу с longint и вызывать функцию dll следующим образом:

DLLfunction(@foo);

Имейте в виду, что если вы собираетесь вызывать foo из DLL, то необходимо предусмотреть вопросы совместимости, для получения дополнительной информации почитайте описание функции MakeProcInstance.

Может это не то, что вы ищете, но идея такая:

Определите базовый класс с именем, скажем, allrecs:

tAllrecs = class

functiongetVal(field: integer): string; virtual;

end;

Затем создаем классы для каждой записи:

recA = class(tAllrecs)

this: Integer;

that: String;

the_other: Integer;

functiongetVal(field: integer): string; virtual;

end;

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

functionrecA.getVal(field: integer); string;

begin

casefield of

1: getVal := intToStr(this);

2: getVal := that;

3: getVal := intToStr(the_other);

end;

end;

Затем вы можете определить

functionmyFunc(rec: tAllrecs; field: integer);

begin

label2.caption := allrecs.getVal(field);

end;

затем вы можете вызвать myFunc с любым классом, производным от tAllrecs, например:

myFunc(recA, 2);

myFunc(recB, 29);

(getVal предпочтительно должна быть процедурой (а не функцией) с тремя var-параметрами, возвращающими имя, тип и значение.)

Все это работает, т.к. данный пример я взял из моего рабочего проекта.

[Sid Gudes, cougar@roadrunner.com]

Если вы хотите за один раз передавать целую запись, установите на входе ваших функций/процедур тип 'array of const' (убедитесь в правильном приведенни типов). Это идентично 'array of TVarRec'. Для получения дополнительной информации о системных константах, определяемых для TVarRec, смотри электронную справку по Delphi.

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

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

interface

uses

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

type

TForm1 = class(TForm)

Button1: TButton;

procedureButton1Click(Sender: TObject);

private{ Private declarations }

public{ Public declarations }

end;

var

Form1: TForm1;

CurrProc : LongInt;

MyVal : LongInt;

implementation

usesUnit2;

{$R *.DFM}

procedureTForm1.Button1Click(Sender: TObject);

var

NewProc : LongInt;

MyString : string;

begin

CurrProc := 2; { начальная точка в таблице методов }

MyVal := 0; { вспомогательная переменная }

NewProc := 0; { возвращаемое значение для следующего индекса в таблице методов }

whileCurrProc < 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( varProcNum : LongInt): LongInt;

var

{ объявляем массив указателей на функции }

ProcTable : Array[1..5] ofProcs;

{ определения интерфейсов функций }

functionProc1( varMyVal : LongInt) : LongInt; far;

functionProc2( varMyVal : LongInt) : LongInt; far;

functionProc3( varMyVal : LongInt) : LongInt; far;

functionProc4( varMyVal : LongInt) : LongInt; far;

functionProc5( varMyVal : LongInt) : LongInt; far;

implementation