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

[zvygin1964]

Хочу так:

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
  private
    { Private declarations }
  public
    { Public declarations }

    procedure Draw_a_picture30(var Form3.StringGrid1.Cells[1,2]:TStringGrid; Form3.StringGrid1.Cells[1,3]:TStringGrid);
  end;

var
  Form1: TForm1;

implementation

 uses Unit3;
 {$R *.dfm}

Пока работает так:

public
     procedure Draw_a_picture30(var background: String
                                 imagename1:  String; X_bitmap1,  Y_bitmap1:  Integer;
                                 imagename2:  String; X_bitmap2,  Y_bitmap2:  Integer;
                                 //.........................
                                 imagename29: String; X_bitmap29, Y_bitmap29: Integer;
                                 imagename30: String; X_bitmap30, Y_bitmap30: Integer);
    { Public declarations }
  end;

Как обойтись без глобальных переменных?

[Аватар]

Что процедура должна делать?

[zvygin1964]

Рисовать битмапы.

begin
Back.LoadFromResourceName(HInstance,background);// Загрузка в BitMap выбранного графического файла
  Form4.Image1.canvas.Draw(0,0,Back); // Перенос изображения на канву формы
  // выведем рисунок
  bitmap.LoadFromResourceName(HInstance,imagename1);
  bitmap.Transparent:= True; //
  bitmap.TransParentColor:= bitmap.canvas.pixels[1,1];
  X_bitmap:= X_bitmap1  ;
  Y_bitmap:= Y_bitmap1 ;
  // выведем рисунок
  Form4.Image1.canvas.Draw(X_bitmap,Y_bitmap,bitmap);

//...........................

  bitmap.LoadFromResourceName(HInstance,imagename30);
  bitmap.Transparent:= True;
  bitmap.TransParentColor:= bitmap.canvas.pixels[1,1];
  X_bitmap:=X_bitmap30 ;
  Y_bitmap:=Y_bitmap30 ;
    // выведем рисунок
  Form4.Image1.canvas.Draw(X_bitmap,Y_bitmap,bitmap);
end;

[Аватар]

То есть процедуре передается 30 имен ресурсов и 30 пар координат отрисовки? background: String это что? Про какие глобальные переменные речь?

[zvygin1964]

Да, Bitmap уже больше чем 30. Это пока только для одной из форм... А имен ресурсов и пар координат отрисовки ещё больше. Пока даже не предполагаю сколько.
Можно .exe глянуть тут http://rghost.ru/6TwJRxqjr

[Arigato]

Массив битмапов заведите.

[zvygin1964]

Когда буду менять, то запутаюсь в номерах. И так по названиям глобальных переменных мозги взрываются. Хотел в StringGrid1 подписывать во время их использования.

[Аватар]

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

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

[kropotkina-alice]

Прошу прощения...
Во-первых - с этой "кучей" битмапов ваша программа будет вести себя как беременный гиппопотам...
Совет номер один - если логика программы позволяет, перенесите всю графику в память, так её обработка станет гораздо быстрее.
Второе. Вы зря полагаете, что самостоятельные процедуры обработки графики в каждой вашей юните - это зло. Это добавит минимум объёма программе, а вас избавит от многих "геморроидальных" проявлений...

[zvygin1964]

Сообщение от kropotkina-alice

перенести графику в память...

Как это попросить у Google ?

kropotkina-alice, вы имели ввиду:
Из .res перевести все изображения в Bitmap; Каждый Bitmap превратить в массив пикселей; Преобразовывать каждый массив пикселей обратно в Bitmap; А затем выводить на TImage ?

Или
pictures: array [1..1000] of TBitMap;// и дополнительный к нему массив:
coordinates: array : Array[1..100,1..100] of Integer;//координаты выводимых рисунков

Аватар предложил:
pictures: array [1..1000] of String;// и дополнительный к нему массив:
coordinates: array : Array[1..100,1..100] of Integer;//координаты выводимых рисунков