TStrings.UpperCase
| TStrings = class (TObject) | Interface de TStrings | Exemples de TStrings |
Passe toutes les chaînes en majuscule
Syntaxe
procedure UpperCase()
Remarques
- Les caractères en minuscule accentuée ne sont pas passés en majuscule.
Voir aussi
Exemples
var liste := TStrings.Create;
liste.Commatext := 'Paul,Pierre,Jacques,Hervé';
liste.UpperCase;
InformationDlg(liste.CommaText); // Affiche 'PAUL,PIERRE,JACQUES,HERVé'
liste.Commatext := 'Paul,Pierre,Jacques,Hervé';
liste.UpperCase;
InformationDlg(liste.CommaText); // Affiche 'PAUL,PIERRE,JACQUES,HERVé'