| ||||||||||||||||
 | ||||||||||||||||
| ||||||||||||||||
 | ||||||||||||||||
| ||||||||||||||||
|
|
Автоматизация определения новых классов (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 Автоматическая генерация описаний методов. [Назад][Содержание][Вперед] |
|
|
| ||||||||||||||||
| ||||||||||||||||
| ||||||||||||||||
|