J'ai tjrs le problème de Out of Memory

bonjour dans ton code

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
29
30
31
32
 
void __fastcall TRechercheFrm::OKBtnClick(TObject *Sender)
{
        Currency xpht=0, xpttc=0,xQtmvt=0;
        String xCode=DModule->CompteCODE->Value;
        String xCdart=DModule->ArticlesCDART->Value;
        DModule->VerifPrix->Close();
        DModule->VerifPrix->SQL->Strings[2]="where code=:x and cdart=:y";
        DModule->VerifPrix->SQL->Strings[3]="order by dtmvt desc";
        DModule->VerifPrix->ParamByName("x")->AsString=xCode;
        DModule->VerifPrix->ParamByName("y")->AsString=xCdart;
        DModule->VerifPrix->Open();
        DModule->VerifPrix->First();
        xpht=DModule->VerifPrixPXMVTHT->Value;
        xpttc=DModule->VerifPrixPXMVTTTC->Value;
        DModule->MouvTemp->Edit();//MouvTemp et la table dans la DBGrid de pieceFrm
        DModule->MouvTempCDART->Value = DModule->ArticlesCDART->Value;
        DModule->MouvTempDESIGN1->Value = DModule->ArticlesDESIGN1->Value;
        DModule->MouvTempREF->Value = DModule->ArticlesREF->Value;
        DModule->MouvTempUNIT->Value = DModule->ArticlesUNIT->Value;
        DModule->MouvTempDPAHT->Value = DModule->ArticlesDPAHT->Value;
        DModule->MouvTempDPATTC->Value = DModule->ArticlesDPATTC->Value;
        DModule->MouvTempPV1HT->Value = DModule->ArticlesPV1HT->Value;
        DModule->MouvTempPV1TTC->Value = DModule->ArticlesPV1TTC->Value;
        DModule->MouvTempQTTE1->Value = DModule->ArticlesQTTE1->Value;
        DModule->MouvTempTXTVA->Value = DModule->ArticlesTXTVA->Value;
        DModule->MouvTempDETAIL->Value = DModule->ArticlesDETAIL->Value;
        DModule->MouvTempPXMVTHT->Value=xpht;
        DModule->MouvTempPXMVTTTC->Value=xpttc;
        xQtmvt=DModule->MouvTempQTSORT->Value;
        Close();
}

l'appel à Close() ferme la fiche mais ne libère pas la mémoire
Il serait préférable que la fiche TRechercheFrm soit générée automatiquement par l'application

dans le code de

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
 
void __fastcall TAffPieceFrm::DBGridLignesKeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
 
        if (Key==VK_F10)
                Valider->Click();
        if (Key==VK_F5)
        {
                ;TRechercheFrm *FenRech=NULL;
                ;FenRech = new TRechercheFrm(NULL);
                FenRech->Caption = "Choix d'article";
 
                DModule->Articles->Open();
                FenRech->DataSource->DataSet=DModule->Articles;
                DModule->CountArt->SQL->Strings[1]="";
                DModule->CountArt->Open();
                FenRech->EditRecherche1->Text="";
                FenRech->ShowModal();
             ;  delete FenRech;
	      ;	FenRech=NULL;                
                DBGridLignes->SelectedIndex=4;
        }
}

dans le code

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
29
30
31
32
33
 
