Массив из record

[flug]

Пытаюсь сделать массив из record, но что-то явно не так делаю, так как при нажатии на Button1 появляется сообщение Acsess Violation:
Вот кусочек моего кода:

type TDataList = Record
    Name : string;
    SubData  : string;
    Nik  : string;
  end;

var
  Form1: TForm1;
  DList : array of TDataList;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  DList[0].Name:='Вася';
  DList[0].SubData:='неизвестно';
  DList[0].Nik:='хряк';
end;

[Toxa]

массив динамический, ему надо задать размер
пример

setlength(DList,1)

[Grag]

Вот это - DList : array of TDataList; - есть описание динамического массива... Прежде чем с ним работать, его нужно создать, т.е. задать размерность SetLength(DList,"Size"); а уж потом работать с ним. Отсюда и шибка доступа к несуществующему элементу массива Acsess violation
Немного опоздал, однако...

[raxp]

...массив-то динамический и пока-что не задан setlength

[eoln]

Перед Васей надо размер динамического массива установить: SetLength(DList, 1).
Крайне желательно в записи ограничивать длину строк, например, Name : string[15]; - это на будущее, вдруг захочется сохранять в файл.

P.S. Пока писал, все опередили

[flug]

Всeм огромноe спaсибо! Всeм нaжaл нa вeсы.