funcao publica em delphi - duvida!!

Question

estou querendo colocar duas funcoes em meu programa uma delas e para formatar cep e outra para formatar telefone.
gostaria de saber como posso colocar essas funcoes para torna-las publicas e usar em todo o meu programa sem ter que estar montando a funcao para cada formulario.
aguardo uma resposta.
as 2 funcoes estao abaixo:
 
FORMATAR CEP
COLOQUE ESTE CODIGO ABAIXO DA CLAUSULA 
IMPLEMENTATION DO FORM DESEJADO
implementation
uses Unitdatamodule;
{$R *.dfm}
//Esta funcao informa Cep neste formato: 99.999-999
function tbFormataCEP(const CEP: string): string;
var
I: integer;
BEGIN
  begin
    Result := '';
    for I := 1 to Length(CEP) do
     if CEP[I] in ['0'..'9'] then
      Result := Result + CEP[I];
    if Length(Result)  8 then
     raise Exception.Create('CEP inv&aacute;lido.')
   else
    Result :=
     Copy(Result, 1, 2) + '.' +
     Copy(Result, 3, 3) + '-' +
     Copy(Result, 6, 3);
  end;
END;
NO EVENTO ONEXIT DO CAMPO DESEJADO COLOQUE ESSE 
CODIGO ABAIXO
procedure Tfmcadastro.DBEditcepExit(Sender: TObject);
BEGIN
  begin
    DBEditcep.Text := tbFormataCEP(DBEditcep.Text);
  end;
END;

FORMATAR TELEFONE
COLOQUE ESTE CODIGO ABAIXO DA CLAUSULA 
IMPLEMENTATION DO FORM DESEJADO
 
//Esta funcao informa Telefone neste formato: 99.9999.9999
function tbFormataFONE(const FONE: string): string;
var
I: integer;
BEGIN
  begin
    Result := '';
    for I := 1 to Length(FONE) do
     if FONE[I] in ['0'..'9'] then
      Result := Result + FONE[I];
    if Length(Result)  10 then
     raise Exception.Create('Telefone inv&aacute;lido.')
   else
    Result :=
     Copy(Result, 1, 2) + '.' +
     Copy(Result, 3, 4) + '-' +
     Copy(Result, 4, 4);
  end;
END;
NO EVENTO ONEXIT DO CAMPO DESEJADO COLOQUE ESSE 
CODIGO ABAIXO
procedure Tfmcadastro.DBEdittelresExit(Sender: TObject);
BEGIN
  begin
    DBEdittelres.Text := tbFormataFONE(DBEdittelres.Text);
  end;
END;

Answer

Quando for postar um c&oacute;digo, coloque ele entre as tags [ code ] [ / code ] sem espa&ccedil;o.

Pra que a fun&ccedil;&atilde;o seja p&uacute;blica, coloque a assinatura dela tamb&eacute;m na interface. A&iacute; onde quiser usar &eacute; s&oacute; declarar a unir na cl&aacute;usula uses.

Answer

blz, amigo
mas eu criei uma unit separada (sem form - apenas a unit) uRotinas. coloquei as funcoes que quero utilizar nesta unit. 
na clausula uses do frmcliente adicionei uRotinas. 
 
aqui esta o codigo da unit uRotinas
[code=rich]
 
unit uRotinas;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uCadPadrao, DB, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, Mask,
  ComCtrls, Buttons, Shellapi;
//type
  //TfrmCadCliente = class(TfrmPadrao)
  //Esta funcao informa Cep neste formato: 99.999-999
  //function tbFormataCEP(const CEP: string): string;
  //Esta funcao informa Telefone neste formato: 99.9999.9999
  //function tbFormataFONE(const FONE: string): string;
  //private
    { Private declarations }
  //public
    { Public declarations }
//end;
 
implementation
uses uDtm, uCadClientes, uCadEstcid, uPrincipal;
//Esta funcao informa Cep neste formato: 99.999-999
function tbFormataCEP(const CEP: string): string;
var
I: integer;
BEGIN
  begin
    Result := '';
    for I := 1 to Length(CEP) do
     if CEP[I] in ['0'..'9'] then
      Result := Result + CEP[I];
    if Length(Result)  8 then
     raise Exception.Create('CEP inv&aacute;lido.')
   else
    Result :=
     Copy(Result, 1, 2) + '.' +
     Copy(Result, 3, 3) + '-' +
     Copy(Result, 6, 3);
  end;
END;
//Esta funcao informa Cep neste formato: 99.999-999
//....................................................................
//Esta funcao informa Telefone neste formato: 99.9999.9999
function tbFormataFONE(const FONE: string): string;
var
I: integer;
BEGIN
  begin
    Result := '';
    for I := 1 to Length(FONE) do
     if FONE[I] in ['0'..'9'] then
      Result := Result + FONE[I];
    if Length(Result)  10 then
     raise Exception.Create('Telefone inv&aacute;lido.')
   else
    Result :=
     Copy(Result, 1, 2) + '.' +
     Copy(Result, 3, 4) + '-' +
     Copy(Result, 4, 4);
  end;
END;
//Esta funcao informa Telefone neste formato: 99.9999.9999
//.......................................................................
 
end.
 
[/code]
 
porem, no frm cliente quando mando compilar para executar o programa gera esse erro:

[DCC Error] uCadClientes.pas(586): E2003 Undeclared identifier: 'tbFormataCep'

[DCC Error] pAssisTec.dpr(10): F2063 Could not compile used unit 'UNITS\uCadClientes.pas'
 
aqui esta a procedure da funcao
o que esta em vermelho gera o erro acima:
[code=rich]
 
procedure TfrmCadCliente.dbeditCepExit(Sender: TObject);
BEGIN
  begin
    inherited;
    dbeditCep.Text := [COLOR=red]tbFormataCep[/COLOR](DBEditcep.Text);
  end;
END;
 
[/code]
 
aguardo resposta. Obrigado.

Ferramentas

Mover Tópico