Contôles sur les Tedit et Maskedit [Résolu]
- Messages postés
- 18
- Date d'inscription
- dimanche 7 décembre 2008
- Dernière intervention
- 6 décembre 2010
- Messages postés
- 187
- Date d'inscription
- jeudi 16 octobre 2008
- Dernière intervention
- 20 février 2010
- Delphi maskedit example
- Delphi maskedit - Meilleures réponses
- Maskedit delphi - Meilleures réponses
- Delphi / Pascal : File transfert debutant example (socket) - CodeS SourceS - Guide
- [Delphi XE2] Contrôle des fuites mémoires avec FastMM4 - Conseils pratiques - Delphi
- [delphi] déclarer et utiliser les types - Conseils pratiques - Delphi
- [delphi] compatibilité et directives - Conseils pratiques - Delphi
- [delphi] installer des composants - Conseils pratiques - Delphi
15 réponses
- Messages postés
- 3869
- Date d'inscription
- samedi 22 décembre 2007
- Dernière intervention
- 3 juin 2016
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 !
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 101 internautes ce mois-ci
- Messages postés
- 18
- Date d'inscription
- dimanche 7 décembre 2008
- Dernière intervention
- 6 décembre 2010
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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 101 internautes ce mois-ci
- Messages postés
- 18
- Date d'inscription
- dimanche 7 décembre 2008
- Dernière intervention
- 6 décembre 2010
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 101 internautes ce mois-ci
- Messages postés
- 187
- Date d'inscription
- jeudi 16 octobre 2008
- Dernière intervention
- 20 février 2010
pour le composant combobox:
combobox1.itemindex:=-1;
ou dbcombobox1.itemindex:=-1;
yahia
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 101 internautes ce mois-ci
- Messages postés
- 18
- Date d'inscription
- dimanche 7 décembre 2008
- Dernière intervention
- 6 décembre 2010
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 101 internautes ce mois-ci
- Messages postés
- 3869
- Date d'inscription
- samedi 22 décembre 2007
- Dernière intervention
- 3 juin 2016
Cordialement, Bacterius !
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 101 internautes ce mois-ci
- Messages postés
- 187
- Date d'inscription
- jeudi 16 octobre 2008
- Dernière intervention
- 20 février 2010
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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 101 internautes ce mois-ci
- Messages postés
- 18
- Date d'inscription
- dimanche 7 décembre 2008
- Dernière intervention
- 6 décembre 2010
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 101 internautes ce mois-ci
- Messages postés
- 187
- Date d'inscription
- jeudi 16 octobre 2008
- Dernière intervention
- 20 février 2010
- Messages postés
- 187
- Date d'inscription
- jeudi 16 octobre 2008
- Dernière intervention
- 20 février 2010
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
edit1.text[1] := uppercase(edit1.text[1])[1];.
Merci
yahia
- Messages postés
- 3869
- Date d'inscription
- samedi 22 décembre 2007
- Dernière intervention
- 3 juin 2016
Ceci marche :
Var S: String; begin S := Edit1.Text; S[1] := uppercase(S[1])[1]; Edit1.Text := S; end;
Cela dit je crois qu'il existe une manoeuvre moins lourde, mais j'ai dû oublier comment faire ...
Cordialement, Bacterius !
- Messages postés
- 4229
- Date d'inscription
- vendredi 23 juillet 2004
- Dernière intervention
- 3 août 2018
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
[hr]@+Cirec
[hr]
- Messages postés
- 187
- Date d'inscription
- jeudi 16 octobre 2008
- Dernière intervention
- 20 février 2010
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.