Перемещение даних c Uses1 в Uses2

[Олександр17]

У Uses1 есть масив мне нужно его окрить в uses2. Как ето можно сделать.
Мне надо построить график на основе масива, и я его хочу строить в нофой форме.

[Человек_Борща]

Сделать массив глобальной переменной.

var 
 hren':Array[0..ifinite] of THren';

implementation

{$R *.dfm} 

//Блаблабла код

гпа форме 2 просто прописывааешь юнит где обьявлен массив глоб. переменной и спользуешь её...

[Олександр17]

Во втором uses2 у меня получаетса что масив пустой но в первом uses1 я его заполняю перед form2.showmodal

[irt]

Сообщение от Олександр17

Во втором uses2 у меня получаетса что масив пустой но в первом uses1 я его заполняю перед form2.showmodal

Unit1:

var
  Form1: TForm1;
  s:string;
implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
s:=Edit1.Text;
Form2.ShowModal;
end;

Unit2:

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.FormShow(Sender: TObject);
begin
Form2.Label1.Caption:=s;
end;

Все нормально передаётся. При нажатии на кнопку открывается вторая форма со строкой, написанной в первой форме в Edit1. Что мешает таким же образом описать массивы?

[Sibedir]

Массив нужно объявлять только в одном юните. Типа того:

unit Unit1;
...
var 
 hren:Array[0..ifinite] of THren;
...
implementation

unit Unit2;

uses
  ..., unit1;