Как обратиться к компоненту в цикле через переменную?

← →
SergeY (2003-06-12 22:56) [0]

Небольшая проблемка. Надо обратиться к компоненту, например TShape через переменную, что-то вроде TShape[i].Color ...
P.S. Обязательно для Delphi6, в 5 помоему можно через FindComponent, а в 6 у меня не вышло.

← →
Palladin (2003-06-12 23:01) [1]

ты бедняжка...
проблемка твоя серьезненькая, но вот если бы ты поподробней описал бы свою задечечку, хоть кумнибудь было бы понятненько...

FindComponent никуда не исчезало и в D6...
У тебя в программе ошибка

← →
_ALEXey_ (2003-06-13 13:36) [2]

TShape(FindComponent( <название>)).Color:= .....

← →
dataMaster (2003-06-13 14:01) [3]

Или так:

var
Form1: TForm1;
s:array [1..6] of TShape;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
a, b:integer;
begin
b:=1;
for a:=1 to ComponentCount do
if Components[a-1] is TShape then
begin
s[b]:=TShape(Components[a-1]);
Inc(b);
end;
FrmSize(Form1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
s[1].Brush.Color:=clRed;
s[2].Brush.Color:=clLime;
s[3].Brush.Color:=clBlue;
s[4].Brush.Color:=clYellow;
s[5].Brush.Color:=clGreen;
s[6].Brush.Color:=clMaroon;
end;

Как обратиться к компоненту в цикле через переменную? Найти похожие ветки