Delphi控件源码

开发平台：

Delphi

UTypes.pas：源码内容

							unit UTypes;
//=========================================================================
//
// I N T E R F A C E
//
//=========================================================================
interface
type
  {: Format para el nombre de fichero
    @enum ffDateTimeFormat      Formato de fichero con fecha y hora.
    @enum ffAppNameFormat       Nombre de fichero igual a la aplicaci髇.
    @enum ffDateFormat          Formato de fichero con la fecha.
    @enum ffAccumulative        Ficheros acumulativos, no por cada ejecuci髇.
  }
  TFileNameFormat = (ffDateTimeFormat, ffAppNameFormat, ffDateFormat, ffAccumulative);
//=========================================================================
//
// I M P L E M E N T A T I O N
//
//=========================================================================
implementation
end.

						