Utilisation mémoire qui gonfle

Posté par Furax le 26/10/2005 15:16:27

J'ai développé une application PPC (avec Windev Mobile donc) qui enregistre quelques données dans une base HyperFile.
Les enregistrements fonctionnent sans problème, mais à chaque fois, la mémoire utilisé par l'appli gonfle de manière sensible, pratiquement 1Mo, ce qui n'est pas concevable du tout.

Voici le code que j'ai fait pour l'enregistrement:

SI OuiNon(1, "Etes-vous certain de vouloir clôturer ce bon?") ALORS
InvBons.auteur = ExtraitChaîne(pAuteur, 1, " - ")
InvBons.depot = ExtraitChaîne(pDepot, 1, " - ")
InvBons.chantier = ExtraitChaîne(pChantier, 1, " - ")
InvBons.type = "E"
InvBons.date = DateSys()
SI PAS HAjoute(InvBons) ALORS
Info("Erreur lors de l'enregistrement.")
FIN
HLitDernier(InvBons)
IDBonTemp = InvBons.ID
j = TableOccurrence(TableArticles)
POUR i = 1 A j
InvArticles.IDBon = IDBonTemp
InvArticles.article = TableArticles.article[i]
InvArticles.description = TableArticles.Descr[i]
InvArticles.quantite = TableArticles.quant[i]
HAjoute(InvArticles)
FIN
Ferme()
FIN

Moi je ne vois rien de spécial là dedans, mais il se passe sans doute quelque chose que j'ignore, et comme cela fini par planter le Pocket au point de devoir le reseter, j'aimerais bien régler ce souci...

Merci!