Delphi 2007: Code Templates

В 7-ой версии Delphi настраивать шаблоны очень просто: Tools -> Editor Options....

На закладке Source Options жмем кнопку Edit Code Templates... и открывается окно редактора шаблонов,

где доступно изменение существующих, создание новых, импорт и экспорт шаблонов.

Разберемся, как сделать свой шаблон в Delphi 2007.

Если почитать справку (иногда полезно :) ), то вот что можно выяснить:

To add a template:

1. Choose Tools -> Options -> Editor Options.
2. Click the Source Options tab and then the Edit Code Templates button.
3. In the Templates section, click Add.
4. Type a name for the template after Shortcut name, enter a brief description of the new template, and click OK.
5. Add the template code to the Code text box.
6. Click OK.

но если пройти на указанную закладку диалога настройки, то никакой кнопки найти там не удастся.

Исследование главного меню подсказывает, что нужный нам список можно найти тут: View -> Templates.

Это окно не так функционально, как в предыдущих версиях Delphi, но здесь можно добавлять новые шаблоны и редактировать имеющиеся. То же самое можно сделать и прямым доступом к файлам, файлы шаблонов лежат в папке $(BDS)ObjRepos\Code_Templates.

Например, стандартный шаблон tryf я исправил таким образом:

<?xml version="1.0" encoding="utf-8" ?>
 
<codetemplate xmlns="http://schemas.borland.com/Delphi/2005/codetemplates"
    version="1.0.0">
 <template name="tryf" surround="true" invoke="manual">
  <description>
   try finally
  </description>
  <author>
   CodeGear
  </author>
  <code language="Delphi" context="methodbody" delimiter="|">
    <![CDATA[try
 
finally
  |selected||end|
end;
]]>
  </code>
 </template>
</codetemplate>

Теперь курсор после вызова становится междуу finally и end. А вот пример нового шаблона mess, я использую его для вывода отладочных сообщений (вместо ShowMessage):

<?xml version="1.0" encoding="utf-8" ?>
 
<codetemplate xmlns="http://schemas.borland.com/Delphi/2005/codetemplates"
    version="1.0.0">
 <template name="mess" surround="true" invoke="manual">
  <description>
   MessageBox
  </description>
  <author>
   Minich Denis
  </author>
  <code language="Delphi" context="methodbody" delimiter="|">
    <![CDATA[MessageBox(0, PChar(|selected||end|), nil, MB_OK);]]>
  </code>
 </template>
</codetemplate>