Discussion :

[Sandara]

Bonjour,

Comme dit dans le titre, j'ai une erreur lorsque j'essaye de mettre une variable de type TDate de mon objet à null.

Concretement j'ai un composant TDateEdit avec lequel je peux choisir une date dans un petit calendrier, mais si je modifie la date retournée par le calendrier et que je la met à vide ( ' / / ' ), lors de mon evenement OnExit lorsque je déclenche la modification de ma variable alors j'ai le méssage suivant qui apparait : "Conversion de type variant incorrecte"

La methode que j'utilise pour mettre la date à null est :
MonObjet.DteRachat := null;

Je ne vois vraiment pas comment je peux faire ca, j'ai déja cherché de fond en comble sur google, je vous remercie d'avance de m'éclairer sur la méthode à utiliser !

[bubulemaster]

Pour mettre un variable à null, il faut utiliser nil.

Maintenant (étant donné que je ne connais pas ce composant) pourquoi ne pas mettre une date quelconque ?
Je ne comprend pas bien où vous voulez en venir.

[Aka Guymelef]

TDateTime n'est pas un type objet, c'est un double en vérité. Vous ne pouvez pas affecter NIL comme pour un objet, encore moins le Null qui s'applique pour les variants.

Si vous avez la main sur le type de la propriété de votre objet déclarez-la de type Variant et affectez Null lorsqu'il n'y a pas de date et un TDateTime le reste du temps.

Si vous ne pouvez pas changer le type alors il faut décider d'une valeur indiquant le "vide". 0 est généralement une valeur acceptable mais attention cependant car 0 pour un TDateTime ne correspond pas à une date "nulle" mais bien à une date réelle (30/12/1899 12:00 am), attention pour l'affichage

[ShaiLeTroll]

Un Clear pourrait aider, c'est une méthode standard d'effacement d'une valeur dans un TCustomEdit

En général, les composants date sont assez tétu ... et non par de Clear, parfois un accès à Text mais rare aussi !

Pour ma part, je préfère utiliser un TMaskEdit, un TBouton avec un TMonthCalendar, cela permet une saisie plus souple que dans la plupart des TDateEdit (tel que le TDateTimePicker) et aussi l'effacement (ou l'auto-complétion des dates ...)

Petite précision sur le nil, null en plus des propos de Aka Guymelef
"nil" c'est pour les pointeurs (instances comprises), c'est une constante simple
"Null" c'est la valeur nulle pour un variant, ne pas confondre avec "Empty" qui signifie vide, ce n'est pas une constante, mais une fonction qui renvoie un variant avec le type "varNull", énormément utiliser avec les composants DB (IsNull d'un TField, très utile)

La gestion du null pour les objets métiers est indispensables, mais oblige l'utilisation massive de variants ce qui pose de problèmes lors des condition car souvent on a l'erreur de conversion sur par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if MonVariant = '' then
  MonVariant := 'Toto';

il faut écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if VarIsEmpty(MonVariant) or VarIsNull(MonVariant) or (VarIsStr(MonVariant) and MonVariant ='') then
  MonVariant := 'Toto';

Fastidieux, ... mieux vaut encapsuler le tout mais cela devient alors compliqué pour créer ses objets obligeant de passer par des accesseurs ... ayant fait une couche de persistance DB (genre ECO ou TInstantObjects mais plus spécifiques et moins génériques), j'ai souffert des nulls, et j'ai fait une bonne grosse usine à gaz, pour avoir des propriétés variantes avec des valeurs par défaut (type défini via la DB) et des propriétés supplémentaire pour tester la nullité ... cela simplifie grandement l'écriture du code et évite les erreurs de conversion, ...