Пример работы с оператором with
Листинг 3.3 Пример работы с оператором with
type TDate = record // Объявляем новый тип - запись с тремя полями
Day: Integer; // Поле День Month: Integer; // Поле Месяц
Year: Integer; // Поле Год end;
var OrderDate: TDate; // Объявляем запись OrderDate begin with OrderDate do // Далее оперируем с записью OrderDate
if Month =12 then begin Month := 1;
Year := Year + 1;
end
else
Month := Month + 1; end;
Таким образом, при обращении к полям записи нам не нужно указывать имя самой записи.
Кроме обращения к полям записи, при помощи оператора доступа можно повысить удобство работы с объектами Kylix, которые мы рассмотрим во второй части книги.
Назад
Содержание
Вперед
