Discussion :

[fj049]

Bonjour,

Je développe un code qui lit dans une base de donnée des références d'un catalogue, je construit un objet TReference avec les données et enfin je stocke le tout dans un TStringList. Voici à quoi cela ressemble :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
i := 1;
ZQuery.SQL.Add('SELECT * FROM ....');
ZQuery.Open;
while not ZQuery.eof do
begin
    reference := TReference.Create;
    buildReferenceFromQuery(reference, ZQuery);
    ListRef.AddObject( IntToStr(i), reference);
    inc(i);
 
    ZQuery.Next;
end;

buildReferenceFromQuery, ne fait que remplir l'objet avec les valeurs issu de la bdd.

Au total j'ai 4241 ligne de résultat, mais arrivé à 4041, la ligne ListRef.AddObject( IntToStr(i), reference); plante avec le message suivant :

Code :

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

1
2
 
Le projet ImportExport.exe a déclenché la classe d'exception EAccessViolation avec le message 'Violation d'accès à l'adresse 005AD3D8 dans le module 'ImportExport.exe'. Lecture de l'adresse 00000000'.

Mon objet reference existe bel et bien et il est correctement initialisé.

Est ce que quelqu'un voit pourquoi ca plante à 4041 ?

Je tiens à préciser aussi que quand je regarde la consommation mémoire du programme, elle grimpe en flèche. Avec 4040 objets le programme pèse plus de 100Mo en mémoire. Avez-vous aussi une idée sur le pourquoi de cette consommation excessive pour un simple objet reference définit ainsi :

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
 
TReference = class
  public
    id: Integer;
    code: String;
    libelle: THashtable;
    description: THashtable;
    ficheTechnique: THashtable;
    pageCatalogue: THashtable;
    photos: array[1..3] of string;
    prix: double;
    unite: string;
    dateModification: Integer;
    actif: Integer;
    orphelin: Integer;
    typeTarif: String;
    prixSurEtude: Integer;
    NOUVEAUTE_id: Integer;
    PROMOTION_id: Integer;
    publie: Integer;
    ordre: Integer;
end;

THashTable est une classe qui permet de faire une table de hachage sur des variants.


Je remercie par avance tout ceux qui pourrons m'aider.

[fj049]

Bonjour,

C'est bon j'ai trouvé. En fait le problème était due à une mauvaise initialisation d'un des champs de l'objet reference.

Par contre je ne vois pas pourquoi ca faisait planté la TStringListe qui elle ne faisait que mémoriser l'objet.

Enfin bon peu importe le problème est résolu.

[ShaiLeTroll]

Tu as un bouton Résolu, en bas, ... au lieu de modifier le titre

[sjrd]

Au fait, pourquoi utiliser une TStringList, si ce n'est que pour stocker une liste d'objets. Jette un oeil à la classe TObjectList de l'unité Contnrs. F1 pour plus d'infos. Cela consommera déjà pas mal de mémoire en moins et sera plus rapide.

Si pour une raison ou une autre tu as besoin de la recherche par index (renseignés avec les IntToStr(I)), tu devrais plutôt t'orienter vers TBucketList de la même unité. Ce sera beaucoup plus rapide (et consommera toujours moins de mémoire) que TStringList.
(tu peux transtyper un integer en Pointer, ainsi que n'importe quel objet)