EListError при обращении к TToolBar.Buttons

← →
Fog © (2003-08-19 17:00) [0]

делаю раз:

//На тул баре 3 кнопки!

for i := 0 to ToolBar.ButtonCount do begin if Toolbar.Buttons[i].Caption = "button" then ToolBar.Buttons[i].Destroy; end;

> List index out of bounds (2)

делаю два

for i := 1 to Toolbar.ButtonCount do begin if Toolbar.Buttons[i].Caption = "button" then ToolBar.Buttons[i].Destroy; end;

> List index out of bounds (2)

делаю три

for i := 0 to Toolbar.ButtonCount - 1 do begin if Toolbar.Buttons[i].Caption = "button" then ToolBar.Buttons[i].Destroy; end;

> List index of bounds (2)

Здравый смысл подсказывает мне что кнопка 2 должна быть в лбом случае... Однако кнопка убирается. Как это дело замять? не думаю что try..except выход...

← →
ermserg © (2003-08-19 17:03) [1]

for i := Toolbar.ButtonCount - 1 downto 0 do
begin
if Toolbar.Buttons[i].Caption = "button" then
ToolBar.Buttons[i].Destroy;
end;

← →
Юрий Федоров © (2003-08-19 17:04) [2]

1. Индексация от 0 до count - 1
2. Если в таком цикле происходит удаление элементов, формирующих count - следует вести его в обратную сторону ( downto)

← →
ermserg © (2003-08-19 17:07) [3]

Kstati:
ToolBar.Buttons[i].Free

Спасибо!

EListError при обращении к TToolBar.Buttons Найти похожие ветки