Pascal/Turbo Pascal - Error 104 en delphi

 
Vista:

Error 104 en delphi

Publicado por LuisItig (12 intervenciones) el 12/11/2007 18:27:02
Hola, tengo un problema, he diseñado un programa que deberia leerme un fichero de texto y hacer lo que aparece en el codigo que os adjuntare ahora, el caso es que cuando introduzco la ruta (o la meto directamente) ,esta en la misma carpeta y demás, me refeiro qeu no es un error de ese tipo, me da un error 'I/O error 104' y no se a que puede deberse ,si podeis echarme una mano... el archivo es un txt normal y corriente...
GRACIAS Y UN SALUDO

TYPE
tTipo=(A,C,D,P,R,T);
tColor=(B,N);
tNumero=1..8;
tLetra='A'..'H';
tTablero= ARRAY [tNumero,tNumero] OF INTEGER;
tFicha=RECORD
tipo:tTipo;
color:tColor;
numero:tNumero;
letra:tLetra;
END;
VAR
archivo:TEXT;
direccion,lineaLeida:String;
tablero:tTablero;
todoCorrecto: Boolean;
puntosTB,piezasTB,puntosTN,piezasTN:integer;
begin
puntosTB:=0;
puntosTN:=0;
piezasTB:=0;
piezasTN:=0;
todocorrecto:=True;
Write('Introducir direccion fichero: ');
readln(direccion);
// direccion:='jugada.txt';
inicializarTablero (tablero);
assign (archivo,direccion);
WHILE NOT (EOF(archivo)) AND (todoCorrecto) DO
BEGIN
readln(archivo,lineaLeida);
analizarLinea(lineaLeida,todocorrecto,tablero);
IF (todoCorrecto) THEN
procesarLinea(lineaLeida,puntosTB,piezasTB,puntosTN,piezasTN,tablero);
END;
Writeln('/////////// JUGADOR NEGRO ///////////');
writeln('Numero total de piezas: ',piezasTN);
writeln('Numero total de puntos: ',puntosTN);
Writeln('/////////// JUGADOR BLANCO ///////////');
writeln('Numero total de piezas: ',piezasTB);
writeln('Numero total de puntos: ',puntosTB);
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Error 104 en delphi

Publicado por Diego Romero (996 intervenciones) el 12/11/2007 20:12:52
No has abierto el archivo con reset(); (y tampoco lo has cerrado con close();)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar