MAJUSCULES EN MINUSCULE ET INVERSEMENT PAR FONCTION 'TRANSFO'

Commentaire de Nono40 le 25/12/2002 04:42:20

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.