11/12/2003, 21:41
|
| | | Fecha de Ingreso: diciembre-2003
Mensajes: 13
Antigüedad: 20 años, 5 meses Puntos: 0 | |
| Se me ocurrio esto preo te anticipo que no tengo Pascal para probarlo, o sea no se si anda o tiene errores.
Function LeerContrasena:string;
Var Kb:Char;
Cadena:String;
Begin
Cadena:=' ';
Repeat
if Keypressed then
Begin
Kb:=Readkey;
if Kb <>Chr(13)
Begin
Cadena:=Cadena+Kb;
Write('*');
End;
End;
Until Kb = Chr(13)
LeerContrasena:=Cadena;
End;
Despues en el programa principal ya sabras lo que tenes que hacer, Cualquier cosa pregunta de nuevo. |