Amigo,
Posso estar errado, caso esteja me desculpem, mais não é possivel fazer o que o
colega quer usando diretiva de compilação usando {$INCLUDE NOME_DA_UNIT} ???
Abraços.
--- Em delphi-br@yahoogrupos.com.br, EmbarcaDelphi <embarcadel...@...> escreveu
>
> 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...@... <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...@... <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]
> >
> >
>
