Re: [delphi-br] Muitos warnings

Daniel Bastos Tue, 18 Apr 2006 06:38:29 -0700

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 >>>>>

<*> 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

Re: [delphi-br] Muitos warnings

Responder a