Массив виртуальных функций класса.

← →
Drowsy © (2011-05-04 20:02) [0]

Как создать массив вирт. функций класса, чтобы можно было их вызывать,
как элементы массива?

type
TForm1 = class(TForm)
private
{ Private declarations }

function Legal1 : boolean; virtual;
function Legal2 : boolean; virtual;
function Legal3 : boolean; virtual;
function Legal4 : boolean; virtual;
function Legal5 : boolean; virtual;
function Legal6 : boolean; virtual;
function Legal7 : boolean; virtual;
function Legal8 : boolean; virtual;
function Legal9 : boolean; virtual;
function Legal10 : boolean; virtual;
function Legal11 : boolean; virtual;
function Legal12 : boolean; virtual;
function Legal13 : boolean; virtual;
function Legal14 : boolean; virtual;
function Legal15 : boolean; virtual;

public
{ Public declarations }

LegalArray : array [ 1..15 ] of ???

end;

var
Form1: TForm1;

implementation

← →
clickmaker © (2011-05-04 20:05) [1]

type
TMyVirtFunc = function: boolean of object;

LegalArray : array [ 1..15 ] of TMyVirtFunc;

спасибо.

Массив виртуальных функций класса. Найти похожие ветки