Como crear una Unit?

[pablopessoa]

Saludos a todos!
La cosa es asi: quiero crear una unit que centre codigos que son generales a varios forms.
Pero el tema es que no se como crearlo, es decir, usando delphi 2007 hago esto:
voy a file, new, unit delphi for win32 y me crea esto :

unit Unit1;

interface
type
TFConfig = class // esto lo hice yo

implementation

end.


Ahora bien... necesito crear un constructor de la unit?
Con esta unit , entre otras cosas pienso controlar la carga de los archivos config.ini y el archivo de log de mi aplicacion y la quiero crear en el Source de la aplicacion.
Alguno me puede orientar en como crear la unit y como se crea desde el Source para usarla?
Muchas Gracias y perdon la ignorancia :(

[Ñuño Martínez]

Una unidad no es una clase, por lo que no necesita constructor.

Te recomiendo que eches un vistazo al libro "La Cara Oculta de Delphi (http://www.marteens.com/caraoculta.htm)". Puede obtenerse gratuítamente desde la página web del propio autor.

[Casimiro Notevi]

Una unidad no es una clase, por lo que no necesita constructor.

Te recomiendo que eches un vistazo al libro "La Cara Oculta de Delphi (http://www.marteens.com/caraoculta.htm)". Puede obtenerse gratuítamente desde la página web del propio autor.
También puedes descargarlo de clubdelphi y de este otro sitio (http://www.intitec.com/varios/La_Cara_Oculta_De_Delphi_4.pdf).

[pablopessoa]

Muchas Gracias por las respuestas!
Ya descargue el libro y voy a leerlo.
De todos modos, como hago para cargar la unit en el source de la aplicacion?
por source me refiero al archivo con estas instrucciones :


program nombrePrograma;

uses
Forms,
{
.......
}

{$R *.res}

begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(....);
with FSplashScreen do
begin
show;
update;
while TimerFinishScreen.enabled do
application.processMessages;
hide;
free;
end;
Application.CreateForm(TFlogeo, Flogeo);
if Flogeo.ShowModal = 1 then
begin
Flogeo.Destroy;
Application.CreateForm(TFmain, Fmain);
Application.Run;
end
else
begin
DataModule1.Destroy;
Application.Terminate;
end;
end.


Saludos!