Советы по Delphi. Версия 1.4.3 от 1.1.2001

end;

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

function recA.getVal(field: integer); string;
begin
 case field of
 1: getVal := intToStr(this);
 2: getVal := that;
 3: getVal := intToStr(the_other);
 end;
end;

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

function myFunc(rec: tAllrecs; field: integer);
begin
label2.caption := allrecs.getVal(field);
end;

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

myFunc(recA, 2);
myFunc(recB, 29);

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

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

[Sid Gudes, [e-mail]]

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

Указатели

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

Delphi 1

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

Ниже приведен простой пример для 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