Discussion :

[yozart]

Bonjour a tous,

j'ai une méthode qui contient une liste variable d'arguments. Mon problème est que dans certains cas, cette liste d'argument doit me servir dans AnsiString::Format.

Evidemment, AnsiString::Format n'utilise pas un va_list mais un TVarRec et je n'arrive rien a faire.

Mon but est de pouvoir utiliser AnsiString::Format en lui fournissant la liste de paramètres recus par ma methode.

Si vous avez une solution en vue, n'hésitez pas a m'en faire part car je seche grave. Merci beaucoup.

[yozart]

J'ai peut être trouvé une piste. Mais mon problème est désormais autre. Tout d'abord, j'ai trouvé cela:
src= http://www.codeproject.com/KB/tips/va_pass.aspx

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
template<byte count>
struct SVaPassNext{
    SVaPassNext<count-1> big;
    DWORD dw;
};
template<> struct SVaPassNext<0>{};
//SVaPassNext - is generator of structure of any size at compile time.
 
 
class CVaPassNext{
public:
    SVaPassNext<50> svapassnext;
    CVaPassNext(va_list & args){
		try{//to avoid access violation
 
			memcpy(&svapassnext, args, sizeof(svapassnext));
		} catch (...) {}
    }
};
#define va_pass(valist) CVaPassNext(valist).svapassnext
 
#if 0 //using:
 
void MyVA_Function(szFormat, ...){
    va_list args;
    va_start(args, szFormat);
    SomeOtherVA_Function(szFormat, va_pass(args));
    va_end(args);
}
#endif

j'ai donc modifié ma fonction comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
void test(AnsiString t, ...)
{
   int total = 0;
   va_list ap;
   va_start( ap, t );
 
   TVarRec v[] = ARRAYOFCONST(va_pass(ap));
   AnsiString res = Format(t, v, ARRAYSIZE(v) - 1);  
   printf("%s\n", res.c_str());
 
   va_end(ap);
}

Mais désormais, j'ai une erreur: [C++ Error] Unit1.cpp(57): E2108 Utilisation impropre de typedef 'OpenArray<TVarRec>'

c'est au niveau de la ligne "TVarRec v[] = ARRAYOFCONST(va_pass(ap))"

[Patrick Seuret]

Tout ceci me semble bien compliqué (je dois avouer que je ne comprends pas complètement l'exemple de l'article que tu cites).

Néanmoins, si on regarde la définition de TVarRec (qui est fausse dans la version de l'aide que j'ai), c'est juste un "union" qui permet d'aller lire les différents type de données:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
  class TVarRec
  {
  public:
    union
    {
      Integer      VInteger;
#if defined(TVARREC64)
      Largeint     VInt64;
#endif
      Boolean      VBoolean;
      Char         VChar;
      PExtended    VExtended;
      PShortString VString;
      Pointer      VPointer;
      PChar        VPChar;
      TObject*     VObject;
      TClass       VClass;
      WideChar     VWideChar;
      PWideChar    VPWideChar;
      Pointer      VAnsiString;
      PCurrency    VCurrency;
      PVariant     VVariant;
    };
    union
    {
      Byte VType;
      /*
      long ForceAlignment;
  #if 0
    //! The ForceAlignment should be removed, if alignment set to 4
    //! we don't need this
  #endif
      */
    };

Donc, il doit être possible de caster la va_list en un TVarRec. J'ai essayé ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
  Test(3,"123","456","789");
 
}
//---------------------------------------------------------------------------
void TForm1::Test(int size,...) {
 
  va_list ap;
  va_start(ap, size);
  System::TVarRec *args=(System::TVarRec*)(ap);
 
  AnsiString result=Format("%s %s %s",args,size-1);
  ShowMessage(result);
 
}

Ca ne marche pas mais c'est peut-être une piste à explorer

[yozart]

merci pour ta réponse... Finalement, j'abandonne la chose pour le moment, mais si jamais une illumination venait, je vous en ferait bien evidemment part. Merci quand meme grandement a toi.