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

Вниз

Массив объектов.   Найти похожие ветки 

← →
reonid   (2002-03-20 13:00) [4]

В самом общем случае можно сделать так:

procedure SetPropToObjects(const PropName: string; PropVal: Variant; Objs: array of const);
var i: Integer;
begin
for i := 0 to High(Objs) do
begin
if Objs[i].VType <> vtObject then Continue;
SetPropValue(Objs[i].VObject, PropName, PropVal);
end;
end;

---

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

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

Наверх

Память: 0.43 MB
Время: 0.005 c