Para evitar um warning indesejado basta que você delimite a área referente
ao warning com
{$WARNINGS OFF}
O que estiver entre essas duas diretivas não gerará o warning.
{$WARNINGS ON}
Alessandro Fernandes
> -----Mensagem original-----
> De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
> 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
>
>
>
>
>
>
>
>
>
> --
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.1.385 / Virus Database: 268.4.3/317 - Release Date: 18/4/2006
--
<<<<< 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!.