Версия для печати темы

Автор: compiler 11.08.2007 22:35

Добрый день!
Мне необходим массив записей, при этом он должен быть константой, но у меня возникают некоторые трудности в его объявлении. Помогите пожалуйста.

Автор: klem4 11.08.2007 22:40

type
  trecord = record
    x: integer;
    s: string;
  end;

  tRecarray = array [1..2] of trecord;

const
  my_rec: tRecarray = ((x:3; s:'text1'), (x:5; s:'text2'));

?

Автор: compiler 11.08.2007 22:45

так и я могу
а нельзя ли совместить часть type и const, скажем так
const my_rec: array [1..2] of record x: integer; s: string = ((x:3; s:'text1'), (x:5; s:'text2')) ; ?

Автор: volvo 11.08.2007 22:51

const
  my_rec:
    array [1..2] of record
      x: integer;
      s: string
    end = (

      (x:3; s:'text1'),
      (x:5; s:'text2')
    ) ;

begin
  writeln(my_rec[2].x);
end.

Так?

Автор: compiler 11.08.2007 23:00

так! спасибо...