Тема: Цикл
Показать сообщение отдельно
  #2  
Старый 02.07.2009, 14:52
Аватар для Winny
Winny Winny вне форума
Продвинутый
 
Регистрация: 26.05.2007
Адрес: Планета земля, Россия, Москва
Сообщения: 620
Репутация: 30
По умолчанию

Цитата:
Сообщение от Antik163rus
Имею на форме 25 лейблов. Надо, чтобы при загрузке их caption'ы были 0. Я так понимаю это надо реализовать с помощью цикла, как?
Можно реализовать вот так:
Код:
var
i:integer;
begin
for i:=0 to ComponentCount-1 do begin
if Components[i] is TLabel then begin
Components[i].Caption:='0';
end;
end;
При таком коде не имеет значение, сколько у тебя на форме Label'ов. Писать код надо на OnCreate формы.
__________________

Ответить с цитированием