инициализация массива структур

[drvlas]

Здравствуйте!

Пытаюсь найти красивое решение для сабжа.
Определяю тип данных:

TYPE PARSCRIPT :
STRUCT
   Nu:      INT;
   Po:      INT;
   Md:      INT;
   No:      INT;
   Mi:      DINT;
   Ma:      DINT;
   Na:      STRING(10);
END_STRUCT
END_TYPE

В области переменных пробую создать экземпляр и инициализировать его:

VAR_GLOBAL CONSTANT
a_psPar: ARRAY [0..1] OF PARSCRIPT :=
(Nu:=101, Po:=2, Md:=0, No:=0, Mi:=0, Ma:=9999, Na:='Text1'),
(102, 2, 0, 0, 0, 9999,'Text2');
END_VAR

Первая строка инициализации массива компилируется нормально. Но у меня в массиве будет до сотни таких структур! Ручки облом натруживать многочисленными Nu:= и так далее.
Пробую выбросить присвоения и перечислить начальные значения просто в том порядке, что в объявлении (строка 2) - не компилирует. РУГАИЦЦА!

Вот и 2 вопроса:
Главный:
1) Можно ли все же инициализировать без явных присвоения (по типу второй строчки)

2) В случает невозможности - запасной вариант. Придется использовать корявые отдельные массивы. Что-то вроде такого:

VAR_GLOBAL CONSTANT
   aiPar: ARRAY [0..3, 0..1] OF INT :=
101, 0, 0, 0,
102, 0, 0, 0;
   adiPar: ARRAY [0..1, 0..1] OF DINT :=
0, 99999,
0, 99999;
   astPar: ARRAY [0..1] OF STRING(10) :=
'Text1',
'Text2';
   NU:   INT := 0;
   PO:   INT := 1;
   MD:   INT := 2;
   NO:   INT := 3;
   MI:      INT := 0;
   MA:      INT := 1;
END_VAR

И потом при вызове использовать обращения к разным массивам:

PROGRAM PLC_PRG
VAR
   i:      INT;
   di:      DINT;
   st1:   STRING(10);
END_VAR

i    := aiPar[ NU, 0];
di   := adiPar[ MI, 1];
st1   := astPar[ 0];

Такой подход мне не нравится еще и потому, что при большом реальном массиве трудно будет без ошибок менять число параметров (размер массива), отслеживать изменения в их начальных значениях и прочее и прочее... Хотелось бы все же иметь дело с массивом структур.

Подскажите, плз, как же изящно инициализировать?
Спасибо!

[drvlas]

Спасибо за быстрый ответ!

Не очень понял про идеологию...
Но обратимся к примеру.

Если я правильно понял, саму структуру ты создаешь аналогично. Но не инициализируешь ее при объявлении.

var_global retain
data : array[0..max_index] of mystruct;
count : word := 0;
end_var

А потом создаешь функцию для инициализации одного элемента массива структур и при первом запуске программы вызываешь ее 100 раз, задавая в аргументах те константы, которые я вношу в текст инициализации.
Так?

(* A B ..... *)
set( a0, b0, …….. );
set( a1, b1, …….. );
…

То есть визуально выглядит практически так же, как я и хотел: огромный блок текста, в котором с минимальными "накладными" затратами (слово set и 2 скобки) стройными столбцами описаны начальные значения.

Мне кажется, что это замечательное решение! Во всяком случае, значительно красивее, чем записывать
a:=a0, b:=b0...

Тем более, что на самом деле имена элементов структуры у меня не такие короткие, как в примере, а осмысленные (типа Point, Node и тому подобное) - их повторять 100 раз точно обломно.

Большое спасибо!

[BETEP]

Но у меня в массиве будет до сотни таких структур! Ручки облом натруживать многочисленными Nu:= и так далее.

А зачем ручки натруживать, есть таблицы вроде экселя, и функция СЦЕПИТЬ, кто сказал что большой нудный код нужно обязательно делать в неудобных редакторах?
Ужасную кучу строк типа
(Nu:=101, Po:=2, Md:=0, No:=0, Mi:=0, Ma:=9999, Na:='Text1'),
в экселе можно сотворить менее чем за минуту,
из таблицы с кучей значений типа 101;2;0;0;0;9999;Text1

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

[drvlas]

ну вы в самом деле микроскопом гвозди забиваете

вот такой я упрямый парень

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