Пришло от читателя письмо:
Я тут посмотрел Ваши советы, и понял: это здорово! мне понравилось. Но в них
я не нашел (может невнимательно смотрел?) возможности работать с массивами
неограниченными по размеру и типу и вообще. Это работает начиная с Delphi 4
| |
|
//к
примеру опишем свой тип
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 | 
