1. Accueil
  2. Tous les snippets
  3. Snippets Delphi / Pascal
  4. Mettre la premiere lettre d'une string en majuscule.

Mettre la premiere lettre d'une string en majuscule.

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 285 fois - Téléchargée 29 fois

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

Ajouter un commentaire

Commentaires

Signaler
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
 1
Non, ce n'est pas un retour ici. C'est juste que j'ai trouvé le challenge de passer de 2 ligne à une ligne amusant.

En assembleur ? Non, travailler sur des String en asm c'est la croix et la banière et ça fait appel à des fonctions cachées de gestion de la mémoire...
Signaler
Messages postés
19
Date d'inscription
dimanche 14 mars 2004
Statut
Membre
Dernière intervention
27 mars 2004
alors comme il vous faut une réponse pour vous départager, le but était uniquement de mettre la premiere lettre en majuscule, sans pour autant toucher au reste. Cependant (eh oui je vais vous faire chier ;-)!) le fait de tout mettre en minuscule n'altere en rien le traitement qui est fais derriere et donc peut tres bien etre inclus !!!
Allez je tranche ds le vif et je vous declare tous ex-aequo !!!
ben moi je pensais pas qu'une p'tite fonction de rien du tt allait autant declencher les passions ! merci de votre aide qd mm ! j'espere que vous serez la qd j'aurais d'autres pb ou d'autres sources a deux balles a vous soumettre !!!
Signaler
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
 27
Delphicool : les sous-entendus sont souvent à l'origine de malentendus !... [:o].
Comme tu l'as écrit, attendons la réponse de Sonnikk à ce sujet.
Donc, pas de vainqueur tant que ce point n'est pas clarifié.

Alors Nono40, le retour ? ;o) Tu ne nous ferais pas une petite version en assembleur, juste pour le fun ?
A+
Signaler
Messages postés
455
Date d'inscription
mardi 24 juillet 2001
Statut
Modérateur
Dernière intervention
10 mars 2009
Est le vainquer est ..... Nono ;D

Delphiprog, pour moi ça semble logique, si tu souhaites la première lettre en Maj, c'est que tu veux la suite en Min.
J'ai pensé la même chose de ton code des que je l'ai vu.

Il n'y as que l'auteur qui pourras le dire.
Signaler
Messages postés
1717
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
23 juin 2020
 3
Par ailleurs, Nono40, ton code peut paraître au premier abord plus compliqué, mais en fait il est si simple... (c'est l'histoire de l'oeuf de Colomb).
Content d'avoir de tes nouvelles ;)
Bon, j'y vais, moi, demain je vais avoir du mal...
Afficher les 29 commentaires
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.