Remplacer le texte par des * dans un readln

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 846 fois - Téléchargée 34 fois

Contenu du snippet

Bon, en fait, c'est pas tout à fait un readln, mais çà s'inscrit dans une string.

Source / Exemple :


function askpassword (passwordchar : char; minlength, maxlength : Longint) : String;
var
 C : Char;
 S : String;
begin
S := '';
Repeat
C := Readkey;
If ((C <> chr(13)) and (C <> chr(8)) and (length(S) <> maxlength)) then Write(passwordchar);
If ((C <> chr(13)) and (C <> chr(8))and (length(S) <> maxlength)) then S := S + C;
If length(S) = maxlength then write(chr(7));
If C = chr(8) then S := '';
If ((C = chr(13)) and (length(S) < minlength)) then Write(chr(7));
Until ((C = chr(13)) and (length(S) > minlength - 1));
askpassword := S;
end;

appelez la fonction comme ça :
var
 password : String;
begin
password := askpassword(<le caractère qui remplacera les lettres (souvent '*')>,<le length minimum du password si pas : 0>,<le length maximum fu password si pas : -1>);
end.

Conclusion :


Glorkonline --- Glorkonline.be.tf --- Glorkonline@hotmail.com

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.