[Ankor]

Здравствуйте.
Подскажите пожалуйста на нижеприведённом коде:
У меня сделана сетка (30х20) ячеек.
Как сделать, чтобы данные (целые числа) для каждой ячейки хранились в текстовом файле через двоеточие, и при клике на определённую ячейку они выводились в Label?
Если в файле записано число 0, то картинка перемещаться не должна.

Код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117

unit grid_;   interface   uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, ExtCtrls, jpeg, pngimage;   type   TForm1 = class(TForm)     PaintBox1: TPaintBox;     Image1: TImage;     Button1: TButton;     CheckBox1: TCheckBox;     Image2: TImage;     Image3: TImage;   procedure PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;       Shift: TShiftState; X, Y: Integer);       procedure PaintBox1Paint(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   M: Array [1..600] of Array [1..600] of Byte;     Form1: TForm1;   x0,y0:integer;  dx,dy:integer;  h,w:integer;  x,y:integer;    lx,ly:real;  dlx,dly:real;  cross:integer;  dcross:integer;  i,j: Integer;  implementation   {$R *.DFM}   Procedure UstSob; Var  i,j,z1: Integer; begin  For i:= 1 To 600 Do   For j:= 1 To 600 Do M[i,j]:= 0; // Обнулим все ячейки  M[1,1]:= $1;  M[30,20]:=$2;   end;   procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); var h1: integer;   Const  a = 33;  b = 20;   begin UstSob; // ShowMessage('Ячейка = ['+IntToStr((X div a)+1)+', '+IntToStr((Y div b)+1)+']');   Image2.Left:= a*(X div a);Image2.Top:= b*(Y div b)+111;  if M[(X div a)+1,(Y div b)+1] = $1 Then begin Image3.Left:= a*(X div a);Image3.Top:= b*(Y div b)+111;end;  if M[(X div a)+1,(Y div b)+1] = $2 Then begin Image3.Left:= a*(X div a);Image3.Top:= b*(Y div b)+111;end;    end;    procedure TForm1.PaintBox1Paint(Sender: TObject); begin  x0:=0; y0:=400;  dx:=33; dy:=20;  dcross:=1;  dlx:=1;  dly:=1.0;  h:=400;  w:=991;   with PaintBox1.Canvas do  begin  cross:=dcross;  Pen.Color:=clMaroon;    MoveTo(x0,y0); LineTo(x0,y0-h);    MoveTo(x0,y0); LineTo(x0+w,y0);    x:=x0+dx;    lx:=dlx;    repeat    cross:=cross-1;      if cross = 0 then      begin      cross:=dcross;      end;      Pen.Style:=psSolid;      MoveTo(x,y0);LineTo(x,y0-h);      Pen.Style:=psSolid;      lx:=lx+dlx;      x:=x+dx;    until (x>x0+w);    y:=y0-dy;    ly:=dly;    repeat      Pen.Style:=psSolid;      Pen.Color:=clMaroon;      MoveTo(x0,y); LineTo(x0+w,y);      Pen.Style:=psSolid;      y:=y-dy;      ly:=ly+dly;    until (y<y0-h);   end; end;   end.