Deveria funcionar, mas usando type não funciona. Se eu remover os types ele encontra as variáveis e as functions, mas se eu colocar os types ele não encontra.
Walter Chagas (Bol) escreveu: > > > 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 <mailto:wchagasj%40bol.com.br> > http://www.geocities.com/SiliconValley/Bay/1058 > <http://www.geocities.com/SiliconValley/Bay/1058> > http://delphitocorporerm.blogspot.com/ > <http://delphitocorporerm.blogspot.com/> > MSN: whitesock...@hotmail.com <mailto:whitesockets%40hotmail.com> > SKYPE: WalterChagasJr > > ----- Original Message ----- > From: EmbarcaDelphi > To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.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] > >
