Mettre la premiere lettre d'une string en majuscule.

Commenter

Contenu du snippet

le titre parle de lui meme. c'est une fonction tte bete pour mettre la premiere lettre en majuscule.

Source / Exemple : 


Function casseMaj(donnee : string):string;
var
  i : integer;
  retour : String;
begin
  retour := UpperCase(donnee[1]);
  for i:=2 to (length(donnee)+1) do
  begin
    retour := retour+donnee[i];
  end;
  casseMaj := retour;
end;

apres prise en compte de vos commentaires, nouvelle fonction :
(spécification : la chaine n'est pas vide !)

le pb est donnee est string, donnee[1] est Char. que faire pour que ca marche ?

Function casseMaj(donnee : string):string;
begin
Donnee := LowerCase(Donnee);
Donnee[1] := UpperCase(Donnee[1]);
casseMaj := Donnee;
end;

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.