cs_mark1518
Messages postés dimanche 7 décembre 2008Date d'inscription
6 décembre 2010
Dernière intervention
-
30 sept. 2009 à 12:44 - Dernière réponse : youhibadelphi187
Messages postés jeudi 16 octobre 2008Date d'inscription
20 février 2010
Dernière intervention
- 3 oct. 2009 à 19:50
bonjour, j'aide un ami dans le développement d'un système d'information pour son projet de fin d'études, si vous voulez m'aider SVP
j'ai oublier comment faire pour que l'application ne se plante pas lorsque ont oublie la saisie d'une date, j'utilise un maskedit
par exemple pour faire un contrôle d'un Teditil suffit de faire le code suivant:
if edit1.GetTextLen=0 then
begin
showmessage('le champs de saisie est vide');
exit;
end;
mais avec une date sa ne marche pas
et comment forcer le premier caractère d'un edit pour il devient majuscule
merci
procedure TForm1.MaskEdit1Change(Sender: TObject);
begin
{ Teste la validité de la date, déclenche une erreur si incorrecte }
if StrToDateDef(MaskEdit1.Text, -1) = -1 then
begin
MaskEdit1.Text := '';
raise Exception.Create('La date est incorrecte !');
end;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
{ Met le premier caractère en majuscules }
if Length(Edit1.Text) > 0 then Edit1.Text[1] := Uppercase(Edit1.Text[1])[1];
end;
Cordialement, Bacterius !
Cette réponse vous a-t-elle aidé ?Merci pour votre retour.
N'oubliez pas de prendre quelques secondes pour remercier l'auteur : Merci pour votre retour.
Nous sommes désolés. Notre objectif est de vous donner la meilleure réponse possible.
cs_mark1518
Messages postés dimanche 7 décembre 2008Date d'inscription
6 décembre 2010
Dernière intervention -30 sept. 2009 à 19:26
+1
Utile
merci 100000000 fois merci Bacterius, il reste une chose si tu veut m'aider
dans un combobox ou un db combobox on lesse le 1ere Items vide pour que lorsque en fait l'enregistrement des donner s'effacent
si tu peut m'aider encore
et surtout merci infiniment
Cette réponse vous a-t-elle aidé ?Merci pour votre retour.
N'oubliez pas de prendre quelques secondes pour remercier l'auteur : Merci pour votre retour.
Nous sommes désolés. Notre objectif est de vous donner la meilleure réponse possible.
salut
pour la date je te propose d'ajouter un datetimepicker dans ton projet
Edit1.Text := dateTimeToStr(DateTimePicker1.Date);
pour éviter les erreurs.
bonne chance.
yahia
Cette réponse vous a-t-elle aidé ?Merci pour votre retour.
N'oubliez pas de prendre quelques secondes pour remercier l'auteur : Merci pour votre retour.
Nous sommes désolés. Notre objectif est de vous donner la meilleure réponse possible.
Salut bacterius
J'ai essaye ton code concernant la première lettre en majuscule dans un dblookupcombobox.
Le code:
procedure tform1.edit1change(sender: tobject);
Begin
{ met le premier caractère en majuscules }
if length(edit1.text) > 0 then edit1.text[1] := uppercase(edit1.text[1])[1];
end;
Mais Delphi m'affiche une erreur dans la ligne suivante
Cirec4217
Messages postés vendredi 23 juillet 2004Date d'inscription
3 avril 2018
Dernière intervention - 3 oct. 2009 à 15:01
0
Utile
Salut,
UpCase & LowCase --> pour un caractère
UpperCase & LowerCase --> pour une chaine de caractères
sinon pour être certain d'avoir le premier caractère en majuscule et tous les suivants en minuscules voir ce Snippet en plus il accepte même les caractères accentués
