1064 Глава 15

Метод	Описание
Remove	Удаление из списка элемента по его значению
Sort	Сортировка списка

Остальные методы наследуются от базового класса TObject.

Пример

Ниже приведен пример использования объекта типа TList для создания в па-
мяти временной базы данных из последовательности структур, содержащих фами-
лию и год рождения сотрудника. Особенности использования отдельных свойств и
методов смотрите в соответствующих справочных разделах.

// Определение типа структуры

typedef struct

{

AnsiString Name;

Word Year;

t Rec;

// Объявление указателя на структуру
Rec * PRec;

TList *MyList — new TList;     // Создается список
PRec = new Rec;                 // Выделяется место под запись
PRec->Name = "Петров";          // Заполняются поля записи
PRec->Year = 1960;

MyList->Add(PRec);      // Указатель на запись заносится в список
// Те же операции с новой записью
PRec = new Rec;

PRec->Name = "Иванов";

PRec->Year = 1950;

MyList->Add(PRec);

// Изменение года рождения — доступ к структуре через список
((Rec *)MyList->Items[I])->Year = 1970;

// Поиск в записях самого молодого сотрудника
PRec = (Rec *)MyList->Items[0] ;

forfint i = 1; i < MyList->Count; i++)

if(((Rec *)MyList->Items[i])->Year > PRec->Year)
PRec = (Rec *)MyList->Items[i];

ShowMessage("Самый молодой — " + PRec->Name);

// Освобождение памяти

forfint i = 0; i < MyList->Count; i++)
delete (Rec *)MyList->Items[i];

delete MyList;

TMetafile — класс

Инкапсулирует метафайл Win32 Enhanced
Иерархия TObject — TPersistent — TGraphic

Модуль graphics

Описание

Класс TMetafile позволяет хранить изображения, соответствующие графиче-
ским метафайлом .emf Windows. Свойства TMetafile описывают размер и характе-
ристики метафайла. Рисовать метафайлы на канве можно методами канвы Draw и