Текущий архив: 2003.12.16;
Скачать: CL | DM;

Вниз

Как можно избавится от перебора?   Найти похожие ветки 

← →
Anton.   (2003-12-03 12:50) [0]

for j:=0 to MainMenu1.Items.Count-1 do
begin
if MainMenu1.Items[j].Name="REPORTS" then
MainMenu1.Items[j].Add(NewItems[k]);
end;

---

← →
Юрий Федоров ©   (2003-12-03 12:53) [1]

MainMenu1.Items[j] - это компонент, следовательно
его можно найти методом FindComponent формы- владельца

---

← →
Reindeer Moss Eater ©   (2003-12-03 12:54) [2]

Но перебрать-то все элементы все равно придется.

---

← →
Babay ©   (2003-12-03 13:10) [3]

А так не подойдет?

Var J:Integer;
c:TMenuItem;
begin
j:=-1;
c:=MainMenu1.Items.Find("Reports");
if c<>Nil then
j:=MainMenu1.Items.IndexOf(c);

---

← →
Babay ©   (2003-12-03 13:14) [4]

... :=))#
Судя по вопросу это
"if c<>Nil then
j:=MainMenu1.Items.IndexOf(c);
"
и ненужно

сразу делаем
c.Add(NewItems[k]);

---

← →
Babay ©   (2003-12-03 13:19) [5]

Блин.... чета я намутил (пора домой)
вот так короче

Var
c:TMenuItem;
begin
c:=MainMenu1.Items.Find("Reports");
if c<>Nil then
c.Add(NewItems[k]);

думаю подход ясен у TMenuItem тоже есть Find....

---

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

Текущий архив: 2003.12.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.02 c