PDA

Ver la Versión Completa : problemas para crear archivo texto


Manuel
12-05-2003, 19:48:58
tengo este simple ejemplo para crear a patir de una tabla de intebase un archivo de texto, pero no he conseguido hacerlo, el siguiente procedimiento a mi parecer crea el archivo tecto.txt y el escribe la linea hola, pero me marca el error I/O 103, estaré en lo correcto?.

procedure TForm1.Button1Click(Sender: TObject);
Var
t : TextFile;

Begin
assignFile(t, 'c:\texto.txt');
Reset(t);
write(t,'hola');
closeFile(t);
end;


end.

__marcsc
12-05-2003, 19:54:22
Hola,

ahora no recuerdo exactamente, pero creo que el problema está en que el reset te abre un fichero que ya existe, pero si no existe ta error. Prueba a cambiar el Reset por Rewrite, que crea y abre el fichero.

Saludos.

chutipascal
12-05-2003, 19:55:56
Hola

En lugar de :

reset(t);

Pon

rewrite(t);

Manuel
12-05-2003, 21:08:08
Gracias amigos lo era rewrite en vez de reset