Передача параметров в procedure по ссылке Delphi7

[zvygin1964]

Да, спасибо. Так помогло:

unit Unit1;  //http://www.cyberforum.ru/delphi/thread1418862.html
// помог   x128 . Я ему должен.


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;

var
  Form1: TForm1;
  bmps: array of TBitmap;
  const
  bmp_cnt=5;//не более числа файлов в ресурсе или равно
 
implementation

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

procedure TForm1.FormCreate(Sender: TObject);
 var
  //bmps: array of TBitmap;
  i: integer;
const
 // bmp_cnt=5;//не более числа файлов в ресурсе или равно
  res_name='img';
begin
  SetLength(bmps, bmp_cnt);
  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;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Form1.Image1.canvas.Draw(0,0,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;  
end;

end.

[newerow1989]

Пожалуйста!

[zvygin1964]

Можно рисовать один битмап в процедуре, передавая имя и координаты, обращаться в цикле.

Рисуем это:

[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 }
    procedure Draw_a_picture30(X:Tcoordinates; Y:Tcoordinates; bmps:array of TBitmap);
  end;

  type
  Tcoordinates = record
  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);
   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; // так работало
  coordinates[1].Y:=180; //например для  n:=[1]
  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;
 end;

procedure TForm1.Draw_a_picture30(X, Y: Tcoordinates; bmps: array of TBitmap);
  var
  i: integer;
begin
   i:=2;
 Form1.Image1.canvas.Draw(coordinates[i].X,coordinates[i].Y,bmps[i]);
end;

end.

[Аватар]

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 }
    procedure Draw_a_picture30(coordinates: TPoint; bmps: TBitmap);

  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  bmps: array of TBitmap;
  coordinates: array of TPoint;


  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, bmp_cnt);
   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;
    coordinates[i].X:=100; // здесь какая-то формула для вычисления
    coordinates[i].Y:=180; //здесь какая-то формула для вычисления
  end;
  end;

procedure TForm1.Button1Click(Sender: TObject);// так работало
begin
//  Form1.Image1.canvas.Draw(coordinates[1].X,coordinates[1].Y,bmps[1]);
  Draw_a_picture30(coordinates[0],bmps[0]);
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;
 end;

procedure TForm1.Draw_a_picture30(coordinates: TPoint; bmps: TBitmap);
  var
begin
 Form1.Image1.canvas.Draw(coordinates.X,coordinates.Y,bmps);
end;

end.

[newerow1989]

type
  Tcoordinates = record
    X: integer;
    Y: integer;
  end;

  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 }
    procedure Draw_a_picture30(X:Tcoordinates; Y:Tcoordinates; bmps:array of TBitmap);
  end;

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

и так далее по тексту кода