MAJUSCULES EN MINUSCULE ET INVERSEMENT PAR FONCTION 'TRANSFO'

cs_Nono40 Messages postés 962 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 12 septembre 2006 - 25 déc. 2002 à 04:42
g0belin Messages postés 155 Date d'inscription jeudi 6 décembre 2001 Statut Membre Dernière intervention 19 avril 2010 - 25 déc. 2002 à 13:01

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/12261-majuscules-en-minuscule-et-inversement-par-fonction-transfo

g0belin Messages postés 155 Date d'inscription jeudi 6 décembre 2001 Statut Membre Dernière intervention 19 avril 2010
25 déc. 2002 à 13:01

Auztrement utilise la procedure LowerCase('ton tetxt'); DE DELPHI

cs_Nono40 Messages postés 962 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 12 septembre 2006 2
25 déc. 2002 à 04:42

C'est pas top ton if then else de 52 lignes... Dans ce cas un case aurait été plus présentable. Mais en connaissant les valeurs des codes ASCII des lettres , on peut écrire :

Function transfo (lettre :string):string;
Var i:Integer;
begin
For i := 1 to Length(lettre) do
If Lettre[i]In ['A'..'Z','a'..'z']
Then Lettre[i]:=Char(Integer(Lettre[i])Xor $20);
Result := lettre;
end;

Sans oublier : UpperCase() pour tout mettre en majuscle et LowerCase pour tout mettre en minuscule...

Nono.

Discussions similaires

Majuscules - minuscules

Forcer une variable d'être en minuscule...

remise a zero de fonction

Calcul d'une puissance en C avec pow()

Effectuer une recherche sans tenir compte des majuscules/minuscules

Votre réponse

Discussions similaires