Текущий архив: 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.44 MB
Время: 0.008 c