Discussion :

[touhami]

Bon soir a tous,

SVP y a t il un moyen de convertir la première lettre seulement d'une chaîne de caractère en majuscule ?
Exemple :
vive le forum de Delphi => Vive le forum de Delphi

Bon developpment a tous.

[Pedro]

Salut

et UpperCase ou UpCase

[banban54]

bonsoir

à essayer du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
if ord(copy(chaine,1,1)) in[code ASCII..en minuscule] // j'ai plus les chiffres en tête!
  then chaine := chr(ord(copy(chaine,1,1)) -32 ) + copy(chaine,2,length(chaine))

à quelques parenthèses près ça devrait marcher!

à plus

[banban54]

pour quoi faire simple...

il est vrai qu'avec le Upcase de pedro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
chaine[1] := UpCase(chaine[1]);

parrait plus simple!!

[macumba]

chaine[1] := UpCase(chaine[1]);
parrait plus simple!!

Oui sauf que ca ne devrait marcher que pour les chaines courtes.

Il vaudrait mieux partir sur ta première idée mais pour simplifier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
  Chaine := Uppercase(LeftStr(Chaine,1)) + 
                RightStr(Chaine,Length(Chaine) -1);

[touhami]

Bonjour,
Merci a vous tous.

[ShaiLeTroll]

@macumba
tu peux accéder comme tu veux à tes caractères dans une chaine, ce n'est qu'un pointeur sur un tableau de char, avec le nombre de char et d'occurence en plus ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if Length(chaine) >= 1 then
  chaine[1] := UpCase(chaine[1]);

Serait le plus simple, le plus protégé ...