japee
Messages postés1727Date d'inscriptionvendredi 27 décembre 2002StatutModérateurDernière intervention 6 novembre 20218 26 juil. 2004 à 12:59
JPM :
Uppercase(Edit1.Text) et LowerCase(Edit1.Text) va tout mettre en majuscule ou en minuscule, DUPONT et dupont, donc Dupont ou dupont seront ignorés... :dissapprove)
Deux fonctions vite fait :
function Majuscule(Chaine: String): String;
var Car: String;
begin
Car := AnsiUpperCase(Chaine[1]);
Delete(Chaine, 1, 1);
Result := Concat(Car, Chaine);
end;
function Minuscule(Chaine: String): String;
var Car: String;
begin
Car := AnsiLowerCase(Chaine[1]);
Delete(Chaine, 1, 1);
Result := Concat(Car, Chaine);
end;
qui convertissent le premier caractère d'une chaine en Majuscule et en minuscule.
L'avantage de AnsiUpperCase et AnsiLowerCase est qu'ils prennent également en charge les caractères étendus (É, par exemple).