O próprio help do Delphi tem exemplos pra uso do BlockWrite(). Por isso que eu te falei pra vc consultar o help mais afundo! Ele tem exemplo bem legal!
[]s >From: "Israel Alcantara Possoli" <[EMAIL PROTECTED]> >Reply-To: delphi-br@yahoogrupos.com.br >To: <delphi-br@yahoogrupos.com.br> >Subject: RES: [delphi-br] Criar arquivos de tipos indefinidos >Date: Tue, 9 Aug 2005 08:36:27 -0300 > >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 > > > > > > > > _________________________________________________________________ MSN Messenger: converse com os seus amigos online. http://messenger.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
