Массив без ограничения типа и размера
Пришло от читателя письмо:
Я тут посмотрел Ваши советы, и понял: это здорово! мне понравилось. Но в них я не нашел (может невнимательно смотрел?) возможности работать с массивами неограниченными по размеру и типу и вообще. Это работает начиная с Delphi 4
//к примеру опишем свой тип type MyType=record
zap1:longword;
zap2:char;
zap3:string[10];
end;
//опишем НЕОГРАНИЧЕННЫЙ массив переменный типа MyType //хотя, может использоваться абсолютно любой var m:array of MyType; .... procedure TForm1.Button1Click(Sender: TObject); var i:byte; begin for i:=0 to 9 do // нумерация элементов начинается с нуля! begin
SetLength(m,Length(m)+1); // увеличение длины массива на 1
m[i].zap1:=i; // присвоение
m[i].zap2:=chr(i); // полям
m[i].zap3:=inttostr(i); // значений
end;
end;.... SetLength(m,0); // освобождение памяти end. |
C Уважением,
Сергей Дьяченко, sd@arzamas.nnov.ru
[000729]