Массив без ограничения типа и размера

Материал из 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