Ver Mensaje Individual
  #4  
Antiguo 05-04-2009
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Debes incluir la unidad antes que la otra. Valga un ejemplo:

Unidad 1:

Código Delphi [-]
unit Unit1;

interface

uses
  Forms, Unit2, Unit3;

type
  TForm1 = class(TForm)
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

Unidad 2

Código Delphi [-]
unit Unit2;

interface

implementation

uses
  Dialogs;

initialization
  ShowMessage('Hello from Unit2.pas');

end.

Unidad 3

Código Delphi [-]
unit Unit3;

interface

implementation

uses
  Dialogs;

initialization
  ShowMessage('Hello from Unit3.pas');

end.

En este caso, lo que verás primero será el "Hola" de la unidad 2. Pero, puedes cambiar el orden:

Código Delphi [-]
unit Unit1;

interface

uses
  Forms, Unit3, Unit2;

type
  TForm1 = class(TForm)
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

Y verás entonces primero el "Hola" de la unidad 3.
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita