Valeu pela resposta. Eu tentei usar o BlockWrite, mas não consegui.
Tentei tb o File of byte, mas naum sei como gravar strings e tal, vc naum teria um exemplo básico de leitura e gravação por BlockWrite(sem ser aquele do delphi e aquele para copiar arquivo)? Um bem simples que grava o valor de uma variável e depois a variável é atribuida ao BlockRead. Flw. -----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem Nascimento da Rocha Enviada em: segunda-feira, 8 de agosto de 2005 20:14 Para: delphi-br@yahoogrupos.com.br Assunto: RE: [delphi-br] Criar arquivos de tipos indefinidos Prioridade: Alta 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 -- <<<<< 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
