Erro de I/O 32

Delphi

17/01/2005

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

Paulo

Curtidas 0

Respostas

Marcio.theis

Marcio.theis

17/01/2005

faça o seguinte:

{$I-}
Rewrite(reg);
{$I+}


GOSTEI 0
Massuda

Massuda

17/01/2005

O erro 32 significa que o arquivo está em uso por outro processo/programa.


GOSTEI 0
POSTAR