Подскажите, как решить вот такую вот задачку:
Есть масив, состоящий из записей
Code: Select all
a_rec = record
name:string; //строковый элемент (длина рандомная)
tip:word;
name1:string; //строковый элемент (длина рандомная)
name2:string; //строковый элемент (длина рандомная)
end;
var
А:array of a_rec;
Code: Select all
А:=['Lower',$1BF2,'15','20', //типа
'100',$1EB8,'5','8', //новая строка - новый элемент масива
'of the ',$27AC,'mage','12']; //состоящий из записи
как это делалось, например, для обычного масива:
Code: Select all
bag_ar:=[$400E98C0,$400E98BE,$400E98BF,$400E98BD,$400E98B9];