void __fastcall TRechercheFrm::OKBtnClick(TObject *Sender)
{
        Currency xpht=0, xpttc=0,xQtmvt=0;
        String xCode=DModule->CompteCODE->Value;
        String xCdart=DModule->ArticlesCDART->Value;
        DModule->VerifPrix->Close();
        DModule->VerifPrix->SQL->Strings[2]="where code=:x and cdart=:y";
        DModule->VerifPrix->SQL->Strings[3]="order by dtmvt desc";
        DModule->VerifPrix->ParamByName("x")->AsString=xCode;
        DModule->VerifPrix->ParamByName("y")->AsString=xCdart;
        DModule->VerifPrix->Open();
        DModule->VerifPrix->First();
        xpht=DModule->VerifPrixPXMVTHT->Value;
        xpttc=DModule->VerifPrixPXMVTTTC->Value;
        DModule->MouvTemp->Edit();//MouvTemp et la table dans la DBGrid de pieceFrm
        DModule->MouvTempCDART->Value = DModule->ArticlesCDART->Value;
        DModule->MouvTempDESIGN1->Value = DModule->ArticlesDESIGN1->Value;
        DModule->MouvTempREF->Value = DModule->ArticlesREF->Value;
        DModule->MouvTempUNIT->Value = DModule->ArticlesUNIT->Value;
        DModule->MouvTempDPAHT->Value = DModule->ArticlesDPAHT->Value;
        DModule->MouvTempDPATTC->Value = DModule->ArticlesDPATTC->Value;
        DModule->MouvTempPV1HT->Value = DModule->ArticlesPV1HT->Value;
        DModule->MouvTempPV1TTC->Value = DModule->ArticlesPV1TTC->Value;
        DModule->MouvTempQTTE1->Value = DModule->ArticlesQTTE1->Value;
        DModule->MouvTempTXTVA->Value = DModule->ArticlesTXTVA->Value;
        DModule->MouvTempDETAIL->Value = DModule->ArticlesDETAIL->Value;
        DModule->MouvTempPXMVTHT->Value=xpht;
        DModule->MouvTempPXMVTTTC->Value=xpttc;
        xQtmvt=DModule->MouvTempQTSORT->Value;
       ; Close();
       Hide();
}

cordialement

Merci pour tous ceux qui m'ont répendu.

Pour DjmSoftware :
J'ai déjà essayeé cette solution de Show() et hide(), mais le problème persiste. Voir les messages précédent.

Pour saidus :
Je vais essayer les FibPlus.

Merci encore.

Que dit CODEGUARD ?

Bonjour tout le monde,

Alors, un autre problème et survenu...
J'ai installé le contrôle de FIBPLus.
Après certaines modifications sur mon code, le programme se compile normalement sans aucune erreur.

Mais, je pense qu'il y a une certaines différences entre IBDataSet et FIBDataSet.

Lorsque je sélectionne l'article sur la liste, et lorsque je modifie l'enregistrement de la pièce :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 DModule->MouvTemp->Edit();//MouvTemp et la table dans la DBGrid de pieceFrm =====> ici pas de problème DModule->MouvTempCDART->Value = DModule->ArticlesCDART->Value; =====> ici error DModule->MouvTempDESIGN1->Value = DModule->ArticlesDESIGN1->Value; DModule->MouvTempREF->Value = DModule->ArticlesREF->Value; DModule->MouvTempUNIT->Value = DModule->ArticlesUNIT->Value; DModule->MouvTempDPAHT->Value = DModule->ArticlesDPAHT->Value; DModule->MouvTempDPATTC->Value = DModule->ArticlesDPATTC->Value; DModule->MouvTempPV1HT->Value = DModule->ArticlesPV1HT->Value; DModule->MouvTempPV1TTC->Value = DModule->ArticlesPV1TTC->Value; DModule->MouvTempQTTE1->Value = DModule->ArticlesQTTE1->Value; DModule->MouvTempTXTVA->Value = DModule->ArticlesTXTVA->Value; DModule->MouvTempDETAIL->Value = DModule->ArticlesDETAIL->Value
un message d'erreur de Access Violation error s'affiche !!!

Est-ce qu'il y a une autre manipulation pour les contrôle de FIBPlus ?

Les composant FibPlus sont des pures transactionnel
Essai de garder l'identifiant de la meme transaction au lieu de starter une nouvelle a chaque fois

Pour cela utilise
Code:

1 2 3 4 5 6 FibTransaction1->StartTransaction(); ... FibTransaction1->CommitRetaining(); ou FibTransaction1->RollbackRetaining();