Remplacer le texte par des * dans un readln

Commenter

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

S'inscrire maintenant

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.

Du même auteur (Glorkonline)