как заполнить трехмерный массив процедурой?

[MyLastHit]

Здравствуйте. У меня имеется трехмерный массив:

var mass:array[1..8,1..14,1..10] of string;

Занести в него нужно по меньшей мере 1500 строк. Понятное дело, что такая красота в основном коде никому не нужна, поэтому решил вынести в отдельный юнит и написать процедуру zapolnenie(mass[i,j,k]); в этом Юните.
Пишу:

Procedure zapolnenie(mymass:array[1..8,1..14,1..10] of string);//тут ругается, почему?
begin
mymass[1,1,1]:='строка 1';
mymass[1,1,2]:='строка 2';
mymass[1,1,3]:='строка 3';
....
end;

Вызывать вообще не имею представления как... Тут цикл понадобится?

[Пепел Феникса]

type
 TMyArray=array[1..8,1..14,1..10] of string;

var mass:TMyArray;
Procedure zapolnenie(mymass:TMyArray);

[Serge_Bliznykov]

добавлю к абсолютно правильному совету Пепла Феникса

в процедуре надо описать массив через VAR:

Procedure zapolnenie(var mymass:TMyArray);

Сообщение от MyLastHit

Вызывать вообще не имею представления как... Тут цикл понадобится?

Ну, это Вам виднее. от данных зависит.
Если возможно через цикл сделать заполнение - то обязательно через цикл и делайте.
А если нельзя - значит прийдётся или описывать все Ваши 1500 строк
или выносить строки во внешние ресурсы (например, в текстовый файл. или текст сделать ресурсом приложения)...
или вообще воспользоваться базой данных.

[MyLastHit]

Спасибо большое всем! Описал весть свой массив, внес записи вручную. Только проблема - не могу обратиться к Этой процедуре(Unit2) через свой основной Unit1.
Делаю так:
В Unit2 прописал процедуру после type массива.
В Unit1 делаю:

type
TMyArray=array[1..8,1..14,1..10] of string;
var 
varianti:TMyArray;

Потом вызываю в онкриэйт формы:

zapolnenie(varianti);

Но ошибка:

[Error] Unit1.pas(360): Types of actual and formal var parameters must be identical

С указателем на ошибку в строке:

zapolnenie(varianti);

Я не правильно что-то делаю? Подскажите пожалуйста как будет правильно...

[Valio]

Совет из поста номер 3 не подошло?

[MyLastHit]

Совет из поста номер 3 не подошло?

Ну не надо пустых ответов...
пост 3 дает информацию о вариантах вызова процедуры, я выбрал вариант, который мне нужен, теперь мне нужно описать его кодом, чего как видно у меня не получается. В чем ошибка я не понимаю... Разъясните кто знает...

[Пепел Феникса]

используйте тот же тип переменной TMyArray, я же показывал.

Serge_Bliznykov, спасибо за поправку, пропустил передачу по ссылке.

[MyLastHit]

Ну я же его и использую! Я же описал проблемму...

[Error] Unit1.pas(360): Types of actual and formal var parameters must be identical

Я же написал, что делаю все точно так же как ты говоришь. Обьявил в типах такой же массив, обьявил в варах ссылку на этот тип. Потом в процедуру передаю эту переменную. Но эта ошибка лезет всеравно...

[Valio]

Кароче делаешь так:

1. Создаёшь Unit3 где будешь хранить все свои типы, константы и пр.
Для нашего случае там будет такой код:

unit Unit3;

interface

type
  TMyArray = array [1..8, 1..14, 1..10] of string;

implementation

end.

2. Unit2 будет содержать процедуры. Код его такой:

unit Unit2;

interface

Uses Unit3;

Procedure zapolnenie(var mymass : TMyArray);

implementation

Procedure zapolnenie(var mymass : TMyArray);
begin
......
end;

end.

3. Unit1 главный юнит и там нужно писать так:

uses .... Unit2, Unit3;

......
var varianti : TMyArray;

.....

Вызов:
zapolnenie(varianti);

Так должно работать. Покрайней мере хранить все свои типы, константы и пр в отдельном Юните это правильнее.

[MyLastHit]

Спасибо, Valio!