Форум: "Основная";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];

Вниз

И снова про вызовы функций-членов   Найти похожие ветки 

← →
vuk   (2002-03-27 18:15) [8]

При решении подобной задачи я пошел бы другим путем.


Допустим, что

TBase = class
procedure A;
procedure B;
end;


type
TActionProc = ptocedure( Instance : TBase );

procedure WalkAray( A: array of TBase; ActionProc : TActionProc );
var
i : integer;
begin
if Assigned( ActionProc ) then
for i := Low( A ) to High(A) do
ActionProc( a[i] );
end;


И потом уже


procedure CallA( Instance : TBase );
begin
if instance <> nil then
Instance.A;
end;

procedure CallB( Instance : TBase );
begin
if instance <> nil then
Instance.B;
end;


var

ar : array of TBase;
....
WalkArray( ar, CallA );
WalkArray( ar, CallB );


---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c