Блог программистов

unit MainUnit;

interface

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

type
  TPole = Record
    Obj: Byte;
    Turn: Byte;
    Status: Byte;
  End;

  TMainForm = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    Procedure SetPole;
  public
  end;

var
  MainForm: TMainForm;
  Pole: Array[1..9, 1..10] Of TPole;
  Image: Array[1..9, 1..10] Of TImage;

implementation

{$R *.dfm}

Procedure TMainForm.SetPole;
Var
  X, Y: Byte;
Begin
  For X:=1 To 9 Do
    For Y:=1 To 10 Do
      Image[X,Y]:=TImage.Create(Owner);

  For X:=1 To 9 Do
    For Y:=1 To 10 Do
    Begin
      Image[X,Y].Height:=40;
      Image[X,Y].Width:=40;
    End;

  //Image[1,1].Picture:=TPicture.Create; - эта сторчка ничего не даёт.
  Image[1,1].Left:=5;
  Image[1,1].Top:=5;
  Image[1,1].Picture.LoadFromFile('img/000.ico');

  {For X:=1 To 9 Do   это тоже ничего.
    For Y:=1 To 10 Do
      Image[X,Y].Visible:=True;}
End;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  SetPole;
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
Var
  X, Y: Byte;
begin
  For X:=1 To 9 Do
    For Y:=1 To 10 Do
      Image[X,Y].Free;
end;

end.