Код:
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: Пользуемся тегами!
как нужно сделать, чтоб все записанное в скобке воспринималось как имя панели, ну или массива как в начале и возможно ли такое вообще???