Delphi-Help

  • Increase font size
  • Default font size
  • Decrease font size
Главная Статьи Массивы Массив без ограничения типа и размера

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

Оцените материал
(0 голосов)

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

//к примеру опишем свой тип
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.
Прочитано 5942 раз

Авторизация



Счетчики