[Débutant] TClientDataSet Tester Delta vide [Résolu]

[o_live]

Bonjour,
j'essaie des tester la propriété Delta d'un TClientDataSet avant de lever l’exception

a provoqué une classe d'exception EDBClient avec le message 'Delta vide.'.

j'ai essayé les methode IsNull() IsEmpty() et cela echoue

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
TClientDataSet *pCdsDelta = new TClientDataSet(CDSPers);
try{
 
     if(DataModule1->CDSPers->Delta.IsNull()){ // ne passe pas le test
         return false;
       }
 
       pCdsDelta->Data= DataModule1->CDSPers->Delta; // quand c'est vide decleche exception 
   }
   catch(EDBClient &E)  {
     return false;
   }
// bla
// bla.....

Comment faire merci?

[ShaiLeTroll]

Cela serait plutôt un VarIsEmpty
Entre Variant et OleVariant, en Delphi c'est plus souple, en C++Builder, je sais qu'il est capricieux entre Variant, OleVariant, TVariant, VARIANT ...

Code :

1
2
if (VarIsEmpty(DataModule1->CDSPers->Delta))
  return false;

[o_live]

Bonjour,

j'ai essayé ton code sous CB6 , j'ai une erreur de compilation :

[C++ Erreur] DataModule.cpp(230): E2064 Impossible d'initialiser 'const Variant &' avec 'OleVariant'

[C++ Erreur] DataModule.cpp(230): E2342 Mauvaise correspondance de type dans le paramètre 'V' ('const Variant &' désiré, 'OleVariant *' obtenu)

que faire et comment convertir ?

merci

[ShaiLeTroll]

Oui, erreur prévisible, C++Builder est pénible pour ça !
Oubli, VarIsEmpty c'est uniquement Delphi ! en C++ c'est bien la méthode IsEmpty(), au lieu de tester le variant, utilise la propriété ChangeCount

Esssaye ceci alors

Code :

1
2
  if ( ! DataModule1->CDSPers->ChangeCount )
    return false;

[o_live]

Ok tu es un as ShaiLeTroll
mille fois merci