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: [email protected]
> >To: [email protected]
> >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
