[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: Пользуемся тегами!

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

[Страдалецъ]

Ну так конечно не прокатит. Вам надо найти компонент с заданым именем, привести его к нужному вам типу. Т.е. примерно так:

Код:

with TPanel(FindComponent('p'+i1+j1))
do begin
    Color := clYellow;
    BevelInner := bvLowered; 
    end;

[Norw]

Пасиба

а как быть с массивами?

[Страдалецъ]

С массивами так не сделать, но никто не мешает сделать многомерный массив.

Код:

if (m[i1,j1]=1 then

[Norw]

пасибо, вроде что-то получается

[Norw]

Код:

procedure TForm2.Timer1Timer(Sender: TObject);
begin
for i:=1 to 8 do
  if mizm[8,i]=1 then
       for j:=1 to 16 do
       begin
        i1:=inttostr(i);
        j1:=inttostr(j);
        if mizm[i,j]=1 then
            with TPanel(FindComponent('p'+i1+j1)) do
              begin
              Color := clYellow;
              BevelInner := bvLowered;
              end
           else
             with TPanel(FindComponent('p'+i1+j1))do
              begin
               Color := clbtnface;
               BevelInner := bvraised;
              end;
       end;

end;

вот получившийся вариант действия по событию, он компилируется, но если мы вносим в массив mizm числа :

Код:

procedure TForm2.P11Click(Sender: TObject);
begin
mizm[1,1]:=1;
mizm[7,15]:=1;
mizm[7,16]:=1;
mizm[6,6]:=1;
mizm[8,1]:=1;
mizm[8,6]:=1;
mizm[8,7]:=1;

end;

то выдаеться ошибка : проект вызвал исключение класса EAccessViolation....

Что делать???

[Страдалецъ]

Проверяйте где обращаетесь к несуществующему объекту или элементу массива.

[Страдалецъ]

Я вам предложил в начале несколько экстремальный вариант обращения к панельке:

Код:

 with TPanel(FindComponent('p'+i1+j1)) do

этот метод будет вызывать ошибку если панельки с искомым именем нет. Возможно проблема в этом. Правильнее будет сначала делать проверку на существование объекта, а уже потом обращаться к нему.

[Norw]

спасибо, я уже все разобрал