O que é isso: EInOutError ´I/O error 32´ ?
Olá pessoal por favor!
Estou precisnado escrever em um arquivo tipo ´.dat´ porém no
método rewrite ele dá a seguinte menssagem de erro:
...Excepetion class EInOutError with message ´I/O error 32´.
o que é erro 32 ?
segue parte do codigo:
var
fone, codigo, nome, dados : string;
begin
codigo:=edtcodigo.Text;
nome:= edtnome.text;
fone:= edtfone.text;
AssignFile(texto,´Arquivo.dat´);
Rewrite(Texto);
dados:= format(´¬-3s´,[edtcodigo.Text]) + format(´¬-10s´,[edtnome.Text])+format(´¬-3s´,[edtfone.Text]);
Writeln(texto,dados);
CloseFile(Texto);
Muito obrigado!!!
Valeu!!!
superlio.
Estou precisnado escrever em um arquivo tipo ´.dat´ porém no
método rewrite ele dá a seguinte menssagem de erro:
...Excepetion class EInOutError with message ´I/O error 32´.
o que é erro 32 ?
segue parte do codigo:
var
fone, codigo, nome, dados : string;
begin
codigo:=edtcodigo.Text;
nome:= edtnome.text;
fone:= edtfone.text;
AssignFile(texto,´Arquivo.dat´);
Rewrite(Texto);
dados:= format(´¬-3s´,[edtcodigo.Text]) + format(´¬-10s´,[edtnome.Text])+format(´¬-3s´,[edtfone.Text]);
Writeln(texto,dados);
CloseFile(Texto);
Muito obrigado!!!
Valeu!!!
superlio.
Superlio
Curtidas 0
Respostas
Vagneroraculo
17/02/2004
Antes do Rewrite(arquivo)
Colose Reset(Arquivo)
Colose Reset(Arquivo)
GOSTEI 0
Diego Uchoa
17/02/2004
não funcionou véio...
GOSTEI 0