Массив без ограничения типа и размера
Материал из DRKB
Массив без ограничения типа и размера[править | править код]
// к примеру опишем свой тип
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
Сборник Kuliba
Source: Взято из Советов по Delphi от Валентина Озерова
ID: 00244