basta declarar esta unit, na clausula uses de todas as units que usarão alguma destas funções aí.
[]s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr ----- Original Message ----- From: EmbarcaDelphi To: delphi-br@yahoogrupos.com.br Sent: Saturday, April 25, 2009 8:57 AM Subject: [delphi-br] Como criar uma UNIT GLOBAL? Olá turma. Bom dia! Eu tenho uma unit escrita da seguinte forma: unit uFunc; interface uses Windows, Controls, SysUtils, Dialogs; type CLIENTES = record // ..........................Arquivo é: CLIENTES.DAT NORDEM : integer; NOME : String[40]; end; type PRODUTOS = record // ..........................Arquivo é: PRODUTOS.DAT ID_PRODUTO : integer; PRODUTO : String[25]; VALOR : Extended; //Numeric[9,2]; end; // Tenho também variáveis, functions e procedures que queria deixar elas como públicas para eu poder acessar de qualquer form: var fCLI : file of CLIENTES; rCLI : CLIENTES; fPRO : file of PRODUTOS; rPRO : PRODUTOS; function GeraChave(Digitos: integer) : String; function LongToShortPath(Long: String): String; procedure DesabilitaButton(aTAG: integer); function GravaCliente(ExisteContato : Boolean) : Boolean; function DeleteRec : Boolean; // Além de colocar na uses do form, queria saber em que posição devo colocar estas variáveis, functions e procedures na unit uFunc para que elas se tornem pública? Tentei colocar "PUBLIC" mas não aceita, a não ser que eu crie classes e use create() e o nome da classe, etc... Aguardo uma sugestão [As partes desta mensagem que não continham texto foram removidas]
