Удаление динамического компонента

← →
Nad89 © (2005-06-09 13:27) [0]

Сразу извиняюсь, если этот вопрос обсуждался 100 раз и т.п... Но объясните мне почему вот это не работает:

var i:integer;
begin
for i:=0 to ComponentCount-1 do
if (Components[i] is TTabSheet) and ((Components[i] as TTabSheet).Caption = "TabSheet1") then
(Components[i] as TTabSheet).Free;

← →
Ega23 © (2005-06-09 13:29) [1]

Почему не работает???

← →
-=XP=- © (2005-06-09 13:31) [2]

for i:= ComponentCount-1 downto 0 do

← →
Nad89 © (2005-06-09 13:31) [3]

Говорит :
List index out of bounds (32)...

← →
Nad89 © (2005-06-09 13:32) [4]

-=XP=-, Спасибо ! :)

← →
Ega23 © (2005-06-09 13:34) [5]

while надо использовать в таких случаях.

← →
VMcL © (2005-06-09 13:40) [6]

>>Ega23 © (09.06.05 13:34) [5]

Необязательно. Можно и [2].

← →
Ega23 © (2005-06-09 13:43) [7]

Можно и так, конечно.
Дело привычки. Я к while привык...

Это работает но только с ошибкой - если найдет, количество элементов списка уменьшится, а количество циклов нет. В [2] указали правильное использование цикла. Только здесь и цикл лишний.

Только здесь и цикл лишний.

Ну как же лишний?

function TComponent.FindComponent(const AName: string): TComponent; var I: Integer; begin if (AName <> "") and (FComponents <> nil) then for I := 0 to FComponents.Count - 1 do begin Result := FComponents[I]; if SameText(Result.FName, AName) then Exit; end; Result := nil; end;

:о)

Да и пользователи программы будут благодарны:

((Components[i] as TTabSheet).Caption = "TabSheet1")

Вряд ли придумаешь более интуитивно понятное название для закладки.

:)

Удаление динамического компонента Найти похожие ветки