Discussion :

[zano42]

Bonjour à tous et toutes,

Je m'adresse à travers ce post aux cracks de l'optimisation sous Delphi...Voilà le pb :

Je dois afficher des images au format JPEG dans une grille de 64 colonnes sur 32 lignes... Jusque là pas de pb, la chose fonctionne avec la méthode que j'utilise, mais au niveau logique et optimisation; je me dis que c'est peut être une méthode de bricolo. Voici donc un extrait du code que j'utilise pour afficher ces 2048 images dans la grille :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
...
  for R := 0 to 31 do
    begin
      for C := 0 to 63 do
        begin
          Img := TJpegImage.Create; data := Buffer[Ofs];
          Img := Get_Jpg(Rx[data]);
          FrmBD.GrdMain.Canvas.StretchDraw(FrmBD.GrdMain.CellRect(Cl R), Img);
          inc(Ofs); Img.Free;
        end;
    end;
...

On s'aperçoit dans cet extrait de code, que les instructions : Img := TJpegImage.Create; et Img.Free; sont exécutées 2048 fois !...

Question : Est-ce dans ce cas précis nécessaire ? et n'est il pas suffisant de créer l'objet Img 1 seule fois - avant la boucle for R..., puis de le libérer l'objet à la fin ???

Dans le second cas, est-ce que je ne vais pas aboutir à la création en mémoire de 2048 objets Img ce qui ne serait quand même pas le top du top...

Quelques bonnes suggestions de votre part seraient les bienvenues.

Merci et bonne continuation.

[Andnotor]

Les 2 boucles imbriquées sont inutiles . Ce n'est pas à toi de forcer l'affichage de tes 2048 images, mais au StringGrid de te demander de repeindre certaines cellules. Le StringGrid implémente pour cela l'événement OnDrawCell.

Au niveau de la création des jpeg, Get_Jpeg te renvoi manifestement un TJpegImage. Img := TJpegImage.Create ne sert donc à rien et qui plus est ne sera pas détruit puisque Img est modifié après coup .

Dans ta boucle, tu crée donc 4096 TJpegImage, mais n'en détruit que 2048 !

[zano42]

Salut Andonotor et un grand merci ... Voici là des explication plus que claires.

Je vois en effet que je cherchais midi à 14h. Je vais immédiatement adopter ta solution.

Encore merci et cordiales salutations.

Pour moi le sujet est clos.