Discussion :

[kimlee]

Bonjour,

Je travaille en Delphi 2007

J'ai une DBGrid associée à un DatatSource, lui-même tirant ses données d'une TTable.
Dans un des champs, je veux saisir une valeur comprise entre 0 et 1. Comment faire, c'est à dire, quel événement intercepter et sur quel composant ?
J'ai déjà mis un EditMask sur le champ concerné, mais il ne fait qu'une partie du travail.

Merci d'avance pour votre aide.

Kim

[SergioMaster]

OnValidate du champ ?

[evarisnea]

ou alors propriétés CustomConstraint et CustomConstraintMessage du TField ?

[kimlee]

Bonjour
D'abord merci à SergioMaster et evarisnea pour leur participation.
Mais en fait, aucune des deux solutions ne fonctionne au moment de la saisie, voire simplement du scroll (changement d'enregistrement).

Donc le pb reste entier.

Si d'autres ont d'autres idées, elles sont les bienvenues

Kim

[evarisnea]

ces propriétés et événements sont faits pour ton souci pourtant !

le TField est un objet représentant un champ de ta source de donnée, une TTable dans ton cas. pour accéder aux objets TFields tu fais un double clic sur ton TTable puis menu contextuel "ajouter tous les champs (Ctrl+F)".
ensuite alors tu choisis le champ qui t'intéresse et tu modifie ses propriétés/événements à l'aide de l'inspecteur d'objet.

peux-tu nous expliquer comment tu as procédé pour tester nos 2 suggestions ?

[kimlee]

Bonjour,
Merci evarisnea de t'intéresser à mon misérable cas.
A priori, j'ai fait "tout bien comme y faut", sauf que j'avais un peu simplifié l'exposé pour ne pas embrouiller les honorables lecteurs.
La Table en question est en fait une table mémoire (kbmemTable) vide à laquelle je rajoute en dynamique des champs dont la définition m'est donnée par une requête.
Ensuite, j'ai fait

Code :

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

1
2
 
 MaTableMemoire.FieldByName('NOM_Du_CHAMP').CustomConstraint='x<1.0 AND x>0.0';

Mais cela n'empêche pas du tout de changer d'enregistrement quand le critère n'est pas respecté.
Provisoirement, je teste sur AfterPost, et si la valeur ne me convient pas, je laisse l'ancienne valeur. Ce serait nickel si je pouvais, dans ce cas, empêcher de passer à l'enregistrement suivant.

Kim

[evarisnea]

bizarre ... si j'ai le temps ce soir je testerai

et pour OnValidate ?

tu peux créer un gestionnaire :

Code :

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

1
2
3
4
5
6
procedure TForm1.OnValidateHandler(Sender: TObject);
begin
  if Assigned(Sender) and (Sender is TField) then
    if (TField(Sender).AsInteger < 0) or (TField(Sender).AsInteger > 1) then
      Abort; 
end;

et attacher le gestionnaire d'événement dynamiquement :

Code :

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

MaTableMemoire.FieldByName('NOM_Du_CHAMP').OnValidate := self.OnValidateHandler;