Duda sobre expresion
Publicado por Horacio Daniel Belardita (53 intervenciones) el 06/12/2011 13:34:38
Hola gente del foro queria consultarles por ej tengo este fragmento de codigo
La pregunta es que hace el numeral # por ej si podrian explicarme donde dice si tec = # 72 entonces que seria.desde ya gracias saludos
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
begin
opcion := 1;
salir := false;
y := 4;
repeat
gotoxy(10,2);write('**** Menu General ****');
gotoxy(10,4);write('Entrada Datos');
gotoxy(10,5);write('Modifica Datos');
gotoxy(10,6);write('Borrar Empleado');
gotoxy(10,7);write('Salvar Datos');
gotoxy(10,8);write('Muestra Datos');
gotoxy(10,9);write('Salir');
gotoxy(10,11);write('Elija opcion con [',chr(24),chr(25),'] y [Enter]');
gotoxy(5,y);write('|=|>');
tec := readkey;
clrscr;
if tec = #72 then
begin
opcion := opcion - 1;
if opcion < 1 thenopcion := 1;
y := y - 1;
if y < 4 theny := 4;
end;
if tec = #80 then
begin
opcion := opcion + 1;
if opcion > 6 thenopcion := 6;
y := y + 1;
if y > 9 theny := 9;
end;
if tec = #13 then
begin
case opcion of
1 : entrada_datos_empleado; 2 : modificaciones; 3 : bajaempleado; 4 : guardardatos; 5 : muestradatos;6 : salir := true;
end;
end;
until salir = true;end;
La pregunta es que hace el numeral # por ej si podrian explicarme donde dice si tec = # 72 entonces que seria.desde ya gracias saludos
Valora esta pregunta
0