Delphi 4 новые возможности и некоторые примеры их применения


         

Автоматизация определения новых классов (Class Completion)


В Delphi 4 автоматизировано определение новых классов путем генерации заготовок кода реализации для определяемых разработчиком членов классов.

Допустим, мы определяем новый класс, вводя в секцию интерфейса следующий код: TMSGButton=class(TButton) property MSGcount:integer; property MSG: string; procedure ShowMSG; end;

Если теперь нажать комбинацию клавиш Ctrl-Shift-C, в секцию интерфейса будут автоматически добавлены описания методов для изменения определенных свойств (в нашем случае свойств MSGCount и MSG): type TForm1 = class(TForm) TMSGButton=class(TButton) property MSGcount:integer read FMSGcount write SetMSGcount; property MSG: string read FMSG write SetMSG; procedure ShowMSG; private FMSG: string; FMSGcount: integer; procedure SetMSG(const Value: string); procedure SetMSGcount(const Value: integer); end;

В секцию реализации будет добавлен следующий код: procedure TMSGButton.SetMSG(const Value: string); begin FMSG := Value; end; procedure TMSGButton.SetMSGcount(const Value: integer); begin FMSGcount := Value; end; procedure TMSGButton.ShowMSG; begin end;

Помимо этого, возможен и обратный процесс. При добавлении в секцию реализации метода, не описанного в секции интерфейса, его прототип будет добавлен при нажатии комбинации клавиш Ctrl-Shift-C.

Рис. 4 Автоматическая генерация описаний методов.

| |



Содержание раздела