3х мерный массив координат

[NewLamer&Programer]

в общем рисую на канве изображения сетку из квадратиков 9*9, каждый квадратик 16*16, есть 2 массива Rectangles_x[1..9, 1..9, 1..16] и Rectangles_y[1..9, 1..9, 1..16], первые 2 части массивов - номера строки и столбца, третья - координаты по x и y относительно Image соответственно, в общем я слегка запутался во всем этом деле... если я завожу 3 цикла в которых рисую и попутно пытаюсь записать координаты в 3 часть массивов, то я никак не врублюсь как же получиться что вложенный цикл выходит больше того что выше...

var
  Form1: TForm1;
  Rectangles_x: array [1..9, 1..9, 1..16] of integer;
  Rectangles_y: array [1..9, 1..9, 1..16] of integer;

implementation

{$R *.dfm}

{$R imgs.RES}

Procedure PaintField;
const s = 0;   // начало рисования таблицы
      n = 16;  // размер квадратов
Var x1, x2, y1, y2, i, j, u: integer;
begin
with Form1.Image1.Canvas do
begin
Brush.Color:= clBtnFace;
LineTo(145,0);
LineTo(145,161);
LineTo(0,161);
LineTo(0,0);
end;

x1:= s; y1:= s; x2:= n; y2:= n;
for i:= 1 to 9 do
  begin
    for j:= 1 to 9 do
      begin
      for u:= 1 to 16 do               //вот тут  
      begin                            //основные
      Rectangles_x[i, j, u]:= x1;      //сомнения
      Rectangles_y[i, j, u]:= y1;      //возникают
      end;                             //(добавлено позже)
      Form1.Image1.Canvas.Rectangle(x1, y1, x2, y2);
      x1:= x2;
      x2:= x2 + n;
      end;
    x1:= s;
    x2:= n;
    y1:= y2;
    y2:= y2 + n;
  end;

end;

[NewLamer&Programer]

HELP !!!!!

[Serge_Bliznykov]

зачем Вы поднимаете тему? Надеетесь, так быстрее получите результат?..

попробовал Ваш код.
рисует прямоугольник заполненный клетками 9X9
что не так?

p.s.вместо двух массивов я бы рекомендовал использовать один,
типа TPoint

var
  Rectangles: array [1..9, 1..9, 1..16] of TPoint;
...
      Rectangles[i, j, u].x:= x1;
      Rectangles[i, j, u].y:= y1;

[NewLamer&Programer]

