Вопрос по Delphi

← →
alexan © (2009-12-14 19:43) [0]

Здравствуйте!!
Вопрос к знатокам Delphi, какая есть инструкция в Delphi
похожая на FOR TO DO только нужно вместо счётчика
вставить компонент, например последовательно
поменять цвета панелей (Panel1,Panel2... и т.д.),
а может это можно сделать и с помощю FOR TO DO?

такого плана
x: integer;
begin
for x:=1 to 5 do
Panel(x).Color:=clYellow;
Panel(x).Color:=clYellow;
........................

← →
Nucer (2009-12-14 19:49) [1]

Даже и не знаю что ответить на ваш вопрос =)
Если программирование вам действительно нужно, то возьмите какую-нибудь книжку по Delphi и начинайте читать с первой страницы.

А вот код (если конечно нужно именно это):
var i: Integer; begin for i := 0 to self.ComponentCount - 1 do begin if self.Components[i].ClassType = TPanel then (self.Components[i] as TPanel).Color := clYellow; end; end;

← →
Юрий Зотов © (2009-12-14 20:08) [2]

Self - убрать, остальное - подправить:

for i := 0 to ComponentCount - 1 do
if Components[i] is TPanel then
TPanel(Components[i]).Color := clYellow;

← →
Nucer (2009-12-14 20:43) [3]

> Юрий Зотов © (14.12.09 20:08) [2]

Спасибо за замечания =)

Если не сложно, то можно немного написать о разнице между:
1. Components[i].ClassType = TPanel и Components[i] is TPanel
2. (Components[i] as TPanel).Color и TPanel(Components[i]).Color

Или разницы, как и в случае self, по сути никакой?

http://delphimaster.net/view/15-1260820725/

Вопрос по Delphi Найти похожие ветки