Присвоение Массивов Опции

[sheka]

type
  TWind = array [1..4] of byte;
  TP = array[1..4,1..2] of TWind;

var p:tp;

begin
  p[1,1]:=TWind(10,18,30,20);
end.

Как можно осуществить такую операцию? В делфи с TPoint так вроде делалось. И as как-то никуда не лепится.
Это побочный эфект от того, что я не могу это задать в константах, но тоже мне интересно. И скажите, пожалуйста, как все таки это делается в константах.

[volvo]

Это побочный эфект от того, что я не могу это задать в константах

При чем здесь побочный эффект? Просто Паскаль не позволяет вот так свободно обращаться с массивами. Другие языки - позволяют, скажем та же Ада:

p(1, 1) := (10, 18, 30, 20);

будет прекрасно работать.

В делфи с TPoint так вроде делалось

В Дельфи делалось, потому что есть функция Point, которая возвращает структуру TPoint, поэтому там - можно. Здесь (в Паскале) нельзя, если это не 32-битный компилятор.

как все таки это делается в константах.

Скажем, если надо обнулить весь массив P, а в первый элемент запихнуть то значение, которое ты привел выше - то можно сделать и так:

type
  TWind = array [1..4] of byte;
  TP = array[1..4,1..2] of TWind;

const
  p: tp =
  (
    ((10, 10, 30, 20), (0, 0, 0, 0)),
    (( 0,  0,  0,  0), (0, 0, 0, 0)),
    (( 0,  0,  0,  0), (0, 0, 0, 0)),
    (( 0,  0,  0,  0), (0, 0, 0, 0))
  );

[Lapp]

При чем здесь побочный эффект?

Это побочный эффект Шекиного способа излагать мысли )). Он имел в виду, что это типа его fault. И он прав, думаю.. ))

Я бы сделал так..
Завел бы переменную типа tWind (описал бы как типизированную константу). Потом обнулил бы весь массив p с помощью FillChar. И в конце присвоил бы первому элементу заданное значение.

const
  Wind0: tWind = (1,2,3,4);

begin
  FillChar(#0,p,SizeOf(p));
  p[1,1]:=Wind0;