Hola, resulta que tengo este problema y no se me ocurre una solucion.
Mediante un programa le pido al usuario que indique la ubicacion del archivo que se utilizara. Ahora, en caso de que el usuario se equivoque e ingrese algo como "c:\mis documentos\\\" al querer crear el archivo, el programa pincha. Lo mismo se aplica si por ejemplo el usuario da una direccion con carpetas inexistentes.
Como podria detectar el error antes de que pinche?
program direcciones;
uses
crt,dos;
type
tarchivo= file of string;
var
rutas:tarchivo;
nomb,nombres:string;
function validar():string;
var
s:string;
c:char;
validos:set of char;
n:integer;
cod:longint;
Begin
s:='';
validos:=['a'..'z','\',':','.'];
repeat
c:=readkey;
if c in validos then
begin
write(c);
s:=s+c;
end
until c=#13;
validar:=s;
end;
begin
clrscr;
assign(rutas,'rutas.dat');
rewrite(rutas);
write('Ingrese ruta del archivo de facturas:');
nombres:=validar();
write(rutas,nombres);
close(rutas);
reset(rutas);
read(rutas,nombres);
close(rutas);
assign(nomb,nombres);
{$I-}
reset(nomb);
{$I+}
if (ioresult<>0) then
rewrite(nomb);
write(nomb,'pepe');
close(nomb);
readkey;
end.
Desde ya muchas gracias
Mostrar Mensajes
Perdon por las molestias, borren el topic.
