Tu peux gérer un type énuméré :
TDateVehicule = (dvAssurance, dvCT, dvPermis);
Une fonction qui prend en paramètre le type que tu veux :
1 2 3 4 5 6 7 8
| var
sChamp : string;
begin
if dvCurrent = dvAssurance then
sChamp := 'datea'
// ...
DateV:=ADOTable1.fieldbyname(sChamp).asDateTime; |
Pour faire ce que tu veux, il existe aussi la fonction DaysBetwwen qui prend deux TDateTime en paramètre.
Si tu veux déclencher automatiquement le traitement tu pourrais faire une classe TVehicule et lors du Create déclencher tes tests, si tu charges ton véhicule lors de l'ouverture avec un événement FormShow tu peux aussi appeler ta procédure juste après, par exemple :
1 2 3 4
| // chargement du véhicule
// ...
CheckDateVehicule([dvAssurance, dvCT]); |
Par contre je te conseil d'indenter ton code correctement, mot clé en minuscule, ce qui est je trouve plus facile à lire.
Partager