Como usar procedure en otro Unit

[ecfisa]

Hola bulc.

En este caso basta con incluirla en la sección de implementación.

Si necesitaras de una declaración de la unidad B para conformar otra de la unidad A que se encuentra en la sección de interface de esta última, tendrías que incluirla en la sección de interface. Ejemplo:

Unidad B:

Código Delphi [-]
unit UnitB;

interface

uses ...;

type
  TMiClase = class(TObject)
   Miembro: string;
  end;
...

Unidad A:

Código Delphi [-]
unit UnitA;

interface

uses ..., UnitB;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    FClase: TMiClase; // <-  Necesario inclusión previa de B
  public
  end;
...

En este caso, como es lógico, es necesario que la unidad B este incluida con anterioridad al uso de TMiClase ya que de otro modo no sería conocida en ese punto por la unidad A

Saludos.

[bulc]

Gracias por tus indicaciones, muy provechosas. He adaptado el código y va perfectamente, con lo cual uno se ahorra mucho código.
También he descubierto por casualidad (serendipia pura) que se puede usar el código de un botón citando el nombre del botón como prefijo seguido de punto y el nombre del evento. Por ejemplo BitBtn2.Click. Nunca lo había visto especificado en los libros de Delphi que uso. Claro que son un poco obsoletos. De Delphi 4 y 5. Pero bueno, lo menciono por si alguien lo lee.
Saludos,
Bulc.

[Casimiro Notevi]

Eso es que no has leido bien los libros

Uno cualquiera en La cara oculta de Delphi 4:

Código Delphi [-]
procedure TwndLibretas.DBGrid1DblClick(Sender: TObject);
begin
  bnOk.Click;
end;

[bulc]

Empezado por Casimiro Notevi

Eso es que no has leido bien los libros

Uno cualquiera en La cara oculta de Delphi 4:

Código Delphi [-]
procedure TwndLibretas.DBGrid1DblClick(Sender: TObject);
begin
  bnOk.Click;
end;

"Nunca es tarde si la dicha es buena"...