Pascal/Turbo Pascal - no puedo compilar units

   
Vista:

no puedo compilar units

Publicado por franco sanguedolce (32 intervenciones) el 17/04/2013 16:39:24
Hola gente, estoy teniendo un problema que me esta dando mucho dolor de cabeza,
He estado trabajando en una unit que necesito para ahorrarme mucho trabajo
El tema es que cuando decidi compilar una unit y despues de que escribi tooooda la unidad cuando intento compilarla me sale un error: ILLEGAL UNIT NAME...
trate cambiando el nombre pero nada, cada nombre qe le pongo lo rechaza, a que se debe este error??? Por favor necesito una solucion rapida! Uso free pascal 2.6.0
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

no puedo compilar units

Publicado por ramon (2072 intervenciones) el 17/04/2013 18:17:58
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
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
{Mira esta unidad del ratón y compara el fallo que tienes compilando la
ten presente que el nombre de la unidad tiene que ser el mismo de ella
o sea  (unimouse) }
 
unit unimouse;
 interface
 uses
    dos;
 var
   regs : registers;
   raton : boolean;
   pulsado : integer;
 
  function raton_presente : boolean;
  procedure muestra_raton;
  procedure oculta_raton;
  function posx_raton : word;
  function posy_raton : word;
  function boton_raton : word;
  procedure pon_posicion_raton(xp, yp : word);
  procedure ventana_raton(xv, yv, xxv, yyv : word);
  procedure sensib_raton(xs, ys : word);
  procedure pulsa_boton(var pulsado : integer; boton : byte);
  procedure relacion_pixel_mickeys(px, py : integer);
  implementation
  function raton_presente : boolean;
  begin
      regs.ah := $00;
      regs.al := $00;
      intr($33,regs);
      if regs.ax <> 0 then
      raton_presente := true
    else
      raton_presente := false;
  end;
  procedure muestra_raton;
  begin
      raton := false;
      if raton_presente then
      begin
          regs.ah := $00;
          regs.al := $01;
          intr($33,regs);
          raton := true;
      end;
  end;
  procedure oculta_raton;
  begin
      if raton = true then
      begin
         regs.ah := $00;
         regs.al := $02;
         intr($33,regs);
         raton := false;
       end;
  end;
  function posx_raton : word;
  begin
      posx_raton := 0;
      regs.ah := $00;
      regs.al := $03;
      intr($33,regs);
      posx_raton := regs.cx
  end;
  function posy_raton : word;
  begin
      posy_raton := 0;
      regs.ah := $00;
      regs.al := $03;
      intr($33,regs);
      posy_raton := regs.dx
  end;
  function boton_raton : word;
  begin
      boton_raton := 0;
      regs.ah := $00;
      regs.al := $03;
      intr($33,regs);
      boton_raton := regs.bx
  end;
  procedure pon_posicion_raton(xp, yp : word);
  begin
      regs.ah := $00;
      regs.al := $04;
      regs.cx := xp;
      regs.dx := yp;
      intr($33,regs);
  end;
  procedure ventana_raton(xv, yv, xxv, yyv : word);
  begin
      regs.ah := $00;
      regs.al := $07;
      regs.cx := xv;
      regs.dx := xxv;
      intr($33,regs);
      regs.ah := $00;
      regs.al := $08;
      regs.cx := yv;
      regs.dx := yyv;
      intr($33,regs);
  end;
  procedure sensib_raton(xs, ys : word);
  begin
      regs.ah := $00;
      regs.al := $1A;
      regs.bx := xs;
      regs.cx := ys;
      regs.dx := 32;
      intr($33,regs);
  end;
  procedure pulsa_boton(var pulsado : integer; boton : byte);
  begin
      regs.ah := $00;
      regs.al := $05;
      regs.bx := boton;
      intr($33,regs);
      pulsado := regs.bx;
  end;
  procedure suelta_boton(var suelto : integer; boton : byte);
  begin
      regs.ah := $00;
      regs.al := $06;
      regs.bx := boton;
      intr($33,regs);
      pulsado := regs.bx;
  end;
  procedure relacion_pixel_mickeys(px, py : integer);
  begin
      regs.ah := $00;
      regs.al := $0f;
      regs.cx := px;
      regs.dx := py;
      intr($33,regs);
  end;
 begin
 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

no puedo compilar units

Publicado por franco sanguedolce (32 intervenciones) el 17/04/2013 19:35:31
ramon a pesar de intentar compilar la unit que me pasaste sigue saliendo ese error,

error: illegal unit name:unitmouse

no se que hacer la verdad
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

no puedo compilar units

Publicado por ramon (2072 intervenciones) el 17/04/2013 20:57:56
Me puedes decir que pascal estas usando
fíjate que el nombre del archivo pas debe ser (unimouse.pas) no otro
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

no puedo compilar units

Publicado por franco sanguedolce (32 intervenciones) el 17/04/2013 21:36:39
uso free pascal 2.6.0 y tamb tengo pascal gui para android
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

no puedo compilar units

Publicado por ramon (2072 intervenciones) el 18/04/2013 21:12:03
Compilado en free pascal 2,6 compila perfectamente sin problema.
Revisa lo con tranquilidad.
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

no puedo compilar units

Publicado por santi (1 intervención) el 30/10/2013 15:56:19
Loco el nombre de la unit y del archivo .pas tienen que ser iguales ;)
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

no puedo compilar units

Publicado por ramon (2072 intervenciones) el 30/10/2013 18:46:10
Si de lo contrario no la reconoce.
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