Discussion :

[Homer]

bonjour,

je dispose d'un tableau de tableau du genre

mon_tab: array of array of integer;

C'est en fait une collection d'acquisitions de données, pour chaque acquisition je récupere 2000 données par exemple, et je peux aller jusque 10000 acquisitions facilement.
Au départ, j'avais déclaré comme ça:

mon_tab: array [1..10000]of array [1..2000] of integer;

Mais ca consomme un max de mémoire, donc je souhaite modifier dynamiquement la taille de mon_tab, parce que je me sers pas tout le temps de ces tableaux, ni a pleine capacité.
J'ai fait un petit test du genre:

setlength(mon_tab, taille +100);

Ca semble fonctionner, mais je ne sais pas quel tableau est vraiment agrandi, est-ce le 1er membre ou le 2e ? Ce qui m'intéresse c'est de pouvoir faire gonfler le 1er, je pense que c'est le cas...
Est-ce que quelqu'un connait la réponse ?

merki.

[ShaiLeTroll]

C'est la première dimension qui est agrandi ... si tu veux agrandir la seconde dimension, j'ai toujours pour ma part, parcouru la 1ère dimension, et j'agrandi chaque cellule

Il existe une autre solution, comme on faisait en delphi 3

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
procedure TFrmTestMemory.BtnPointerIntArray1024By256Click(Sender: TObject);
type
  PMatriceInteger1024By255 = ^TMatriceInteger1024By255;
  TMatriceInteger1024By255 = array [0..1023,0..255] of Integer;
  TShortString8 = string[8];
  PMatriceString1024By255 = ^TMatriceString1024By255;
  TMatriceString1024By255 = array [0..1023,0..255] of TShortString8;
var
  Tableau : PMatriceInteger1024By255 ;
  TabStr : PMatriceString1024By255 ;
  PosH : Integer;
  PosV : Byte;
begin
    GetMem(Tableau, 1024*256*SizeOf(Integer)); // faut absoluement alouéé la taille du Type !
    for PosH := 0 to 1023 do
    begin
      for PosV := 0 to 255 do
      begin
        Tableau^[PosH][PosV]:= PosH*PosV;
      end; 
    end;
    FreeMem(Tableau);
 
    GetMem(TabStr, 1024*256*SizeOf(TShortString8)); // faut absoluement alouéé la taille du Type !
    for PosH := 0 to 1023 do
    begin
      for PosV := 0 to 255 do
      begin
        TabStr^[PosH][PosV]:= IntToStr(PosH) +'_'+ IntToStr(PosV);
      end;
    end;
    FreeMem(TabStr);
end;

Il faut absolument, conserver les dimensions, je conseille, ceci pour une utilisation massive

Code :

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

1
2
3
4
5
6
7
8
type
  PIntegerArray10000By2000 = ^TMatriceInteger10000By2000 ;
  TIntegerArray10000By2000 = array [1..10000,1..2000] of Integer;
  THomerData = record
    DimensionUn: Word;
    DimensionDeux: Word;
    Values: TIntegerArray10000By2000;
  end;

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
var
  Data: THomerData;
begin
  Data.DimensionUn := 100;
  Data.DimensionDeux := 50;
  GetMem(Data.Values, Data.DimensionUn*Data.DimensionUn*SizeOf(Integer));
 
  for PosH := 1 to Data.DimensionUn do
  begin
    for PosV := 1 to Data.DimensionDeux do
    begin
      Data.Values[PosH][PosV]:= PosH*PosV;
    end; 
  end;
  FreeMem(Data.Values);

Avec du Courage, je conseile même de faire une classe avec une propriété Items multi-dimension qui gère un capacity et un count séparé comme une TList

[Homer]

ok merci, ca répond a ma question

[sjrd]

C'est la première dimension qui est agrandi ... si tu veux agrandir la seconde dimension, j'ai toujours pour ma part, parcouru la 1ère dimension, et j'agrandi chaque cellule

Il existe une autre solution, comme on faisait en delphi 3

Je crois que tu seras intéressé de savoir que la pseudo-routine SetLength peut accepter un nombre variable d'arguments (oui, comme en C), pour chaque dimension :

Code :

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

1
2
3
4
5
6
var
  MonTab: array of array of Integer;
begin
  SetLength(MonTab, 5, 3);
  // MonTab est un tableau de 5x3 entiers
end;

[ShaiLeTroll]

Je crois que tu seras intéressé de savoir que la pseudo-routine SetLength peut accepter un nombre variable d'arguments (oui, comme en C), pour chaque dimension

Pour les tableaux dynamiques, SetLength peut prendre plusieurs paramètres de longueur (autant que le nombre de dimensions du tableau). Chaque paramètre spécifie le nombre d'éléments avec une dimension particulière.

Yep, j'ai même retrouvé un essai de cela dans mon application à bordel, mais je l'oublie TOUT le temps, faut dire que j'ai rarement des tableaux à deux dimensions, et souvent la 2eme est variable, ... un jour ça va rentrer, et puis, je fais surtout des tableaux de structure, ... ou des TList ...