Unit sin clases pero con funciones

[jlrbotella]

Hola:

Tengo un unit que no tiene clases, con un procedure. El unit se llama libreria y el procedure se llama dibujar. Cuando lo llamo desde otro unit, le indico en bloque use libreria, pero cuando le llamo desde una funcion del unit no la encuetra. Ej:

Código Delphi [-]
unit libreria;
 
interfaces
 
uses dialogs;
 
implementation
 
procedure dibujar;
begin
showmessage('hola');
end;
 
end.
 
//el otro unit
 
unit main;
 
interfaces
 
uses forms, libreria
 
type
TForm = class(TForm)
public:
procedure botonclick;
 
...
 
implementation
 
procedure Tform.botonclick;
begin
libreria.dibujar;
 
//Error compilador no encuentra la función dibujar del unit libreria.
end;
 
end.

[roman]

Debes declarar las funciones en la parte interface

Código Delphi [-]
unit libreria;

interface

uses dialogs;

procedure dibujar;

implementation

procedure dibujar;
begin
showmessage('hola');
end;

end.

// Saludos

[delphi.com.ar]

Te falta definir la interfaz de la funcion en la sección interface de la unit

Código Delphi [-]
unit libreria;

interfaces

procedure dibujar;

uses dialogs;

implementation

procedure dibujar;
begin
  showmessage('hola');
end;

end.

Todo lo que definas en el area implementation si haberlo publicado en interface es para el uso exclusivo de la unit, y no tiene visibildad desde fuera de esta.

Saludos!

[[Bicho]]

Estan desesperados hoy!!! se pisan las respuestas los unos a los otros

Saludos redundantes