Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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
1-52189
Anton.
2003-12-03 12:50
2003.12.16
Как можно избавится от перебора?


1-52270
Артем К.
2003-12-04 11:50
2003.12.16
Координаты курсора над TChartoм


4-52438
rel_
2003-10-21 08:45
2003.12.16
Создание окна


14-52359
Думкин
2003-11-23 05:18
2003.12.16
С днем рождения! 23 ноября.


6-52317
alt7
2003-10-20 12:32
2003.12.16
Очередной глюк в Делфи чтоли?