Delphi World - Массив без ограничения типа и размера
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Массив без ограничения типа и размера

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

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

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


//к примеру опишем свой тип
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 World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования