[[Lepe]]

Te aconsejo que modifiques esto con el bloc de notas, si lo haces dentro de BDS, se vuelve loco y lanza excepciones cuando hay errores, así que te obliga a reiniciar BDS.

Abre un proyecto existente.

Haz que muestre los Templates, elige uno y usa editar. Lo tendrás en el editor de BDS, no lo modifiques. Ahora vé al bloc de notas y escribe esto:

Nombre de archivo:
C:\Documents and Settings\<< Tu nombre usuario >>\Configuración local\Datos de programa\Borland\BDS\4.0\code_templates\comm.xml

Debe estar en esa ruta.

Pega el siguiente contenido:

<?xml version="1.0" encoding="utf-8" ?>
<codetemplate	xmlns="http://schemas.borland.com/Delphi/2005/codetemplates"
				version="1.0.0">
	<template name="comm" surround="true" invoke="auto">
	<script language="Delphi" onenter="false" onleave="false" onvalidate="true">
			ValidateForTemplate;
	</script>
	<point name="autor">
		<text>
		Nombre
		</text>
		<hint>
			Nombre del Autor
		</hint>
	</point>
	<point name="descr">
		<text>
		   Descripcion
		</text>
		<hint>
			¿Que hace la unidad?
		</hint>
	</point>
	<point name="date">
		<text>
		   01/01/2007
		</text>
		<hint>
			Fecha de Modificacion
		</hint>
	</point>
  <description>
			Descripcion de la Unidad
	</description>	
	<author>
		Lepes
	</author>
	<script language="Delphi" onenter="false" onleave="true">
	</script>
	<code language="Delphi" context="methodbody" delimiter="|"><![CDATA[{*-----------------------------------------------------------------------------------------
*

   Descripcion:  |descr|
   Autor:        |autor| (2007)
   Fecha:        |date|
*
------------------------------------------------------------------------------------------}
|selected||*||end|
  ]]>
  </code>
	</template>
</codetemplate>

Guarda el archivo.
Vuelve a BDS y haz clic en un archivo .pas del proyecto:

Aquí está el truco, cuando tienes abierto un template para modificar, y cambias de pestaña para pasar a un archivo .pas, es cuando BDS compila ese template, mira los templates que tengas en Documents And settings y los compila.

En el editor de código escribe comm <CTRL+J> y saltará el Template recién creado.

Para añadir más cositas, es cuestión de añadir bloques de este estilo:

	<point name="descr">
		<text>
		   Descripcion
		</text>
		<hint>
			¿Que hace la unidad?
		</hint>
	</point>

Ahora situar |descr| en el tag CDATA y listo.

PD: Si delphi en el macro forb permite crear la variable con "DeclareVariable", también permitirá hacer otras virguerías, pero las desconozco. No encuentro documentación, si encuentras algo en internet, avisa en este hilo.

Saludos