Использующий ООП

Begin

Деструктор

Begin

Конструктор

Published

Public

Protected

Private

<Объявление закрытых полей и методов>

// Все, что объявлено здесь, может быть использовано только в данном модуле

<Объявление открытых полей и методов>

// Все, что объявлено здесь, может быть использовано

// и в данном модуле, и во всех классах-наследниках данного класса

<Объявление открытых полей и методов>

// Все, что объявлено здесь, может быть использовано везде, где виден класс

<Объявление открытых полей и методов>

end;

Всё, что объявлено в разделе published, может быть использовано везде, где виден класс.

Раздел published может присутствовать, только если включен режим «динамическая идентификация типа данных» (Run-time type information, Run-time type identification, RTTI), который позволяет определить тип данных переменной или объекта во время выполнения программы.

Режим RTTI должен быть включен с помощью ключа {$M+}.

http://www.rsdn.ru/Forum/message/704173.flat.aspx

Объявление:

constructor TList1.Create;

inherited Create;

// inherited;

pHead:= Nil;

pTail:= Nil;

nItems:= 0;

end;

Обращение:

MyList1:= TList1.Create;

Обращение происходит к методу класса.

Объявление:

destructor TList1.Destroy;

inherited Destroy;

// inherited;

end;

Обращение:

MyList1.Destroy;

Обращение происходит к методу объекта.

Пример построения линейного однонаправленного списка,

Проект строится в «DOS-овском» режиме и имеет имя Project1 (по умолчанию). Для его построения из верхнего меню следует пройти маршрутом:

File – New – Other – Console Application.

Список формируется на основе данных из текстового файла, содержащего чётное количество строк. Каждая нечётная строка содержит фамилию работника, каждая чётная – его месячный заработок.

Образец такого файла:

Inanov

Sidorov

Petrov

Petrov

Andrianov

Andreev

Yakovlev

Проект состоит из четырёх файлов, содержащих коды на языке Pascal.

Файл Project1.dpr обращается к кодам (описаниям классов), представленным в трёх файлах-«устройствах» Unit1.pas, Unit2.pas, Unit3.pas, присоединённых к проекту.

В файле Unit1.pas описан базовый класс MyList1Class, способный к формированию линейного однонаправленного списка в оперативной памяти. Каждый новый элемент списка ставится в конец списка. Назначение методов класса пояснено комментариями.

В файле Unit2.pas описан класс MyList2Class – наследник базового класса MyList1Class. Все методы базового класса сохраняют силу, а в дополнение появляются два новых метода: PrependItem и PrependFromFile. С их помощью каждый новый элемент списка ставится в начало списка.

Текст файла Project1.dpr:

program Project1;

{$APPTYPE CONSOLE}

Дата добавления: 2014-01-04