Majuscules en minuscule et inversement par fonction 'transfo'

Soyez le premier à donner votre avis sur cette source.

Vue 6 743 fois - Téléchargée 370 fois

Description

Une simple procédure rapide permettant de transformer du texte MAJUSCULE en texte minuscule. Modifiable facilement pour l'intégrer dans des modifications de textes.

Conclusion :


Allez voir : http://www.delphifr.com/article.aspx?Val=1789
la source de DelphiCool est sur le même principe mais se limitant à la transformation des accents...

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Nono40
Messages postés
1000
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
1 -
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.
g0belin
Messages postés
155
Date d'inscription
jeudi 6 décembre 2001
Statut
Membre
Dernière intervention
19 avril 2010
-
Auztrement utilise la procedure LowerCase('ton tetxt'); DE DELPHI

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.