Указатели

← →
webpauk (2005-03-04 19:01) [0]

Есть fArray array of tcontrols;

Tcontrol - любой объект
как сделать указатель Items на farray, чтобы в нем показывались только (Tcontrol as TmainMenu), например

← →
clickmaker © (2005-03-04 19:06) [1]

> webpauk (04.03.05 19:01)

у массивов нет встроенных механизмов фильтрации. Руками

TControlList = class(TControl)
private
fControls : Array of TControl;

procedure SetItem(const Index: integer; AControl: TControl);
function GetItem(const Index: integer);

public
property Items[Index : integer]:TControl read GetItem write SetItem;

end;

var
Controls : TControlList;

begin
Controls := TControlList.Create;
...

Вот, и в функции GetItem выбирать только те Control"ы которые (is TMainMenu)

Указатели Найти похожие ветки