• Viernes 8 de Noviembre de 2024, 23:06

Autor Tema:  Conversion De Caracteres  (Leído 1244 veces)

sonnyalejandro

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Conversion De Caracteres
« en: Domingo 20 de Abril de 2008, 09:39 »
0
hola a todos....

quisiera saber si se puede al momento de digitar cualquier cadena por ejemplo

forever que se vaya convirtiendo en asterico pa que vaya quedando de esta manera
ejemplo: password: ******

es que se me ocurrio una pequeña idea que cuando compile el programa me salga un mensaje pidiendo un password pero no doy para convertir dichas letras en asterisco para que se vea mas real.........

el codigo es algo asi ...... si tiene errores despues los corrijo solo es para que me ayuden.....

porgram pass;
uses crt;
var
clave,clave1:string;
clave='forever';
begin
repeat
write('digite la clave: ');
read(clave1);
until clave1=clave
end.


gracias por su colaboracion

Enko

  • Miembro de PLATA
  • *****
  • Mensajes: 1562
  • Nacionalidad: 00
    • Ver Perfil
Re: Conversion De Caracteres
« Respuesta #1 en: Domingo 20 de Abril de 2008, 18:57 »
0
Deberías usar la funcion ReadKey que lee un caracter y no lo escribe en la pantalla.
La idea seria, lees un caracter, lo sumas a la cadena contrasеña y dibujas un * hasta que se ingrese la tecla ENTER.
Código: Text
  1.  
  2. const
  3.     RETURN = #27;
  4. var
  5.     Pass: String;
  6.     Ch: Char;
  7. begin
  8.     Pass := '';
  9.     Ch := ReadKey;
  10.     while(Ch <> RETURN) do
  11.     begin
  12.        Pass := Pass + Ch;
  13.        Write('*');
  14.        Ch := ReadKey;
  15.     end;
  16.     Writeln;
  17.     Writeln(Pass);
  18.     Readln;
  19. end.
  20.  
  21.