Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 привык...


 
Anatoly Podgoretsky ©   (2005-06-09 13:50) [8]

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


 
-=XP=- ©   (2005-06-09 13:57) [9]

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

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

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;


:о)


 
-=XP=- ©   (2005-06-09 13:59) [10]

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

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

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

:)



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

Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.052 c
3-1116053584
Mishenka
2005-05-14 10:53
2005.06.29
Как динамически создавать базу данных?


14-1117812100
тихий вовочка
2005-06-03 19:21
2005.06.29
Новости VCL - 404я


6-1111118939
TankMan
2005-03-18 07:08
2005.06.29
Хотелось бы узнать алгоритм поиска компьютеров в сети...


14-1117520678
palva
2005-05-31 10:24
2005.06.29
Закрыть для себя 25 порт


4-1114426398
Суслик
2005-04-25 14:53
2005.06.29
TerminateProcess





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский