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.
procedure TForm1.Button1Click(Sender: TObject);
Var
t : TextFile;
Begin
assignFile(t, 'c:\texto.txt');
Reset(t);
write(t,'hola');
closeFile(t);
end;
end.