Fórum Erro de I/O 32 #265702
17/01/2005
0
path:=´C:\Arquivos de programas\Meudir\Config.cfg´;
AssignFile(reg,path);
Rewrite(reg);[color=red:30b0274deb]==>>Aqui dá o erro[/color:30b0274deb]
writeln(reg,maskedit1.text); //Hora da Gravação
writeln(reg,edit1.text);//Path da Gravação
writeln(reg,edit4.text);//IP do Servidor da TEC
writeln(reg,edit3.text);//O separador de campo
if cb1.Checked then writeln(reg,´tec´);
if cb2.Checked then writeln(reg,´naladi´);
if cb3.Checked then writeln(reg,´indice´);
if cb4.Checked then writeln(reg,´moedas´);
CloseFile(reg);
Se eu crio o arquivo, não dá erro. Mas se sobreescrevo-o, dá o erro de I/O.
Paulo
Curtir tópico
+ 0
Responder
Posts
17/01/2005
Marcio.theis
faça o seguinte:
{$I-}
Rewrite(reg);
{$I+}
{$I-}
Rewrite(reg);
{$I+}
Responder
Gostei + 0
17/01/2005
Massuda
O erro 32 significa que o arquivo está em uso por outro processo/programa.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)