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:



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


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

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 :D :p :D

Saludos redundantes