Техническая поддержка :

Современные решения

для защиты Windows программ

и восстановления исходного кода
Автор: Сергей Дьяченко. Дата публикации: 22.08.2004

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



CODE NOW!

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





Комментарии

отсутствуют

Добавление комментария


Ваше имя (на форуме):

Ваш пароль (на форуме):

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

Комментарий:





Главная     Программы     Статьи     Разное     Форум     Контакты