1Ere Lettre Majuscule

Question

Bonjour,

Voila je travaille sur une base de donnée, et il faut que j'empeche l'utilisateur ( mon prof ) de taper n'importe quoi ;)
Alors voila il faudrait que chaque champs string entré aient la la premier lettre majuscule et tout le reste minuscule ?
Quelle qu'un a une idée comme faire ?

Merci

japee · Answer

Ben, si tu en parles calmement à ton prof, tu devrais le convaincre de ne pas taper n'importe quoi dans ton champ (après tout, c'est le tien...)
Je rigole, excuse moi, j'ai pas pu m'empêcher...  :big)

japee · Answer

Bon, c'est facile de faire le malin.  :clown) 
Mais finalement, je n'ai pas fait mieux que ceci :

function UpCaseFirstChar(Str: String): String;
var FirstChar: Char;
begin
  FirstChar := UpCase(Str[1]);
  Result := FirstChar + Copy(Str, 2, Length(Str) - 1);
end;


Bonne prog'  :-p

cs_Delphiprog · Answer

Qui dit premier caractère en majuscules sous-entend le reste en minuscules !

function UpCaseFirstChar(AString: string):string;
begin
  AString := LowerCase(AString);
  AString[1] := UpCase(AString[1]);
  Result := AString;
end;


Il n'y a que l'embarras du choix !

Pour Japee : la fonction UpCase renvoie un résultat de type Char. Or, nous voulons mettre uniquement le premier caractère en majuscules. L'opération ne portera alors que sur le premier caractère de la chaine reçue. Il est donc inutile de déclarer une variable locale de type Char.

japee · Answer

Heu, ta fonction ne marche pas, Delphiprog (sauf erreur).
On dirait que ça devrait, mais ça ne marche pas...
Je me suis effectivement bien euh... surmené les neurones là-dessus, mais c'est "mariolle", semble-t'il, comme dirait mon beauf  :dissapprove) 
Delphi soit avec toi aussi.

japee · Answer

P-S: Ma fonction renvoie bien un résultat de type String, c'est la mise en page du site qui peut induire en erreur.

japee · Answer

Je m'aperçois que ma fonction n'est pas protégée si la chaîne envoyée est vide, d'où ce correctif :

function UpCaseFirstChar(Str: String): String;
var FirstChar: Char;
begin
  if Str = EmptyStr then Exit;
  FirstChar := UpCase(Str[1]);
  Result := FirstChar + Copy(Str, 2, Length(Str) - 1);
end;


Bonne prog'

cs_Delphiprog · Answer

Bizarre, ma fonction marche avec moi !...(sauf si la chaine reçue est vide, évidemment).
En revanche, je n'avais pas envisagé ce dernier cas !
Bien vu Japee et merci  :)

ProphetKy · Answer

Un TRES grand merci à tous 
Normalement les chaines vide ne devrait pas trop poser de probleme je ferai un test avant d'appeler la fonction 

Fred

japee · Answer

Delphiprog :
Ta fonction "fonctionne" sans problème. C'est moi qui devait moin bien "fonctionner" à une heure aussi tardive !
Excuse-moi.  :blush)

japee · Answer

Oh la la...
C'est moi qui devais moins bien "fonctionner"...
Je ne supporte pas MES fautes d'orthographe  ;)

1Ere Lettre Majuscule

10 réponses

Votre réponse

Discussions similaires