Ver Mensaje Individual
  #1  
Antiguo 09-02-2007
Avatar de jorgegetafe
jorgegetafe jorgegetafe is offline
Miembro
 
Registrado: dic 2006
Posts: 238
Reputación: 18
jorgegetafe Va por buen camino
Ayuda con error en codigo porfa!

Teniendo estas declaraciones:

Código Delphi [-]
 
PROGRAM Prac_3b_1;    {$APPTYPE CONSOLE}
USES
  SysUtils, crt;
TYPE
  nucleotidos = RECORD
    abreviatura: char;
    nombre: STRING [8];           (* Ponemos un limite para evitar el error: "type lista needs finalization - not allowed in file type " *)
    tipo: STRING [12];            (* Ponemos un limite para evitar el error: "type lista needs finalization - not allowed in file type " *)
  END;
  lista = ARRAY [1..5] OF nucleotidos;
  tablaNucleotidos= lista;
  fichero =  FILE OF tablaNucleotidos;
VAR
  ficheroTablaNucleotidos: fichero;
  eleccion: STRING;
  yaIntroducidoTablaNucleotidos: boolean;

y este procedimiento:

Código Delphi [-]
 
(******************************************************************************)
PROCEDURE cargaManual;
  VAR
    i:integer;
  BEGIN
    assign (ficheroTablaNucleotidos, paramStr(1));
    rewrite(ficheroTablaNucleotidos);
    FOR i:= 1 TO 5 DO
      BEGIN
        clrscr();
        writeln ('Introduce el nucleotico numero: ',i,'.');
        read (tablaNucleotidos[i].nombre); (* ERROR DICE QUE FALTA UN PARENTESIS, PERO LO QUE FALLA ES OTRA COSA *)
        write (ficheroTablaNucleotidos, tablanucleotidos[i].nombre); (* ESTO ESTA ASI BIEN? *)
        clrscr(); 
        writeln ('Su abreviatura es: ', UpCase(tablaNucleoticos[i].nombre[1]),'.');
        tablaNucleoliticos[i].abreviatura:= UpCase(tablaNucleoticos[i].nombre[1];
        write (ficheroTablaNucleotidos, tablaNucleoliticos[i].abreviatura);
        readln;
        clrscr();
        writeln ('Escribe el tipo del neucleotido' ,tablaNucleotidos[i].nombre,'.');
        read (tablaNucleoticos[i].tipo);
        write (ficheroTablaNucleotidos, tablaNucleoticos[i].tipo);
      END;
    close (ficheroTablaNucleotidos);
    yaIntroducidoTablaNucleotidos:= true;                                       (* Para que la proxima vez se introduzca por fichero *)
  END;
(******************************************************************************)

A ver si me podeis ayudar con el error que tengo al leer, que le he dado vueltas y nada.

Y me gustaria saber si estoy escribiendo bien en el fichero.

muchas gracias!

Última edición por jorgegetafe fecha: 09-02-2007 a las 15:26:56.
Responder Con Cita