TSmalIntArray Erreur appel Add

Version imprimable

08/10/2012, 16h58
** Phil **

TSmalIntArray Erreur appel Add

Bonjour à tous,

Dans un projet sous BCB6, j'utilise un TSmallIntArray.

L'allocation avec new se passe bien, mais dès que j'utilise la méthode Add, à l’exécution, j'ai le message suivant :

Project Project1.exe raised exception class ELowCapacityError with message 'The DecisionCube Capacity is low. Please deactivate dimensions or change the data set.'

Je n'arrive pas à trouver la cause de cet échec, quelqu'un a-t-il une idée

Merci
08/10/2012, 20h27
blondelle

Salut ** Phil **
Je pense que tu devrais poster le code qui donne l'erreur, apparement tu utilise un TDecisionCube Qui recoit une valeur erronee

Ce code basique suffit pour provoquer l'erreur chez moi

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <mxarrays.hpp>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    TSmallIntArray *_t = new TSmallIntArray(0, 0);
    _t->Add(1);
    delete _t;
}
//---------------------------------------------------------------------------

Et je n'utilise pas de TDecisionCube . . . c'est vraiment étrange

Bizarre, j'ai teste le code de deux manieres et je n'ai pas d'erreur
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 #pragma hdrstop #include "Unit1.h" #include <mxarrays.hpp> //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { TSmallIntArray *_t = new TSmallIntArray(0, 0); _t->Add(1); delete _t; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { TSmallIntArray *_t = new TSmallIntArray(0, 0); _t->Add(1); delete _t; }
Je suis sous BCB6 Window7 64bits
Avant de lancer BCB6 regarde si le fichier projet est bien vide, il ne doit y avoir que deux repertoires Bpl et Lib rien d'autre, le chemin " C:\Program Files (x86)\Borland\CBuilder6\Projects "

08/10/2012, 23h44
** Phil **

C'est effectivement très bizarre, chez moi j'ai essayé ce petit code sur mon fixe et mon portable, j'ai la même erreur. Les deux calculateurs sont sous XP pro.

J'ai déjà utilisé des TSmallIntArray chez moi et ça marchait. Je ne vois pas ce que j'ai changé dans les options de Builder 6 ou sur mes machines de plus ça marche à l'asso pour qui je code une application, leurs PC sont aussi sous XP.

En fouillant sur le net, j'ai constaté que certains ont rencontré ce problème, mais je n'ai pas vu de solution

Avec des TList ou des TStringList, je n'ai pas de souci, j'y perds le peu de latin qu'il me reste . . .
09/10/2012, 09h39
ShaiLeTroll

Vous ne confondez pas TSmallIntDynArray et TSmallIntArray ?

TSmallIntDynArray correspond au array of SmallInt de Delphi, c'est un type simple, unité Types (ou sysdyn.h)
TSmallIntArray est type interne de DecisionCube (faut la version Entreprise !)

Citation:

L'exception ELowCapacityError est déclenchée quand le cache d'un cube de décision est trop grand. La mémoire disponible pour le cube de décision peut être augmentée en modifiant la valeur de la propriété Capacity du cube de décision. Il est également possible de diminuer la mémoire utilisée par le cube en désactivant certaines de ses dimensions.

sinon, en c++, il y a aussi std::vector<SmallInt>.

J'ai une version Enterprise et je souhaite bien utiliser un TSmallIntArray. Lorsque je touche à la propriété Capacity, j'ai le même message d'erreur.

J'ai essayé ce code avec un TIntegerDynArray qui fonctionne chez moi, merci pour le tuyau. Je ne m'explique cependant pas l'exception déclenchée par le DecisionCube

Code:

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
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//#include <Sysdyn.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    TIntegerDynArray _t;
    for(int i = 0; i < 10; i++)
    {
        _t.Length += 1;
        _t[i] = i;
    }
    for(int i = _t.Low; i <= _t.High; i ++)
    {
        Memo1->Lines->Add(_t[i]);
    }
    _t.Length = 0;
}
//---------------------------------------------------------------------------

Merci pour votre aide.

09/10/2012, 12h34
blondelle

J'ai trouve ceci dans l'aide en ligne

Citation:

Spécifie le nombre maximum d'éléments qui peuvent être ajoutés au tableau.
__property int Capacity = {read=FCapacity, write=SetCapacity, nodefault};
Description
Initialisez Capacity pour changer la quantité de mémoire allouée pour le tableau. Toute tentative d'initialiser Capacity à une valeur inférieure à celle de la propriété Count déclenche une exception EArrayError.
Si la propriété AutoSize vaut true, la propriété Capacity du tableau augmente automatiquement si nécessaire pour tenir compte des nouveaux éléments ajoutés.
Remarque : Pour déterminer la quantité de mémoire utilisée par le tableau, utilisez Capacity * ItemSize

C'est peut etre ton probleme
09/10/2012, 14h17
** Phil **

Juste après l'allocation j'ai

Count = 0
Capacity = 0
AutoSize =true
ItemSize = 2

Si je fais _t->Capacity = 1; je provoque l'exception
09/10/2012, 17h18
totoche76

1 pièce(s) jointe(s)

Hello,

La question qui tue: Tu as combien de mémoire sur les PC où ça foire ??
Plus de 2 Go ??

C'est un bug de nain dans la VCL (cf. QualityCentral - le rapport de bug concerne Delphi, mais c'est pareil pour Builder)

Mets l'unité DecisionCubeBugWorkaround.pas dans ton projet, et ça devrait aller.

Citation:

Envoyé par ** Phil **

C'est effectivement très bizarre, chez moi j'ai essayé ce petit code sur mon fixe et mon portable, j'ai la même erreur. Les deux calculateurs sont sous XP pro.

J'ai déjà utilisé des TSmallIntArray chez moi et ça marchait. Je ne vois pas ce que j'ai changé dans les options de Builder 6 ou sur mes machines de plus ça marche à l'asso pour qui je code une application, leurs PC sont aussi sous XP.

En fouillant sur le net, j'ai constaté que certains ont rencontré ce problème, mais je n'ai pas vu de solution

Avec des TList ou des TStringList, je n'ai pas de souci, j'y perds le peu de latin qu'il me reste . . .
09/10/2012, 20h40
** Phil **

Bingo merci Totoche76 ça marche en ajoutant le DecisionCubeBugWorkaround.pas au projet.

Alors, pour aller un peu plus loin,

- chez moi les PC ont 2 et 3 Go de RAM, j'ai le bug
- a mon asso ils ont 2 Go de RAM et ça marche sans bug.
- toutes les machines sont sous XP Pro SP3

La différence, chez moi j'ai de l'Intel à l'asso de l'AMD, est-ce une explication . . .

En tout cas, merci à tous pour votre aide.