Connaître la casse d'un caractère

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 387 fois - Téléchargée 19 fois

Contenu du snippet

Rien de bien énorme...
Savoir si un caractère est une majuscule, une minuscule, un chiffre ou une ponctuation.
Y compris les caractères accentués...
Normalement, il y a pas de bug....

Source / Exemple :


function IsMin(c:char):boolean;
begin
 result:=(c=ansilowercase(c)) and (ansiuppercase(c)<>ansilowercase(c));
end;

function IsMaj(c:char):boolean;
begin
 result:=(c=ansiuppercase(c)) and (ansiuppercase(c)<>ansilowercase(c));
end;

function IsNum(c:char):boolean;
begin
 result:=c in ['0'..'9'];
end;

Function IsPonct(c:char):boolean;
begin
 result:=(ansiuppercase(c)=ansilowercase(c)) and not (c in ['0'..'9']);
end;

A voir également

Ajouter un commentaire

Commentaires

Messages postés
4715
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
27 mars 2018
12
et le mien aussi !
Messages postés
3815
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
4 août 2020
35
C'est quand même fort voilà qu'on me supprime mon message maintenant !!!!
Messages postés
243
Date d'inscription
lundi 30 octobre 2000
Statut
Membre
Dernière intervention
15 juillet 2013

non pas que se soit ma source, mais je suis un peu d'accord avec tout le monde (sans vouloir trop prendre partie...).

Vu les fonctions IsCharMachin, les fonctions n'ont strictement aucun intérêt. Je vous l'accorde....
Quand a proposer une fonction qui prend un paramètre, et renvoie un truc, c'est peut-être du niveau débutant et ça donne un exemple de fonction. Mouai... à la rigueur...
Bref, je me sens tomber bien bas dans ce cas là...

Enfin, si vous insistez, je poste une fonction qui calcule le PGCD.... ;-)...

Barbichette
Messages postés
3815
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
4 août 2020
35
Juste pour information :

Ces fonctions existent au moins depuis Delphi4 et fonctionnent parfaitement avec les caractères accentués.

Ensuite réinventer la roue ... oui mais pour qu'elle tourne mieux ... si c'est pour revenir à la roue en bois voir en pierre je ne vois pas l'utilité.

Vous êtes entrain de vous extasier sur de simples évaluations booléenne.
Messages postés
4715
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
27 mars 2018
12
vite Barbichette, fais nous
une belle petite anim dont tu as
le secret avant qu'on te mange en salade !
Afficher les 13 commentaires

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.