Télécharger le zip
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.
Auztrement utilise la procedure LowerCase('ton tetxt'); DE DELPHI
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 871 935 membres 14 nouveaux aujourd'hui 16 147 membres club