Массив????

[usmeshnik]

Всем Здравствуйте может кто нить поможет,
дело втом что есть панелька (составной компонент)

Panel1 в него входят (Lv=Label), (Rm=Label), (Ind=Shape)
и еще есть (Num=StaticText) - он отображает номер панельки.

Вопрос в том как использовать массив а не тупое раскопирование,
если можно.

Зарание Спасибо.


код:

procedure TForm1.Button1Click(Sender: TObject);
var
d1:TDateTime;
begin

d1:=Now;

Panel1.Caption:=SGrid1.Cells[0,1];
Panel1.Lv.Caption:=SGrid1.Cells[2,1];

if SGrid1.Cells[3,1] = '1' then
Panel1.Rm.Enebled:=true
else Panel1.Rm.Enebled:=false;

if SGrid1.Cells[4,1] = '' then
SGrid1.Cells[4,1]:=DateToStr(d1);
if d1>=StrToDate(SGrid1.Cells[4,1]) then
Panel1.Font.Color:=clRed else Panel1.Font.Color:=clYellow;

if SGrid1.Cells[5,1] = '' then
SGrid1.Cells[5,1]:=DateToStr(d1);
if SGrid1.Cells[5,1] = DateToStr(d1) then
Panel1.Ind.Brush.Color:=clLime else Panel1.Ind.Brush.Color:=clWhite;

........................
........................
........................

Panel56.Caption:=SGrid1.Cells[0,56];
Panel56.Lv.Caption:=SGrid1.Cells[2,56];

if SGrid1.Cells[3,56] = '1' then
Panel56.Rm.Enebled:=true
else Panel56.Rm.Enebled:=false;

if SGrid1.Cells[4,56] = '' then
SGrid1.Cells[4,56]:=DateToStr(d1);
if d1>=StrToDate(SGrid1.Cells[4,56]) then
Panel56.Font.Color:=clRed else Panel56.Font.Color:=clYellow;

if SGrid1.Cells[5,56] = '' then
SGrid1.Cells[5,56]:=DateToStr(d1);
if SGrid1.Cells[5,56] = DateToStr(d1) then
Panel56.Ind.Brush.Color:=clLime else
Panel56.Ind.Brush.Color:=clWhite;


end;

[evg_m]

1. просто цикл НО надо следить за именами.

for j:=0 to begin
.....
p:=FindComponent('panel'+inttostr(j)) as TPanel;
p.caption:=....
....
end;

2. ОДИН РАЗ заполнить массив объявленный в разделе Private класса

 mypanels: array of TPanel;
mypanels[1]:=Panel1;
mypanels[2];=panel2;

и использовать

for j:=  begin
......
mypanels[j].caption:=
end;

3. использовать свойство для хранения дополнительных данных у объекта Sgrid
заполнить

sgrid.objects[1,1]:=Panel1;
......
sgrid.objects[1,56]:=Panel56;

и использовать

for j:=  begin
......
  p:=sgrid[1,j] as TPanel;
  p.caption:=....
.........
end;

[usmeshnik]

Большое СПАСИБО вопрос снят))).

[wulf_01]

Сообщение от usmeshnik

Большое СПАСИБО вопрос снят))).

dfsg sdfgh dfhdyd jfdtg jfryjf