Иллюстрированный самоучитель по Tirbo Pascal




Программа Notebook - часть 2


WinCom2: TCommandSet = [cmOpen];

LName = 25; {Длина поля Name} 

LPhone= 11; {Длина поля Phone} 

LAddr =40; {Длина поля Addr}

LLine = LName+LPhone+LAddr; {Длина строки} 

type

DataType = record {Тип данных в файле}

Name : String [LName]; {Имя} 

Phone: String [LPhone]; {Телефон} 

Addr : String [LAddr] {Адрес} 

end; 

var

DataFile: file of DataType; {Файловая переменная}

OpFileF : Boolean; {Флаг открытого файла}

{-----------------------}

Реализация объекта TWorkWin

{-----------------------}

Constructor TWorkWin.Init(Bounds: TRect);

{Создание окна данных}

var

HS,VS: PScrollBar; {Полосы-указатели} 

Interior: PInterior; {Указатель на управляемое текстовое окно} 

begin

TWindow.Init(Bounds,0);{Создаем новое окно с рамкой} 

GetClipRect(Bounds); {Получаем в BOUNDS координаты минимальной перерисовываемой части окна}

Bounds.Grow(-1,-1);{Устанавливаем размеры окна с текстом}

{Включаем стандартные по размеру и положению полосы-указатели:}

VS := StandardscrollBar (sbVertical+sbHandleKeyBoard) ;

HS := StandardscrollBar (SbHorizontal+sbHandleKeyBoard) ;

{Создаем текстовое окно:}

Interior := New (PInterior, Init (Bounds, HS, VS) ) ;

Insert (Interior) {Включаем его в основное окно} 

end; {TWorkWin.Init}

{----------------------}

Procedure TDlgWin.HandleEvent; 

begin

Inherited HandleEvent (Event) ;

if Event. What=evCommand then

EndModal (Event. Command) 

end;

{-----------------}

Procedure TNotebook.FileOpen; 

{Открывает файл данных} 

var

PF: PFileDialog; {Диалоговое окно выбора файла}

Control: Word;

s: PathStr; 

begin

{Создаем экземпляр динамического объекта:}

New(PF, Init('*.dat','Выберите нужный файл:',

'Имя файла',fdOpenButton,0))

{С помощью следующего оператора окно выводится на экран

и результат работыпользователя с ним помещается в переменную

Control:} 

Control := DeskTop.ExecView(PF); 

{Анализируем результат запроса:} 

case Control of




Содержание  Назад  Вперед