Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Como crear una Unit? (https://www.clubdelphi.com/foros/showthread.php?t=67774)

pablopessoa 05-05-2010 21:19:43

Como crear una Unit?
 
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 :
Código Delphi [-]
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 05-05-2010 23:17:34

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". Puede obtenerse gratuítamente desde la página web del propio autor.

Casimiro Notevi 05-05-2010 23:55:56

Cita:

Empezado por Ñuño Martínez (Mensaje 362942)
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". Puede obtenerse gratuítamente desde la página web del propio autor.

También puedes descargarlo de clubdelphi y de este otro sitio.

pablopessoa 06-05-2010 02:34:23

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 :

Código Delphi [-]
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!


La franja horaria es GMT +2. Ahora son las 06:09:13.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi