Como definir Funciones Globales

[destrukthor]

Use este ejemplo sencillo y rapido para verificar su utilidad, y lo precento para aquellos novatos como yo lo pruebe para resolver algun problema similar al mio.

Código Delphi [-]
 
unit ProcGlob;
interface
FUNCTION f_VerMsg(f_Num :Integer): Boolean;
implementation
FUNCTION f_VerMsg(f_Num :Integer): Boolean;
BEGIN
  IF f_Num=0 THEN
    Result:=True
  ELSE
    Result:=False;
END;
end.

Otro Formulario lo llamo asi

Código Delphi [-]
 
 
  IF f_VerMsg(0)=True THEN
    ShowMessage('Es Igual a 0')
  ELSE
    ShowMessage('Es Distinto a Cero');