Cara.. eu tambem trabalho com pacotes, e realmente é muito bom.
Para resolver esse problema, eu criei um pacote onde tenho varias funçoes, por exemplo validar CPF e CNPJ entre outras, declarar variaveis publicas, enfim, na minha aplicação principal e nos outros pacotes tenho só o basico mesmo (Gravar, excluir, Novo, etc..). Para poder usar esse pacote q tem todas as variaveis e funçoes, eu declaro esse paconte na Uses dos outros pacotes ou na aplicação principal.. veja o codigo abaixo: unit fLogin; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, dxCore, dxButton, StdCtrls, ComCtrls, ExtCtrls, MEU PACOTE; type TfLogin = class(TForm) dxButton1: TdxButton; dxButton2: TdxButton; dslogin: TEdit; dssenha: TEdit; Entendeu? Richardson Marcelo Freddo. msn: freddodp...@hotmail.com Skype: r.freddo Rondonópolis/MT ________________________________ De: Darkzad <dark...@yahoo.com.br> Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 17 de Fevereiro de 2010 12:29:30 Assunto: [delphi-br] Ajuda com Package Olá pessoal, Para modularizar minha aplicação resolvi utilizar Packges e que é uma opção muito boa. Mas estou tendo um problema: Não consigo enviar o valor deu uma variável publica da minha Aplicação principal para o Pacote. Meu pacote é carregado dinamicamente através do código mais abaixo Na minha aplicação principal tenho uma váriavel declarada com pública E quando tento acessar essa várivel ela fala o valor dela é INACESSÍVEL. O que pode está acontecendo? Desde já Agradeço Marcelo Pomarolli Código para carregar o pacote dinamicamente. procedure TFPrincipal. ac_PagarExecute( Sender: TObject); var H : HMODULE; PForm : TFormClass; Form : TForm; begin if FileExists(' FINANCEIRO. bpl') then begin H := LoadPackage( 'FINANCEIRO. bpl'); if H > 0 then begin PForm := TFormClass(GetClass ('TfFiltro_ PAGAR')); if Assigned(PForm) then begin Form := PForm.Create( nil); Form.ShowModal; FreeAndNil(Form) ; UnloadPackage( H); end else Application. MessageBox( 'Error ao carregar o MODULO FINANCEIRO!' ,'Carregamento do Modulo',MB_OK + MB_ICONINFORMATION + MB_DEFBUTTON1) ; end; end else Application. MessageBox( 'Para usar este recurso você deve adquirir o Modulo FINANCEIRO.' +#13+ 'Entre em contato com o seu Revendedor para maiores detalhes.',' Carregamento do Modulo',MB_OK + MB_ICONINFORMATION + MB_DEFBUTTON1) ; end; ____________ _________ _________ _________ _________ __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta. messenger. yahoo.com/ ____________________________________________________________________________________ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]