While en pascal Problema

[¡Micronet!]

 
lo ce, lo ce he estado preguntando mucho pero esque estoy muy oxidado en pascal y como no lo uso mucho :/...
y ahurita tengo un proyecto que estoy haciendo, entonces mi problema es el siguiente:

Código (pascal) [Seleccionar] Expandir

procedure EstadoT2;
//Pendiente: Hexadecimal a Entero
var
  c : char;
  Numero: integer;
begin
{$ifdef DEBUG}
  writeln(stderr,'Estado T2');
{$endif}
  Avanzar;
  c := Leer;
[glow=green,2,300] while c in ['a'..'f'] or ['0'..'7'] or ['A'..'F'] do
  begin
    S := S + c;
    Avanzar;
    c := Leer;
  end;[/glow]
Numero:=  HextoInt(S);


  writeln('Token ID reconocido: ', S);
end;



Nota: HextoInt ya lo tengo declarado como una funcion , mi problema es en el while
quiero hacer esa condicion y no me funciona
alguien podria ayudarme porfavor ¿?

[Khronos14]

El bucle se declararía así:

Código (delphi) [Seleccionar] Expandir


while(c in ['a'..'f', '0'..'7', 'A'..'7']) do
  begin
     ....
  end;


Saludos.

[flacc]

todavía se usa pascal? 

[xassiz~]

todavía se usa pascal? 

Digamos que object pascal (Delphi y esas cosas).

Pero en muchas universidades comienzan con Pascal para la gente que no programó en su vida, dicen que es bueno para empezar a coger lógica y entender como va la programación

[skapunky]

Se programa mucho en pascal, muchos antivirus tienen modulos hechos totálmente en pascal, por ejemplo Kaspersky.

El desuso de pascal no es culpa de su potencial que tiene mucho, es culpa de que cada vez se orienta mas todo a la programación en C y sus "derivados" como java y similares, esto se debe al avance de aplicaciónes que usan este lenguaje y derivados como són las aplicaciónes para telefonía entre otras.