объявление и присвоение значения массивам

[Illusiony]

Мне необходимо создать массив из других массивов с разной длинной и сразу его заполнить (значения массива никогда не будут изменяться)

Можно создать отдельные массивы и сразу их заполнить вот так :

aa: array[1..10] of integer = (0,0,0,0,0,0,0,0,0,0);

Но мне необходимо чтобы множество таких массивов разной длинны
Что то типо такого:

aa[1]=(0,0,0,0,0,0,0,0,0,0);
aa[2]=(0,0,0,0,0,0,0,0,0,0,8,9,6,5);

и так далее.
Число массив также известно.
Как обяъвить такой массив, если вообще это возможно на delphi 7

[Аватар]

Создать динамически

var a: array of array of Integer;
    i: Integer;
...
  SetLength(a,2);
  SetLength(a[0],3);
  for i:=0 to High(a[0]) do a[0,i]:=i;
  SetLength(a[1],5);
  for i:=0 to High(a[1]) do a[1,i]:=10+i;

[Illusiony]

Сообщение от Аватар

Создать динамически

var a: array of array of Integer;
    i: Integer;
...
  SetLength(a,2);
  SetLength(a[0],3);
  for i:=0 to High(a[0]) do a[0,i]:=i;
  SetLength(a[1],5);
  for i:=0 to High(a[1]) do a[1,i]:=10+i;

Да, но важно чтобы можно было заполнить массив одной строчкой примерно такого вида, есть ли такой способ? или ручками каждый элемент отдельно вводить?:

(0,0,0,0,0,0,0,0,0,0,8,9,6,5);

число значений отдельных массив может составлять порядка сотни .

[Аватар]

Нули можно и одной строчкой циклом.
Разные значения? Держи во внешнем файле или базе и загружай в массивы

[Illusiony]

Нет там без закономерностей значения до от 0 до приблизительно 700. Не внешний файл это тоже самое что в коде, еще больше кода и так костылей хватает.
То есть более простых способов не существует?

И вообще в delphi 7 нельзя присваивать значения массивам в виде например в обработчике открытия формы

 
aa:=(0,0,0,0,0,0,0,0,0,0,8,9,6,5);

а только

aa[1]=0;
aa[2]=4;
aa[3]=56;

?

[evg_m]

type
  am =array of integer;

var a: array[1..3] of am;

  procedure SetSubArray(i: integer; s: array of integer);
  var
    j: integer;
  begin
    Setlength(a[i], length(s));
    for j:=0 to length(a[i])-1 do
      a[i][j]:=s[j];
  end;
begin
  SetSubArray(1, [1,2,3,4] );
  SetSubArray(2, [1,3,6] );
  SetSubArray(3, [6, 8] );

[Illusiony]

evg_m,
Большое спасибо, то что надо.
Еще раз хочу выразить благодарность форуму и его участникам. Быстро отвечаете и по делу. Без вас никак , если не учился на программиста и нужно что конкретное.

Возникла необходимость доступа к SetSubArray из модальной формы и изменения значения массивов во время работы программы

type am =array of integer;
var a: array[1..3] of am;

Как сделать глобальными?

var a: array[1..3] of am;

Можно разместить в public, но как до этого определить

 type am =array of integer;

?

[northener]

type am =array of integer;

Такое объявление может располагаться в любом месте модуля после слова interface и до последнего end с точкой, либо до секции инициализации, если она есть в паскалевском или дельфийском виде.

[Illusiony]

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

type am =array of integer;

Такое объявление может располагаться в любом месте модуля после слова interface и до последнего end с точкой, либо до секции инициализации, если она есть в паскалевском или дельфийском виде.

Спасибо , но у меня сложилась следующая ситуация:

В данный момент

var a: array[1..3] of am;

объявлено сдесь

Var
Form1:TForm1
var a: array[1..3] of am;

Далее в процедуре открытия формы я с помощью SetSubArray создаю нужные массивы.
В модальной форме читаю эти массивы, все работает.

Теперь , как я уже спрашивал понадобилась возможность изменять массивы, создавать новые.

Но я не могу получить доступ к процедуре SetSubArray из модальной формы.

Задаю так :

Form1.SetSubArray(1, [1,2,3,4] );

Я так понимаю что раз я объявляю

var a: array[1..3] of am;

значит количество массивов я уже не могу поменять в процессе выполнения программы?

Остается только доступ к имеющимся массивам.

[Sibedir]

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

значит количество массивов я уже не могу поменять в процессе выполнения программы?

так ведь

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

...(значения массива никогда не будут изменяться)
...
Число массив также известно.
...

------------------------------------------------------------------------
Вообще, хотя evg_m и указал на хороший способ, но если 'значения массива никогда не будут изменяться' то лучше константы не придумаешь. Почему нельзя сделать так

const
  aa_1: array [1..10] of integer = (0,0,0,0,0,0,0,0,0,0);
  aa_2: array [1..14] of integer = (0,0,0,0,0,0,0,0,0,0,8,9,6,5);

------------------------------------------------------------------------

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

число значений отдельных массив может составлять порядка сотни

Я как-то еще в универе для курсовой делал программку. Нужно было несколько таблиц из СНиП'ов и ГОСТ'ов забить в двухмерные массивы. Для прикола написал программу, которая из текстового файла делала Паскалевский модуль. Имя массива - это имя файла. Значения из

Сообщение от Tabl_1.txt

1 2 3 4 5
11 22 33 44 55

преобразовывались в

Tabl_1: array [1..2,1..5] of integer = ((1,2,3,4,5),(11,22,33,44,55));

------------------------------------------------------------------------
Но раз вам нужно изменять количество и содержимое массивов, то

Сообщение от Аватар

...Держи во внешнем файле или базе и загружай в массивы

А если серьезно то: БД, БД и только БД.
Вы, надеюсь, там не сложные математические выражения с матрицами вычисляете.