[Gestion mémoire] SetLength sur TDoubleDynArray

Version imprimable

Est-ce que vous voyez une différence entre

Code:

1
2
3
4
5
6
7
8
procedure TC_Differentielle.clone(source : TDoubleDynArray;var destination : TDoubleDynArray);
  var i : integer;
begin
  SetLength(destination,0); //Effecement de la liste
  SetLength(destination,length(source)); //Réallocation
  for i:=0 to length(source)-1 do
    destination[i] := source[i]; //Affectation
end;

Code:

1
2
3
4
5
6
7
8
9
10
procedure TC_Differentielle.clone(source : TDoubleDynArray;var destination : TDoubleDynArray);
  var i : integer;
begin
  SetLength(destination,0); //Effacement de la liste
  for i:=0 to length(source)-1 do
    begin
      SetLength(destination,length(destination)+1);//Réallocation progressive
      destination[i] := source[i];//Affectation
   end;
end;

Hormis bien sûr le fait que la deuxième solution est plus lente et un petit peu stupide.

Car en fait, si j'utilise la deuxième solution, j'ai des affectations foireuseuses. A la sortie, je me retrouve avec la liste qui contient n'importe quoi.

Est-ce normal ?

22/04/2005, 13h11
Pierre Castelain

A priori non. Il ne devrait pas y avoir de différence au niveau du résultat. A moins que SetLength ne préserve pas le contenu du tableau mais il me semble bien qu'il est censé le faire.
Il me vient quand même une idée. Fais un essai en désactivant l'option d'optimisation du code. Je ne serais pas étonné que cela vienne de là.
22/04/2005, 13h45
MD Software

Alors le SetLength préserve bien le contenu du tableau, ça c'est bon.
En enlevant l'optimisation de code, je n'ai aucun changement.

Je comprend vraiment pas ce qui le gène. :?: :?: :?:
22/04/2005, 15h49
MD Software

Bon, après un bon paquet de recherches, je pense devoir me passer de TDoubleDynArray et me rabattre sur TList.

Si quelqu'un a déjà utilisé [allocation et désallocation multiples] avec succès les TDoubleDynArray, je suis intéressé, parce que le TList est plus lourd à gérer.
22/04/2005, 16h13
bjl

ce ne serait pas plutôt

SetLength(destination,length(destination[0])+1);//Réallocation progressive

pour augmenter la taille de la 2ème dimension se ton tableau ?
22/04/2005, 16h17
MD Software

C'est un tableau à une seule dimension
22/04/2005, 16h30
bjl

Citation:

Envoyé par MD Software

C'est un tableau à une seule dimension

pardon... pas bien réveillé :oops:

Si ça peut t'aider...

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
34
35
36
37
38
39
40
41
42
43
44
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Types;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
  D : Double;
  source,
  destination : TDoubleDynArray;
begin
  SetLength(Source, 100);
  D := 1;
  For I := 0 to 99 do Begin Source[I] := D; D := D + 1;End;
  SetLength(destination,0); //Effacement de la liste
  for i:=0 to length(source)-1 do
    begin
      SetLength(destination,length(destination)+1);//Réallocation progressive
      destination[i] := source[i];//Affectation
   end;
end;
 
end.

Ce code est fonctionelle :?

24/04/2005, 18h42
MD Software

En fait, mon problème se pose surtout quand j'ai beaucoup de TDoubleDynArray dans ma classe. J'ai une classe qui en compte beaucoup, et si j'utilise la réallocation progressive, je perd des données.

Je comprend vriament pas ce phénomène.
Ja vais me rabattre sur les TList, tant pis, mais merci quand même.
24/04/2005, 19h29
Pierre Castelain

Tu dois avoir un problème ailleurs. SetLength conserve les données existantes. Peut-être un débordement ailleurs...
24/04/2005, 19h32
MD Software

C'est en effet ce que je pense, mais malheureusement, mes recherches sont restées vaines.
24/04/2005, 20h41
Sub0

J'ai déjà eu un problème similaire avec SetLength; Je n'ai toujours pas réussi à comprendre pourquoi... Lorsque j'ajoutais un élément à mon tableau et que je redimensionnais celui-ci, je perdais mes enregistrements précédents et mon tableau conservait un peu n'importe quoi. Il me semble qu'il s'agit de ce code :
http://www.developpez.net/forums/vie...609357#1609357
24/04/2005, 20h52
MD Software

Merci, :wink: je vais regarder de près.
24/04/2005, 21h08
Sub0

J'ai peut-être une idée du problème en fin de compte. Il semblerait que SetLength sature lorsqu'on lui demande d'allouer un trop grand nombre d'élément en mémoire...

Citation:

La procédure SetLength effectue une demande de mémoire et non pas une véritable allocation de mémoire. Elle réserve l'espace mémoire demandé pour une utilisation future sans utiliser effectivement la mémoire. Cette technique est fondée sur une fonctionnalité des systèmes d'exploitation Windows et est utilisée par Delphi pour toutes les allocations dynamiques de mémoire. Lorsque, par exemple, on demande un très grand tableau, sa mémoire est réservée mais pas allouée.

Citation:

S'il n'y a pas de mémoire suffisante pour réallouer la variable, SetLength déclenche une exception EOutOfMemory.
24/04/2005, 21h11
MD Software

AAAAAAAAAAAAAAAAAAAAAAA

tout s'explique

Je manipule en effet des tableaux de très grands volumes.

Bon, ben, tout se confirme, je passe sous TList, au moins je ferai moi même l'allocation, et je serai sûr que ça marchera.

Merci à tous !