Discussion :

[QAYS]

Bonjour

Je souhaiterais "overrider" l'instrcution suivante :

MaTable[NOM_COLONNE]

exemple de code

Code :

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

1
2
3
4
5
6
7
8
9
Procedure......
Var
MaTable:TTable;
Value:Variant;
Begin
   bla bla bla
   Value:=MaTable[NOM_COLONNE];<==
   bla bla bla
end;

Je souhaite faire cela pour une simple raison, eviter le plantage lorsque la colonne est à nil

je sais qu'il existe la proprité isNull, mais je souhiate faire ce test en amont et non au moment de la recherche de la valeur.

Je vous remercie de votre aide.
Cordialement
Qays

[ShaiLeTroll]

utilise FindField et FieldByName !
Avant de vouloir surcharger un DatasSet faut savoir l'utiliser !

[Cl@udius]

Salut

Cette instruction:

Code :

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

Value := MaTable['NOM_COLONNE'];

fait appel à la propriété par défaut FieldValues de TDataSet.
soit explicitement:

Code :

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

Value := MaTable.FieldValues['NOM_COLONNE'];

L'accesseur de la propriété GetFieldValue fait appel à FieldByName qui lève une exception lorsque NOM_COLONNE n'existe pas dans le DataSet. Dans le cas contraire, il renvoie la valeur de la colonne sous la forme d'un variant. Ce variant pouvant être Null.

Si tu veux t'assurer que la valeur de la colonne n'est pas nulle, utilise varIsNull:

Code :

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

1
2
3
4
5
Value := MaTable['NOM_COLONNE'];
if varIsNull(Value) then 
  // ... Gérer ce cas
else
  // bla bla bla

Si c'est l'exception sur l'absence de NOM_COLONNE que tu veux gérer, je ne vois pas de raison de changer ce comportement. Quelle valeur renvoyer dans ce cas d'ailleurs ?

@+ Claudius