¿Cómo hacer y utilizar un procedure no estandar?
 

Hola Foro:

Bueno, quizas la pregunta no la redacté exactamente como estoy necesitando la respuesta, pero aquí les aclaro:

Cuando creamos un evento suele salirnos algo así como:
procedure TFPrincipal.TipProClick(Sender: TObject);
begin
...
end;

Pero cuando yo deseo crear un procedimiento que no se desprende de un evento en específico puedo poner:
procedure ActivarTablas;
begin
...
end;

Al compilar Delphi no me devuelve ningún error. Hasta aquí todo OK.

Ahora.. ¿Cómo hago uso de ese procedure creado por mi? ¿Como puedo llamarlo desde otro Forms? ¿Cómo hacer para que desde un procedure generado por un evento, me llame a este creado por mi y que funcione?

En espera de sus más atentas respuestas

PallyRS

hola,

debes colocar su prototipo en la seccion interface, y luego en el unit donde quieras usarlo el nombre de la unit donde esta implementada.

Código Delphi [-]
interface
   procedure Calculo(...);

implementation
   procedure Calculo(...);
   begin
   ...
   end;

siendo puntilloso, en verdad, estas son las procedures estandar. Las que no lo son son las que estan dentro de una clase, las cuales se llaman métodos.

Y para redondear, No es necesario que estén definidos en una Unit que esté asociada a un form. Puedes tener tus propias funciones y procedimientos "estándar" en una "unit suelta":

Código Delphi [-]
Unit URutinas;

interface

procedure Procedimiento(...);
function Funcion(...)
...


implementation

procedure Procedimiento(...)
begin
  ....
end;

function Funcion(....)
begin
   ....
end;

He incluso, si deseas tener procedimientos y/o funciones privados basta con que los definas únicamente en la sección implementation y no añadir su prototipo (como dice coso) en interface.

Saludos,

:rolleyes:

Jeje. Se me chispoteó la vista:p:D. Me había parecido haber leído a poyo , pero luego cuando volví al tema me dí con que era coso.

Saludos,

...me teneis mania...lo se...no me importa...:cool::cool::D

...es normal...soy guapo, listo, simpatico, etc etc etc...os comprendo...:rolleyes::rolleyes:

PD: es una broma eh? no se me solivianten ahora