Fórum Esconder Codigo da classe #183508
22/09/2003
0
caros colegas
Desenvolvi classes para trabalhar com sp no firebird.Bem tenho que desenvolver uns modulos para um cliente(programador) utilizando o firebird com sp´s e gostaria de usar estas classes, mas o problema é que ñ queria que o mesmo tivesse acesso as minhas classes ja tentei
colocar o path das classes em tools/environment options/library
mas ñ adianta pois as unit´s aparecem no projeto
Por exemplo:
unit Unit1;
interface
uses
units do delphi >>windows, Messages, SysUtils, Variants, Classes..
minhas units >> unitA,unitB
quando se cria um novo projeto as units do delphi são referenciadas e não usadas no projeto e é esse comportamento que eu gostaria que minhas classes tivessem.
um abraço
Desenvolvi classes para trabalhar com sp no firebird.Bem tenho que desenvolver uns modulos para um cliente(programador) utilizando o firebird com sp´s e gostaria de usar estas classes, mas o problema é que ñ queria que o mesmo tivesse acesso as minhas classes ja tentei
colocar o path das classes em tools/environment options/library
mas ñ adianta pois as unit´s aparecem no projeto
Por exemplo:
unit Unit1;
interface
uses
units do delphi >>windows, Messages, SysUtils, Variants, Classes..
minhas units >> unitA,unitB
quando se cria um novo projeto as units do delphi são referenciadas e não usadas no projeto e é esse comportamento que eu gostaria que minhas classes tivessem.
um abraço
Datasystem
Curtir tópico
+ 0
Responder
Posts
22/09/2003
Nildo
Voce nao quer que ele veja a programação?
Responder
Gostei + 0
22/09/2003
Datasystem
exemplo real para ficar claro:
unit Unit1;
interface
uses
SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms, QDialogs, QStdCtrls, ECdmdbExCadastro,FMTBcd, SqlExpr, Provider, DB, DBClient;
type
//note que TECdmdbExCad1 é uma subclasse de TECdmdbExCad
pois bem eu não quero a unit da classe TECdmdbExCad no projeto
TECdmdbExCad1 = class(TECdmdbExCad)
CDSBasCODIGO: TStringField;
CDSBasDESCRICAO: TStringField;
private
{ Private declarations }
public
{ Public declarations }
end;
var
ECdmdbExCad1: TECdmdbExCad1;
implementation
{$R *.xfm}
end.
outro exemplo:
....
TForm1 = class(Tform)
voce não tem acesso ao codigo do Tform apenas ao codigo que vc cria em Tform1.
unit Unit1;
interface
uses
SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms, QDialogs, QStdCtrls, ECdmdbExCadastro,FMTBcd, SqlExpr, Provider, DB, DBClient;
type
//note que TECdmdbExCad1 é uma subclasse de TECdmdbExCad
pois bem eu não quero a unit da classe TECdmdbExCad no projeto
TECdmdbExCad1 = class(TECdmdbExCad)
CDSBasCODIGO: TStringField;
CDSBasDESCRICAO: TStringField;
private
{ Private declarations }
public
{ Public declarations }
end;
var
ECdmdbExCad1: TECdmdbExCad1;
implementation
{$R *.xfm}
end.
outro exemplo:
....
TForm1 = class(Tform)
voce não tem acesso ao codigo do Tform apenas ao codigo que vc cria em Tform1.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)