Discussion :

[MD Software]

Est-ce que vous voyez une différence entre

Code :

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

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;

et

Code :

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

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 ?

[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à.

[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. : : :

[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.

[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 ?

[MD Software]

C'est un tableau à une seule dimension

[bjl]

C'est un tableau à une seule dimension

pardon... pas bien réveillé

[/dev/null]

Si ça peut t'aider...

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
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

[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.

[Pierre Castelain]

Tu dois avoir un problème ailleurs. SetLength conserve les données existantes. Peut-être un débordement ailleurs...

[MD Software]

C'est en effet ce que je pense, mais malheureusement, mes recherches sont restées vaines.

[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

[MD Software]

Merci, je vais regarder de près.

[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...

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.

S'il n'y a pas de mémoire suffisante pour réallouer la variable, SetLength déclenche une exception EOutOfMemory.

[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 !