Évolution 1.1
Mise à jour de l’écran de veille Évolution.
Voir la page principale.
Maintenant la possibilité de choisir la taille du caractère.
Fonction ‘RandChar’ simplifiée pour la recherche au hasard parmi les caractères. Les mutations sont plus rapides.
Fonction de la version 1.0:
type
chSet = set of char;
const
mySet: chSet = [#32..#127, #224, #225, #226, #228, #231,
#232, #233, #235, #238, #239, #244, #246, #249, #251, #252];
function RandChar: char;
begin
repeat
Result := Char(random(256));
until Result in mySet;
end;Fonction de la version 1.0
const
CharsToUse: array[0..76] of Char = 'abcdefghijklmnopkrstuvwxyzéèêëà âäîïôöûüùç0123456789ABCDEF
GHIJKLMNOPKRSTUVWXYZ';
function RandChar: char;
begin
Result := Char( CharsToUse[ Random( Length( CharsToUse ) ) ] );
end;
Tags: Code Delphi, Programmation
Développement logiciel, bases de données, client-serveur, et contenu web. Québec QC Canada. Contact.
