Alguns conselhos sobre arquivos binários:
1) Ao abrir um arquivo binário qualquer, especifique o tamanho do registro
ao abrir o arquivo com o procedimento Reset() - veja mais detalhes sobre
isso no help do Delphi;
2) Para gravar dados em arquivos binários, prefira BlockWrite() ao invés de
Write() - veja mais detalhes sobre esses procedimentos no help do Delphi;
3) Se mesmo assim, ainda preferir usar Write(), declare a sua variável de
arquivo como file of Byte.
Boa sorte!
[]s
>From: Israel Alcântara Possoli <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: delphi-br@yahoogrupos.com.br
>Subject: [delphi-br] Criar arquivos de tipos indefinidos
>Date: Mon, 08 Aug 2005 18:40:17 -0000
>
>Ae, queria criar arquivos (binários) sem ter um tipo específico,
>usando apenas variáveis:
>
>
>Exemplo não funcional:
>
>
>var
> F : File;
> varInt1, varInt2 : integer;
> varStr1, varStr2 : string[200];
> varReal1, varReal2 : real;
>begin
> var1Int1 := 137;
> varStr1 := 'Teste';
> varReal1 := 1029.45
> AssignFile(F, "arq.dat");
> Rewrite(F);
> Write(F, varInt1, varStr1, varReal1);
> Close(F);
>
> AssignFile(F, "arq.dat");
> Reset(F);
> Read(F, varInt2, varStr2, varReal2);
> Close(F);
>
> ShowMessage('Int: ' + IntToStr(varInt2) +', ' +
> 'Str: ' + varStr2 + ', '+
> 'Real: ' + IntToStr(trunc(varReal2)));
>end;
>
>
>
_________________________________________________________________
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
--
<<<<< 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] ou [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
