Куда писать type в Delphi7

[Stilet]

Ну я тебе точно говорю - старые советские книги, это золото.

[zvygin1964]

А в чём неожиданность? В подписи под аватаркой всё написал. Аватарку поставил какую надо:"За помощь будет вам баба и пиво с раками". Снова написал вопрос не в тот раздел?
Тогда куда же переложить http://programmersforum.ru/showthrea...=267214&page=6 ?
Может в раздел "свободное общение"?

[Stilet]

А в чём неожиданность?

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

[Вадим Мошев]

А я, честно говоря, сам до этого догадался. Не хвастаюсь. Да и слово Interface об этом говорит.

[zvygin1964]

Получилось так:

unit Unit1;


interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

  type                     //  В этом месте правильно?
  Tcoordinates = record    //http://cybern.ru/delphi-types.html
  X: integer;
  Y: integer;

  end;

var
  Form1: TForm1;
  bmps: array of TBitmap;
  coordinates: array [1..10000] of Tcoordinates;


  const
  bmp_cnt=5;//не более числа файлов в ресурсе или равно
 implementation

{$R *.dfm}
{$R Resources.RES}

procedure TForm1.FormCreate(Sender: TObject);
 var
  i: integer;
const
  res_name='img';
begin
    SetLength(bmps, bmp_cnt);
  //SetLength(coordinates,10000);  // [Error]  Incompatible types
  for i:=0 to bmp_cnt-1 do
  begin
      bmps[i]:=TBitmap.Create;
    with bmps[i] do
    begin
      LoadFromResourceName(HInstance,res_name+IntToStr(i+1)); //img1, img2 .. img30
      Transparent:=true;
      TransParentColor:=Canvas.Pixels[1,1];
    end;
  end;
  coordinates[1].X:=100; //например для  n:=[1]
  coordinates[1].Y:=180;
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Form1.Image1.canvas.Draw(coordinates[1].X,coordinates[1].Y,bmps[1]);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  var
  i: integer;
begin
  for i:=0 to bmp_cnt-1 do
  begin
    bmps[i].Free;
  end;
  bmps:=nil;
//coordinates:=nil;// [Error]Incompatible types:'Array' and 'Pointer'
end;

end.

[newerow1989]

// В этом месте правильно?

Конечно, правильно!