Задание массива

[Alex Cones]

Сколько дельфей занимаюсь, еще ни разу не задумывался.

А есть ли способ задать массив почти разом?

В смысле не так:

Arr[0,0] := 1;
Arr[1,0] := 23;
...

А сразу или почти сразу?

Типа Read и Data в бейсике.

P.S. Есть только одна идея: написать функу, в которую толкать строку, а строку побайтно распихивать автоматически по ячейкам.

[Grag]

Сообщение от Alex Cones

P.S. Есть только одна идея: написать функу, в которую толкать строку, а строку побайтно распихивать автоматически по ячейкам.

Равносильно задать массив константно!!!

[Alex Cones]

Равносильно задать массив константно!!!

Вообще-то меня интересует задание массива не совсем в var

[spamer]

Alex Cones, а можно подробнее? А то самому стало интересно, а что надо - не пойму.

[Grag]

Процедура FillChar заполняет раздел памяти Buffer тем же самым байтом или символом FillValue FillCount раз.

Это используется, преимущественно, для инициализирования массивов чисел.

[Alex Cones]

Alex Cones, а можно подробнее? А то самому стало интересно, а что надо - не пойму.

Пожалуйста:
Есть некий массив. Вместо того, чтобы писать:

A[0,0] := 1;
A[0,1] := 2;
A[0,2] := 1;
A[0,3] := 45;
...
A[32,32] := 5;

Должен быть вариант, чтобы заполнить массив разными значениями в одно два "касания". Типа как в бейсике:

10 READ A, B, C, D, E, F, G, H
20 ...
30 ...
40 DATA 50, 34, 45, 34, 2, 3, 4

Или другими словами:

Var A:Array[0..1,0..1] of Integer  = ((4, 5),(4,6));

Только за пределами раздела Var.

[Somebody]

type qq = array [0..1] of Integer;
const ww: qq = (1, 2);
var arr: qq;
...
arr := ww;

?

[Grag]

Somebody, уже предлагалось... См. пост #2...

[Somebody]

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

Somebody, уже предлагалось... См. пост #2...

В посте 2, как я понял, предлагалось задать сам этот массив константно, а я предлагаю сделать копию некоторого константного массива куда надо.

[Grag]

Аха, а потом эту самую копию менять ручками. В чем разница-то? Только в том, что копию можешь менять?!