Pascal/Turbo Pascal - 'Type mismatch' - Duv Pascal

   
Vista:
Imágen de perfil de Francisco

'Type mismatch' - Duv Pascal

Publicado por Francisco (9 intervenciones) el 28/02/2016 20:14:49
Buenas tardes, quisiera saber si alguien sabría como solucionar este error que me tira. 'Error: type mismatch' sobre la sentencia de escritura en el archivo. Dejo el procedure escrito y sobresaltado el lugar del error. Gracias

Procedure PREFERENCIAS_CLIENTE;
BEGIN
REPEAT
CLRSCR;
WRITELN('BIENVENIDO');
WRITELN;
WRITELN('DESEA AGREGAR NUEVAS PREFERENCIAS?');
WRITE('1:Si / 2:No - ELIJA UNA OPCION: ');
READLN(OPC);
UNTIL (OPC>='1')AND(OPC<='2');
WHILE (OPC<>'2') DO
BEGIN
WRITELN('SELECCIONE UNA CATEGORIA PARA EL VEHICULO');
WRITE('1:Full 2:Premium 3:Super 4:Base 5:Cualquiera - ELIJA UNA OPCION: ');
READLN(REGISTRO2.CATEGORIA);
WRITELN('SELECCIONE ESTADO DE USO PARA EL VEHICULO');
WRITE('A:0KM B:Ultimo modelo C:Nuevo D:Usado E:Cualquiera - ELIJA SU OPCION: ');
READLN(REGISTRO2.ESTADO);
WRITELN('SELECCIONE MODALIDAD DE TARIFA');
WRITE('A:Por KM B:Por Dia C:Por Mes - ELIJA SU OPCION: ');
READLN(REGISTRO2.TARIFA);
SEEK(ARCHI,FILESIZE(ARCHI));
WRITE(ARCHI,REGISTRO2);
CLRSCR;
WRITE('PREFERENCIAS CARGADAS CORRECTAMENTE');
REPEAT
CLRSCR;
WRITELN('BIENVENIDO');
WRITELN;
WRITELN('DESEA AGREGAR NUEVAS PREFERENCIAS?');
WRITE('1:Si / 2:No - ELIJA UNA OPCION: ');
READLN(OPC);
UNTIL (OPC>='1')AND(OPC<='2');
END;
MENU;
END;
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

'Type mismatch' - Duv Pascal

Publicado por David (144 intervenciones) el 29/02/2016 11:47:48
Deberías poner también la declaración de datos. sin ella se hace difícil saber a que datos se hace referencia al escribir en el archivo
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

"Type mismatch" - Duv Pascal

Publicado por ramon (2072 intervenciones) el 05/03/2016 13:10:01
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
{mira esto}
 
 program cliente;
 uses
    crt;
 type
    datosclie = record
            categoria : char;
            estado : char;
            tarifa : char;
            end;
 
 var
    opc : char;
    registro2 : datosclie;
    archi : file of datosclie;
 
 
 function abrir : boolean;
 begin
    assign(archi,'Datoclie.dat');
 {$I-} reset(archi); {$I+}
    if ioresult <> 0 then
    begin
       abrir := false;
    end
  else
     begin
        abrir := true;
     end;
 end;
 
 procedure cerrar;
 begin
    if abrir  = true then
    close(archi);
  end;
 
 function crear(regis : datosclie ) : boolean;
 begin
    assign(archi,'Datoclie.dat');
 {$I-} reset(archi); {$I+}
    if ioresult <> 0 then
    begin
       rewrite(archi);
       seek(archi,0);
       write(archi,regis);
       close(archi);
       crear := true;
    end
  else
     begin
        crear := false;
     end;
 end;
 
 
 Procedure PREFERENCIAS_CLIENTE;
 var
   realizado : boolean;
 BEGIN
  realizado := false;
 REPEAT
 CLRSCR;
 WRITELN('BIENVENIDO');
 WRITELN;
 WRITELN('DESEA AGREGAR NUEVAS PREFERENCIAS?');
 WRITE('1:Si / 2:No - ELIJA UNA OPCION: ');
 READLN(OPC);
 UNTIL (OPC>='1')AND(OPC<='2');
 WHILE (OPC<>'2') DO
 BEGIN
 WRITELN('SELECCIONE UNA CATEGORIA PARA EL VEHICULO');
 WRITE('1:Full 2:Premium 3:Super 4:Base 5:Cualquiera - ELIJA UNA OPCION: ');
 READLN(REGISTRO2.CATEGORIA);
 WRITELN('SELECCIONE ESTADO DE USO PARA EL VEHICULO');
 WRITE('A:0KM B:Ultimo modelo C:Nuevo D:Usado E:Cualquiera - ELIJA SU OPCION: ');
 READLN(REGISTRO2.ESTADO);
 WRITELN('SELECCIONE MODALIDAD DE TARIFA');
 WRITE('A:Por KM B:Por Dia C:Por Mes - ELIJA SU OPCION: ');
 READLN(REGISTRO2.TARIFA);
 if abrir = false then
 begin
 crear(REGISTRO2);
 realizado := true;
 end;
 if realizado = false then
 begin
 SEEK(ARCHI,FILESIZE(ARCHI));
 WRITE(ARCHI,REGISTRO2);
 cerrar;
 end;
 CLRSCR;
 WRITE('PREFERENCIAS CARGADAS CORRECTAMENTE');
 REPEAT
 CLRSCR;
 WRITELN('BIENVENIDO');
 WRITELN;
 WRITELN('DESEA AGREGAR NUEVAS PREFERENCIAS?');
 WRITE('1:Si / 2:No - ELIJA UNA OPCION: ');
 READLN(OPC);
 UNTIL (OPC>='1')AND(OPC<='2');
 END;
 END;
 
   begin
      PREFERENCIAS_CLIENTE;
   end.
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