Erro estranho: Internal Error: L681

Question

Ol�, estou programando, e simplesmente ao compilar apareceu este erro maluco.Internal Error: L681E ao compilar novamente, aparece o seguinte erro:[Fatal Error] teste.dpr(10): Unit Dialogs was compiled...

Michael · Answer

Esse erro infelizmente n�o � incomum de acontecer, e h� v�rias causas poss�veis para ele. Geralmente eu contruo toda a aplica��o ([b:07c0a7f5cf]Build[/b:07c0a7f5cf]) e o problema desaparece. Outras vezes eu preciso fechar o projeto e abr�-lo de novo.

[url=http://qc.borland.com/wc/qcmain.aspx?d=5336]Neste link[/url] do Quality Central da Borland h� mais informa��es e coisas que vc pode tentar para descobrir o problema e/ou eliminar o erro.

[]�s

Titanius · Answer

Valeu Michael, olha s� que doidera... esse codigo abaixo � que estava dando o erro:

 if PgCtrlPrincipal.ActivePageIndex >= 0 then
 begin
  (PgCtrlPrincipal.Pages[PgCtrlPrincipal.ActivePageIndex].Components[0] as TFormClass).Close;
  PgCtrlPrincipal.Pages[PgCtrlPrincipal.ActivePageIndex].Free;
 end;

Estou tentando fechar o Form associado � Page, e depois liberar a Sheet da memoria.. estou fazendo errado?

P.S.: Estou usando a sua funcao, do outro topico..

[]s

Michael · Answer

[quote:a492ea795e=�titanius�]Estou tentando fechar o Form associado � Page, e depois liberar a Sheet da memoria.. estou fazendo errado?[/quote:a492ea795e]Sim [b:a492ea795e]Titanius[/b:a492ea795e], h� dois erros na sua abordagem. Vamos a eles:1) [b:a492ea795e]TFormClass [/b:a492ea795e]� um tipo nativo do Delphi definido como [b:a492ea795e]class of TForm[/b:a492ea795e]. Isso quer dizer que ele pode receber refer�ncias � classes, e n�o � inst�ncias. Eu o usei pq desta forma posso chamar a fun��o passando a classe do Form que quero criar, sem me preocupar em instanci�-lo antes, pois a rotina ir� faz�-lo para mim. Desta forma o que vc fez n�o vai resultar no esperado. O correto seria:[code:1:a492ea795e](PgCtrlPrincipal.ActivePage.Components&#91;0&93; as TCustomForm).Close[/code:1:a492ea795e]Aproveitei e usei a propriedade [b:a492ea795e]ActivePage [/b:a492ea795e]do [b:a492ea795e]PageControl [/b:a492ea795e]para economizar c�digo. ;-)2) Por�m, como eu mencionei no outro t�pico, vc [b:a492ea795e]n�o precisa[/b:a492ea795e] fechar o form, bastando apenas destruir a [b:a492ea795e]TabSheet[/b:a492ea795e]. Isso funciona pq o formul�rio foi criado com o [b:a492ea795e]Owner [/b:a492ea795e]definido para a aba em quest�o. Se vc tem algum c�digo no evento [b:a492ea795e]OnClose [/b:a492ea795e]do form, mova-o para o [b:a492ea795e]OnDestroy [/b:a492ea795e]para as coisas ficarem mais coerentes.Seu c�digo final ficaria assim agora:[code:1:a492ea795e]if Assigned(PgCtrlPrincipal.ActivePage) then  PgCt...

Titanius · Answer

Opa Michael, voc� como sempre me tirando do buraco hein!?.. hehe...

Seguinte, tenho uma duvida... quanto ao Owner eu entendi, o porem � que eu precisava mesmo, � de algo que passasse dentro do OnClose do Form em questao, e o codigo

if Assigned(PgCtrlPrincipal.ActivePage) then 
  PgCtrlPrincipal.ActivePage.Free;

nao passava, ja tirava ele...

quanto ao primeiro codigo funcionou legal..

Obrigado,

[]s

Michael · Answer

[quote:dbfec786db=�titanius�]Opa Michael, voc� como sempre me tirando do buraco hein!?.. hehe... [/quote:dbfec786db]Vou come�ar a cobrar pela consultoria... ;-)[quote:dbfec786db=�titanius�]Seguinte, tenho uma duvida... quanto ao Owner eu entendi, o porem � que eu precisava mesmo, � de algo que passasse dentro do OnClose do Form em questao[/quote:dbfec786db]Por que precisa usar especificamente o [b:dbfec786db]OnClose[/b:dbfec786db]? N�o pode usar o [b:dbfec786db]OnDestroy [/b:dbfec786db]como eu mencionei? Se n�o, e dentro do [b:dbfec786db]OnClose [/b:dbfec786db]vc fizer isso:[code:1:dbfec786db]Action := caFree;[/code:1:dbfec786db]Ent�o vc n�o deve criar os formul�rios passando a [b:dbfec786db]TabSheet [/b:dbfec786db]como [b:dbfec786db]Owner[/b:dbfec786db], e sim [b:dbfec786db]nil[/b:dbfec786db].S� vejo duas raz�es para usar o [b:dbfec786db]OnClose[/b:dbfec786db] neste contexto: ou vc quer poder impedir o fechamento do Form, e nesse caso tbm poderia usar o [b:dbfec786db]OnCloseQuery[/b:dbfec786db], ou se os forms s�o compartilhados entre projetos [b:dbfec786db]MDI/SDI[/b:dbfec786db] e [b:dbfec786db]MTI[/b:dbfec786db].[]�s...

Rfb · Answer

Bom dia Michel.Voc� demonstrar ter um grande conhecimento em Delphi.Estou desenvolvendo um projeto e gostaria de saber se voc� se interessa em prestart consultoria.Por favor, entre em contato e te dai mais detalhes.  (rfbarrozo@gmail.com)Fico no aguardo.Um abra�o....

F�rum Erro estranho: Internal Error: L681 #314661