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

Delphi , Синтаксис , Массивы

Автор: Сергей Дьяченко

Пришло от читателя письмо:

Я тут посмотрел Ваши советы, и понял: это здорово! мне понравилось. Но в них я не нашел (может невнимательно смотрел?) возможности работать с массивами неограниченными по размеру и типу и вообще.

//к примеру опишем свой тип
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.

В статье автор описывает способ создания неограниченного по размеру и типу массива в Delphi, используя рекорды и функцию SetLength для управления динамической памятью.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Массивы ::