Serge_Bliznykov, да надеюсь

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Var i,j,u: integer;
begin
for i:= 1 to 9 do
for j:= 1 to 9 do
for u:= 1 to 16 do
if (x in Rectangles[i, j, u].x) and (y in Rectangles[i, j, u].y)
then MessageBox(handle,PChar('Ваше сообщение'+#13#10), PChar('Заголовок сообщения'), 48);
end;

вот как то так (MB для примера...), мне нужно ловить в какую точку тыкнул мышкой на сетке (а точнее в какой квадратик) и исходя из этого что нибудь делать, но насколько я сам же понимаю мой код делает что то не то...
з.ы. да пожалуй можно и TPoint, не знал о таком спасибо

[Serge_Bliznykov]

x in Rectangles[i, j, u].x

y in Rectangles[i, j, u].y

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

так, что ли??

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Caption := 'X = '+IntToStr(x)+' y= '+IntToStr(y)+
    ' Вы нажали на квадратик в '+ IntToStr(trunc(y div 16)+1)+'-й строке  '+
     IntToStr(trunc(x div 16)+1)+'-м столбце';
end;

[NewLamer&Programer]

смотрите:
Rectangles[i, j, u].x
в u будет записана координата x - это понятно? (или y, если это массив Rectangles[i, j, u].y) таких координат 16, т.к. сторона квадрата 16, соответственно по каждому квадрату 16 u, потом в Image1MouseDown я пишу - если X совпадает с одной из u то мне нужно будет взять координаты этого квадрата (исходя только из номера столбца и строки, x и y мне больше не нужны) и где то использовать потом (по нажатию на Image в конкретной клетке что то должно происходить)
да, и конечно y тоже должно совпадать...
п.с. может конечно для всей этой фигни существует готовый компонент, но я о таком не слышал

[NewLamer&Programer]

также возникло еще несколько вопросов другого характера, напишу их уж в этой же теме:

1. Моя попытка устроить рекурсию... знаю о ней только по наслышке короче выдает ошибку: "Left side cannot be assigned to" в месте присвоения AEnabled:= True;

Function AEnabled: Boolean;
begin
if AEnabled 
then Result:= True
else Result:= False;
end;

...

AEnabled:= True;

2. здесь что то типа секундомера надо сделать, в реале же при
Timer1.Enabled:= True; он заполняет все лабелы какими то левыми числами о_О
з.ы. да кстати при включении\выключении таймера ATime будет обнуляться? просто я даже не знаю как его тут обнулить... ведь оно должно считать...

procedure TForm1.Timer1Timer(Sender: TObject);
Var ATime: integer;
begin
ATime:= ATime + 1;

if ATime<10 then
Form1.Label6.Caption:= IntToStr(ATime); //секунды

if (ATime>9) and (ATime<60) then
begin
Form1.Label4.Caption:= IntToStr(ATime div 10); //секунды
Form1.Label6.Caption:= IntToStr(ATime mod 10); //десятки секунд
end;

if ATime>59 then
begin
Form1.Label3.Caption:= IntToStr(ATime div 60); //минуты
Form1.Label4.Caption:= IntToStr((ATime - (ATime div 60)) div 10); //десятки секунд
Form1.Label6.Caption:= IntToStr((ATime - (ATime div 60)) mod 10); //секунды
end;

end;

[Serge_Bliznykov]

по нажатию на Image в конкретной клетке что то должно происходить

пример моего код из пост #5 попробовали? Не то?

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


теперь по поводу рекурсии. Чтобы понимать рекурсию, нужно сначала понимать рекурсию.
Вы же пытаетесь использовать рекурсию НЕ понимая, что это такое!

ошибки у Вас две.
первая. Мелкая. О которой Вас уведомляет компилятор. Она к рекурсии отношения НЕ ИМЕЕТ.
представьте, у Вас есть ФУНКЦИЯ, которая вычисляет (например!) квадратный корень.
назовём её SQRT.
она где-то описана так function SQRT( real ) : real;
Вы пытаетесь написать так:

SQRT(2) := 0;
что должен сделать компилятор?! Он НЕ МОЖЕТ присвоить значению функции (результату) Ваше число. О чём он и скажет "Left side cannot be assigned to" - "нельзя присвоить левой части выражения"

ну, формально эту ошибку можно обойти так:

Function AEnabled: Boolean;
begin
if AEnabled
  then Result:= True
  else Result:= False;
end;

begin
  if AEnabled then WriteLn('True') 
                 else  WriteLn('False');

НО!!! Я не рекомендую запускать этот код. Потому как вход в функцию AEnabled есть, а выхода - нет. Она будет рекурсивно вызывать себя, пока не исчерпает все ресурсы (и приложение либо повиснет, либо выдаст ошибку об исчерпании стека)...

Что Вы вообще пытаетесь добиться такой функцией?!!!! Вообще не могу понять! ;(

по поводу таймера. На форуме эта тема уже была расмотрена и не раз.
Если вкратце - нужно использовать или системный таймер, или делать переменную ATime ГЛОБАЛЬНОЙ переменной (или, лучше, свойством класса, например в Form1 )

[NewLamer&Programer]

1. пробовал, не то
если честно (иллюстрация) я пытаюсь сделать сапера (системная виндовская игрушка)

2. просто скажите мне как мне сделать функцию типа Enabled, которая будет что то включать и выключать(по присвоении Enabled:= True/False), можно без рекурсии

3. что такое системный таймер не знаю(не sleep() часом?), что такое свойство класса тоже плохо себе представляю (примерчик бы)
проблему решил сделав переменную ATime глобальной спасибо

[BDA]

Вот заготовочка сапера (может натолкнет на какие-нибудь мысли). Захотелось тоже написать