Типизированное объявление массива длиной N

[Fedorgrif]

Как задать массив типизированной константой, если его длина не определена?

[Алексей_2012]

type 
TRec=record
pole1,poleN:word;
end;

var
array_records: array of TRec;


button1click();
var count_record:word;
begin
showmessage('Input mass length to edit1...');
count_record:=strtoint(edit1.text);
setlength(array_records,count_record)
...
array_records:=nil; //освобождаем память.
end;

Оно, не?

ЯЗЫК какой?