Em 18/04/06, Walter Alves Chagas Junior<[EMAIL PROTECTED]> escreveu:
> Vai no menu projects | Orelha "Compiler Messages", na seção Warnings,
> desmarque as tres ultimas "Unsafe..."
>
> []s
>
> Walter Alves Chagas Junior
> Projeto e desenvolvimento de sistemas
> Telemont Engenharia de telecomunicações
> Belo Horizonte - MG - Brazil
> [EMAIL PROTECTED]
> Fone: (31) 3389-8215 Fax: (31) 3389-8200
>
>
> -----Mensagem original-----
> De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
> nome de Daniel Bastos
> Enviada em: terça-feira, 18 de abril de 2006 17:05
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] Re: Muitos warnings
>
>
> Eu escreví a msg anterior com pressa, não me expressei corretamente.
>
> Esta warning:
> (1º) - [Warning] QRelOssa.pas(95): Return value of function 'teste'
> might be undefined
>
> Ela é exibida quando não a retorno de uma função. Muito bem, mas no
> projeto ta dando cerca de 80 warnings. A grande maioria relativa ao
> problema reportado primeiro:
> (2º) - [Warning] BaixaItau.pas(286): Unsafe type 'ArqBaixaItau: file
> of TRegBaixaItau'
>
> Como o projeto é grande(muitos arquivos de diversos bancos), ele gera
> uma quantidade muito grande de warnings, das quais a grande maioria é
> de "Unsafe type", qual, eu, em meu projeto, deveria
> desconsiderar(visto que não tenho pretenções de evoluir a versão do
> delphi para ESTE projeto, por utilizar componentes de terceiros).
>
> Com uma quantidade tão grande de warnings, deixei passar uma, justo a
> que me avisava que uma função estava sem valor de retorno(este é o
> motivo do exemplo anterior), o que me gerou uma enorme dor de cabeça,
> pois, sendo uam função que deveria retornar um booleano, sem valor
> definido de retorno, a função só retorna "false".
>
> Infelismente a função não era tão simples como apontei na outra msg.
> Ela é bem complexa, pois ela é responsável por analizar o registro
> vindo do banco e me retornar se deve-se ou não ser adicionado no
> banco.
>
> Se pudesse ver a warning tinha resolvido rapidamente.
>
> Ai volto a pergunta... existe alguma forma de não exibir algumas warnings?
> Não todas só algumas.. visando que este problema não aconteça mais.
>
> Daniel Augusto Bastos
>
> Em 18/04/06, Walter Alves Chagas Junior<[EMAIL PROTECTED]> escreveu:
> > Este Warning é diferente. Você precisa aprender a analisar as mensagens do
> > compilador pra ver o que voce pos lá que pode estar supostamente errado e
> > ser uma fonte inesgotável de proliferação de bugs ocultos.
> >
> > Analise a mensagem de aviso:
> >
> > [Warning] QRelOssa.pas(95): Return value of function 'teste' might be
> > undefined
> > (Retorno da função 'teste' pode estar indefinido
> >
> >
> >
> > Aí eu pergunto ao nobre colega:
> >
> >
> > function teste : boolean;
> > begin
> > Sleep(100);
> > end;
> >
> > Cadê o retorno da função?????????????????????????
> >
> >
> >
> >
> > []s
> >
> > Walter Alves Chagas Junior
> > Projeto e desenvolvimento de sistemas
> > Telemont Engenharia de telecomunicações
> > Belo Horizonte - MG - Brazil
> > [EMAIL PROTECTED]
> > Fone: (31) 3389-8215 Fax: (31) 3389-8200
> >
> >
> > -----Mensagem original-----
> > De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
> > nome de Daniel Bastos
> > Enviada em: terça-feira, 18 de abril de 2006 14:26
> > Para: delphi-br@yahoogrupos.com.br
> > Assunto: Re: [delphi-br] Muitos warnings
> >
> >
> > Eu sei que estes warings não vão influenciar no meu projeto. O
> > problema que tinha um waring parecido com este aki:
> > [Warning] QRelOssa.pas(95): Return value of function 'teste' might be
> > undefined
> >
> > Uma função assim, geraria ele:
> > function teste : boolean;
> > begin
> > Sleep(100);
> > end;
> >
> > Só que este waring tava perdido lá no meio dos outros. Deu pau no meu
> > projeto :( Tinha muita waring pra ver essa perdida lá no meio. Perdi
> > um tempo considerável com isso :(.
> >
> > Já que não consigo retirar, tem como filtrá-las???
> >
> > Brigado pela ajuda
> > Daniel Augusto Bastos
> >
> >
> >
> >
> > Em 18/04/06, Walter Alves Chagas Junior<[EMAIL PROTECTED]> escreveu:
> > > Estes Warnings são inofensivos ao seu projeto :)
> > >
> > > Eles, na verdade, te intormam que estes tipos não são compativeis com a
> > > plataforma dotNET e que, se amanhã você resolver portar seu projeto para
> o
> > > framework, eles irão dar pau ao tentar compilar estas linhas.
> > >
> > > []s
> > >
> > > Walter Alves Chagas Junior
> > > Projeto e desenvolvimento de sistemas
> > > Telemont Engenharia de telecomunicações
> > > Belo Horizonte - MG - Brazil
> > > [EMAIL PROTECTED]
> > > Fone: (31) 3389-8215 Fax: (31) 3389-8200
> > >
> > >
> > > -----Mensagem original-----
> > > De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
> > > nome de Daniel Bastos
> > > Enviada em: terça-feira, 18 de abril de 2006 10:35
> > > Para: delphi-br@yahoogrupos.com.br
> > > Assunto: Re: [delphi-br] Muitos warnings
> > >
> > >
> > > Estes warings aparecem para mim.
> > >
> > > [Warning] BaixaItau.pas(285): Unsafe type 'ArqBaixaItau: file of
> > > TRegBaixaItau'
> > > [Warning] BaixaItau.pas(286): Unsafe type 'ArqBaixaItau: file of
> > > TRegBaixaItau'
> > > [Warning] BaixaItau.pas(292): Unsafe type 'ArqBaixaItau: file of
> > > TRegBaixaItau'
> > > [Warning] BaixaItau.pas(300): Unsafe type 'ArqBaixaItau: file of
> > > TRegBaixaItau'
> > > [Warning] BaixaItau.pas(380): Unsafe type 'ArqBaixaItau: file of
> > > TRegBaixaItau'
> > >
> > > Este é o código que gera estes warings.
> > >
> > > procedure TFrmBaixaMeuBanco.BtnOkClick(Sender: TObject);
> > > var
> > > ArqBaixaItau : File of TRegBaixaItau;
> > > RegBaixaItau : TRegBaixaItau;
> > >
> > > begin
> > > AssignFile (ArqBaixaItau, 'C:\Teste\itau');
> > > Reset (arqBaixaItau);
> > >
> > > cdsRel.CreateDataSet;
> > > with dtmBordero, dtmDuplicatas do
> > > while not Eof(ArqBaixaItau) do
> > > begin
> > > ValorJuros := 0;
> > > SaldoDuplicata := 0;
> > > TotalJuros := 0;
> > > TotalValorPago := 0;
> > > TipoOcorrencia := 0;
> > >
> > > Read (ArqBaixaItau, RegBaixaItau);
> > > if RegBaixaItau.IDENT_REG[0] = '1' then
> > > begin
> > > // Trecho de código muuuuuuuuuuito longo
> > > // Basicamente estre trecho faz a baixa no banco,
> > > dependendo das informações do banco e talz.
> > > end;
> > > end;
> > >
> > > Closefile(ArqBaixaItau);
> > > end;
> > >
> > >
> > > Como são muitos arquivos de retorno, de muitos bancos diferentes, gera
> > > muitos warings.
> > >
> > > Se precisar de mais detalhes, é só avisar.
> > >
> > > Obrigado a ajuda. :)
> > > Daniel A. Bastos
> > >
> > >
> > >
> > >
> > > Em 18/04/06, Rubem Nascimento da Rocha<[EMAIL PROTECTED]>
> > escreveu:
> > > > Se vc listasse o texto de cada um desses warnings pra gente analisar,
> já
> > > > ajudaria.
> > > > Sds.
> > > >
> > > > >From: "Daniel Bastos" <[EMAIL PROTECTED]>
> > > > >Reply-To: delphi-br@yahoogrupos.com.br
> > > > >To: delphi-br@yahoogrupos.com.br
> > > > >Subject: [delphi-br] Muitos warnings
> > > > >Date: Tue, 18 Apr 2006 09:14:23 -0300
> > > > >
> > > > >Bom dia a todos.
> > > > >Estou atualmente atrabalhando em uma aplicação que gera remessa para
> > > > >alguns bancos e trata do arquivo retorno.
> > > > >Para tratar o arquivo retorno, utilizo Records.
> > > > > TArqBanco = Record
> > > > > Campo1 : string[5];
> > > > > Campo2 : string[5];
> > > > > Campo3 : string[5];
> > > > > Campo4 : string[5];
> > > > > end;
> > > > > E as instruções a seguir
> > > > >
> > > > >procedure TFrmBaixaMeuBanco.BtnOkClick(Sender: TObject);
> > > > >var
> > > > > ArqBanco : File of TRegBanco;
> > > > > RegBanco : TRegBanco;
> > > > >begin
> > > > > AssignFile (ArqBanco, 'C:\MeuArquivo');
> > > > > Reset (ArqBanco);
> > > > >
> > > > > while not Eof(ArqBanco) do
> > > > > begin
> > > > > Read (ArqBanco, RegBanco);
> > > > > // Minhas instruções
> > > > > end;
> > > > >
> > > > > Closefile(ArqBanco);
> > > > >end;
> > > > >
> > > > >
> > > > >A aplicação funciona direitinho, mas eu acho meio estranho que dê um
> > > > >warning para cada instrução destas:
> > > > > AssignFile
> > > > > Reset
> > > > > Eof
> > > > > Read
> > > > > Closefile
> > > > >
> > > > >Porque ta danto tantos warings?
> > > > >
> > > > >Agradeço a todos
> > > >
> > > > _________________________________________________________________
> > > > MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
> > > >
> > > >
> > > >
> > > > --
> > > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> > > >
> > > >
> > > >
> > > > Links do Yahoo! Grupos
> > > >
> > > >
> > > >
> > > >
> > > >
> > > >
> > > >
> > > >
> > >
> > >
> > > --
> > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> > >
> > >
> > >
> > > Links do Yahoo! Grupos
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > > [As partes desta mensagem que não continham texto foram removidas]
> > >
> > >
> > >
> > > --
> > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> > >
> > >
> > >
> > > Links do Yahoo! Grupos
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> >
> >
> > --
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >
> >
> >
> > Links do Yahoo! Grupos
> >
> >
> >
> >
> >
> >
> >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
> > --
> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
> >
> >
> >
> > Links do Yahoo! Grupos
> >
> >
> >
> >
> >
> >
> >
> >
> >
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
--
<<<<< 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 Termos do Serviço do Yahoo!.
