Листинг 27. Создание, использование и уничтожение динамических переменных
procedureTForm1.Button1Click(Sender: TObject);var
p1,p2,p3: Integer; // указатели на переменные типа integer
Begin
// создадим динамические переменные типа integer
// (выделим память для динамических переменных)
New(p1);
New(p2);
New(p3);
р1^ := 5;
р2^ := 3;
р3^ := р1^ + р2^;
ShowMessage('Сумма чисел равна ' + IntToStr(р3^));
// уничтожим динамические переменные
// (освободим память, занимаемую динамическими переменными)
Dispose(p1);
Dispose(р2);
Dispose(р3);
End;
В начале работы процедура создает три динамические переменные. Две переменные, на которые указывают p1 и р2, получают значение в результате выполнения инструкции присваивания. Значение третьей переменной вычисляется как сумма первых двух.
Списки
Указатели и динамические переменные позволяют создавать сложные динамические структуры данных, такие как списки и деревья.
Список можно изобразить графически (рис. 80).
Рис. 80.Графическое изображение списка
Каждый элемент списка (узел) представляет собой запись, состоящую из двух частей. Первая часть — информационная. Вторая часть отвечает за связь со следующим и, возможно, с предыдущим элементом списка. Список, в котором обеспечивается связь только со следующим элементом, называется односвязным.
Для того чтобы программа могла использовать список, надо определить тип компонентов списка и переменную-указатель на первый элемент списка. Ниже приведен пример объявления компонента списка студентов:
Type
TPStudent = ^TStudent; // указатель на переменную типа TStudent
// описание типа элемента списка
TStudent = record
surname: string[20]; // фамилия
name: string[20];' // имя
group: integer; // номер группы
address: string[60]; // домашний адрес
next: TPStudent; // указатель на следующий элемент списка
End;
Var
head: TPStudent; // указатель на первый элемент списка
Добавлять данные можно в начало, в конец или в нужное место списка. Во всех этих случаях необходимо корректировать указатели. На рис. 81. изображен процесс добавления элементов в начало списка.
После добавления второго элемента в список head указывает на этот элемент
Рис. 81.Добавление элементов в список
Следующая программа (ее текст приведен в листинге 28.) формирует список студентов, добавляя фамилии в начало списка. Данные вводятся в поля редактирования диалогового окна программы (рис. 82) и добавляются в список нажатием кнопки Добавить(suttoni).
Рис. 82.Окно программы Динамический список 1
Дата добавления: 2014-12-01; просмотров: 887;