[Ankor]

Спасибо YVitaliy, Ваш пример понравился, незнаю есть лучше или нет...

А вот как в этом примере сделать, чтобы считывать код
например с метки: #Pole2 ?

Тоесть в txt файле будет к примеру несколько записей:

#Pole1
20:30:40:50:48:52:124:23:47:14:52:99:107:25:87:86: 14:11:47:44
25:34:41:57:47:58:224:73:77:54:50:49:117:27:87:88: 44:16:77:94
и таких 20 строк.


#Pole2
20:30:40:50:48:52:124:23:47:14:52:99:107:25:87:86: 14:11:47:44
25:34:41:57:47:58:224:73:77:54:50:49:117:27:87:88: 44:16:77:94
и таких 20 строк. (цифры другие естественно)


Вот код из примера:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
 Form1: TForm1;
 M: Array [1..20] of Array [1..20] of Integer;
implementation

{$R *.dfm}
function numnum(var sss:string):string;//получаем число до первого ":" и удаляем его вместе с ":" из строки
var n:integer;
begin
result:=sss;
if length(sss)<=1 then exit;
n:=pos(':',sss);//позиция ":"
if n=0 then exit;//значит последнее число
result:=copy(sss,1,n-1);//копируем число
delete(sss,1,n);//удаляем
end;
Procedure UstSob;
Var
 i,j: Integer;
begin
 For i:= 1 To 20 Do
  For j:= 1 To 20 Do M[i,j]:= 0; // Обнулим все ячейки

// M[1,1]:= $10; // установим на яч. 20х20 событие ($00-$FF)
// M[20,20]:= $20; // установим на яч. 20х20 событие ($00-$FF)


 end;
  procedure ReadFile(const FileName:string);
var F: TextFile;
 S: string;
 i,j:integer;
  Begin
AssignFile(F, FileName);
 Reset(F);
 j:=1;//По X
while (not eof(f)) do begin
 Readln(F, S);//читаем строку
for i:=1 to 20 do begin  //По Y
M[i][j]:=strtoint(numnum(s));//читаем 20 чисел из строки. Числа из строки удаляются
end;
inc(j);
 end;
 CloseFile(F);

  end;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);




Const
 a = 20;
 b = 20;
begin

 Image2.Left:= a*(X div a);
 Image2.Top:= b*(Y div b);

caption:=(format('Событие %s%d',['$',M[(X div a)+1,(Y div b)+1]]));//так быстрее проверять)


end;


procedure TForm1.FormCreate(Sender: TObject);
begin
ReadFile('1.txt'); //Читаем файл и заполняем массив
end;

end.

Подскажите пожалуйста, буду очень признателен.