[Norw]

Код:

procedure TForm2.Timer1Timer(Sender: TObject);
begin
for i:=1 to 7 do
if mizm[i]=1 then
for j:=1 to 16 do
begin
i1:=inttostr(i);
j1:=inttostr(j);
if ('m'+i1+'['+j1+']')=1 then
begin
('p'+i1+j1).color:=clyellow ;
 ('p'+i1+j1).bevelinner:=bvLowered;
 end;
 else
('p'+i1+j1).color:=clbtnface ;
 ('p'+i1+j1).bevelinner:=bvraised;
end;
end;

Admin: Пользуемся тегами!

как нужно сделать, чтоб все записанное в скобке воспринималось как имя панели, ну или массива как в начале и возможно ли такое вообще???