É possível que o seu Datamodule não tenha sido criado quando você chama o método "incluir" Daniel Polistchuck Consulting Services Manager Borland Software Corporation Tel: +55 (11) 2165-8047/ Cel: +55 (11) 8196-5947 [EMAIL PROTECTED] - www.borland.com.br <http://www.borland.com.br/> A Borland Software Corporation é líder global em soluções independentes de plataforma para o Software Delivery Optimization, auxiliando nossos clientes a resolverem as restrições no desenvolvimento de aplicações nos dias de hoje, para maximizar o valor do negócio de seu software
________________________________ From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Alexandre Leite Sent: Sunday, November 27, 2005 10:12 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Acces violation, como pode :( Seguinte galera olhem esse codigo unit uClassMarca; interface uses uDatamodule, SysUtils; type Marca = class(TObject) private ID_MARCA: integer; DESCRICAO: string; public function getID_MARCA: integer; function getDESCRICAO: String; function setID_MARCA(ID_MARCA: Integer): boolean; function setDESCRICAO(DESCRICAO: string): boolean; function incluir: boolean; end; implementation uses DataModule; function Marca.getID_MARCA: Integer; begin result:= ID_MARCA; end; function Marca.getDESCRICAO: String; begin result:= DESCRICAO; end; function Marca.setID_MARCA(ID_MARCA: Integer): boolean; begin if ID_MARCA > 0 then begin Self.ID_MARCA:= ID_MARCA; Result:= true; end else Result:= False; end; function Marca.setDESCRICAO(DESCRICAO: string): boolean; begin self.DESCRICAO:= DESCRICAO; end; Function Marca.incluir: boolean; begin try dModule.dtMARCA.Open; dModule.dtMARCA.Append; dModule.dtMARCA.FieldByName('ID_MARCA').AsInteger:= ID_MARCA; semprara a aplicacao aki e dah um erro ja nao sei o que fazer em todas, toda vez que vou incluir dah esse erro e para bem nessa linha, se alguem souber de algo pra resolver ficarei muito grato :( dModule.dtMARCA.FieldByName('DESCRICAO').AsString:= DESCRICAO; dModule.dtMARCA.Post; dModule.T1.CommitRetaining; result:= true; except result:= false; end; end; end. Alexandre Leite Suporte Less www.less.com.br 45-3252-1993 45-9917-5062 Less Internet Av. Largo São vicente de Paula, 1333 10º andar sl. 100 [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE <http://br.rd.yahoo.com/SIG=12felkq78/M=365837.7000707.7924794.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1133179759/A=2950750/R=2/id=noscript/SIG=10tift5qr/*http://br.movies.yahoo.com/> ________________________________ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> . [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html