Record avec champ "variable"

Version imprimable

26/03/2012, 15h00
GoustiFruit

Record avec champ "variable"
Bonjour,

J'ai un petit problème de débutant mais je pense que cette section convient mieux pour mon cas...

J'ai une procédure qui déclare et utilise localement un record dont une partie est "variable"; ce code fonctionne:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 procedure Test; const NbMax = 10; type TMonRecord = record Tableau: array[0..NbMax - 1] of Integer; end; var UnRecord: TMonRecord; i1: Integer; begin // end;
mais je voudrais passer la partie variable en paramètre de ma fonction, et là ça ne marche plus:
Code:

1 2 3 4 5 6 7 8 9 10 11 procedure Test(const NbMax: Integer); type TMonRecord = record Tableau: array[0..NbMax - 1] of Integer; end; var UnRecord: TMonRecord; i1: Integer; begin // end;
Comment faire pour rendre mon record "dynamique", selon le paramètre passé à la procédure ?

(Je sais, c'est niveau raz-de-la-moquette, mais j'ai toujours eu du mal avec les subtilités du langage)

Merci

Code:

1
2
3
4
5
6
7
8
9
10
11
 
procedure Test(const NbMax: Integer);
type
  TMonRecord =  array of Integer;
var
  UnRecord: TMonRecord;
  i1: Integer;
begin
  SetLength(UnRecord, NbMax);
 //
end;

Attention au terme "variable" en Delphi, il existe Partie variable des enregistrements, voir plus bas dans ma réponse, c'est plus tordu !

@Paul Toth, TMonRecord n'est plus un record mais un type équivalent à TIntegerDynArray

GoustiFruit, pour ton cas que Paul Toth a un peu trop simplifié, c'est la même chose avec le type string

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
const
  NbMax = 10;
 
type
  TMonRecord = record 
    Tableau: Types.TIntegerDynArray; // Dès D6, sinon "array of Integer"
    Chaine: string;
    ChaineFixe: ShortString;
    ChaineDix: string[10];
  end;
 
var
  UnRecord: TMonRecord;
  i: Integer;
begin
  SetLength(UnRecord.Tableau, NbMax);
  for i := Low(UnRecord.Tableau) do High(UnRecord.Tableau) do
    UnRecord.Tableau[i] := i; 
 
  Chaine := 'Une Phrase Longue c''est  dynamique';
  SetLength(UnRecord.Chaine, NbMax); // Tronque la chaine !
 
  ChaineFixe = 'Une Phrase Longue ce n''est pas dynamique ici car toujours 255 caractères';
  ChaineDix := 'Pas plus de Dix ! Oups !'; // tronque !
 
end;

Un démo de la Partie variable des enregistrements, tu noteras que c'est différent mais aussi très intéressants !

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
procedure Test;
const
  NbMax = 10;
type
  TMonRecord = record
    case integer of
      0: (
           Tableau: array[0..NbMax - 1] of Integer;
         );
 
     1: (
           I1: Integer;
           I2: Integer;
           I3: Integer;
           I4: Integer;
           I5: Integer;
           I6: Integer;
           I7: Integer;
           I8: Integer;
           I9: Integer;
           I10: Integer;
         );
 
  end;
var
  UnRecord: TMonRecord;
  i: Integer;
begin
begin
  SetLength(UnRecord.Tableau, NbMax);
  for i := Low(UnRecord.Tableau) do High(UnRecord.Tableau) do
    UnRecord.Tableau[i] := i; 
 
  ShowMessage(IntToStr(UnRecord.i1)); // contient 0 car partage l'espace mémoire avec Tableau[0]
  ShowMessage(IntToStr(UnRecord.i2)); // contient 1 partage avec Tableau[1]
  ShowMessage(IntToStr(UnRecord.i3)); // contient 2 partage avec Tableau[2]
  ...
end;

26/03/2012, 15h48
GoustiFruit

@Paul Toth: mon exemple est hyper simplifié, en réalité mon enregistrement contient d'autres champs ! :roll:

@Paul Toth et @ ShaiLeTroll: je ne veux pas passer par SetLength car par la suite j'utilise un grand nombre d'enregistrements de type TMonRecord, je suis en D7 et ça ne me semble pas efficace de redimensionner pour chaque enregistrement !?

Mais d'après vous il n'y a pas moyen de déclarer ce tableau dans mon record avec une taille dépendant d'un paramètre ? Vraiment obligé de passer par SetLength ?

Citation:

Envoyé par GoustiFruit

Mais d'après vous il n'y a pas moyen de déclarer ce tableau dans mon record avec une taille dépendant d'un paramètre ? Vraiment obligé de passer par SetLength ?

C'est un simple tableau dynamique, c'est ultra standard comme pratique !

Citation:

Envoyé par GoustiFruit

je suis en D7 et ça ne me semble pas efficace de redimensionner pour chaque enregistrement !?

Si tu alloue le tableau qu'une seule fois, c'est tout à fait performant, regarde la String, cela passe son temps à faire ça !
Par contre, si tu passe ton temps à changer de taille, cela devient discutable, il faudrait étudier une TList ou TObjectList,
mais bon si tu utilises des Record, tu ne dois pas être familier de la POO en général

Citation:

Envoyé par GoustiFruit

j'utilise un grand nombre d'enregistrements de type TMonRecord

?
un Grand nombre ? 10 000 ? 100 000 ?
Création de metaclass en dynamique
Création d'objets "par lots"

Deux méthodes,
soit le SetLength pour le tableau dynamique
soit une Partie variable des enregistrements, je pense que tu n'as pas envisagé cela avec ma démo :
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 procedure Test; type TMonRecord = record case integer of 10: (Tableau10: array[0..9] of Integer;); 20: (Tableau20: array[0..19] of Integer;); 30: (Tableau30: array[0..29] of Integer;); end; var UnRecord: TMonRecord; i: Integer; begin for i := Low(UnRecord.Tableau10) do High(UnRecord.Tableau10) do UnRecord.Tableau10[i] := i; for i := Low(UnRecord.Tableau20) do High(UnRecord.Tableau20) do ShowMessage(UnRecord.Tableau20[i]); for i := Low(UnRecord.Tableau20) do High(UnRecord.Tableau20) do UnRecord.Tableau20[i] := -i; for i := Low(UnRecord.Tableau10) do High(UnRecord.Tableau10) do ShowMessage(UnRecord.Tableau10[i]); for i := Low(UnRecord.Tableau20) do High(UnRecord.Tableau20) do ShowMessage(UnRecord.Tableau20[i]); for i := Low(UnRecord.Tableau30) do High(UnRecord.Tableau30) do ShowMessage(UnRecord.Tableau30[i]); end;
en pratique dans le code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 procedure FaireChose(TableauType: Integer); begin case TableauType of 10 : FaireChoseTableau(UnRecord.Tableau10); 20 : FaireChoseTableau(UnRecord.Tableau20); 30 : FaireChoseTableau(UnRecord.Tableau30); end; end; procedure FaireChoseTableau(const Tableau : array of Integer); var i: Integer begin for i := Low(Tableau) do High(Tableau ) do ShowMessage(Tableau [i]); end;

26/03/2012, 16h39
GoustiFruit

Citation:

Envoyé par ShaiLeTroll

?
un Grand nombre ? 10 000 ? 100 000 ?

99% du temps ça serait quelques centaines, mais en théorie ça pourrait atteindre 5-10 millions dans certains cas.

Citation:

Deux méthodes,
soit le SetLength pour le tableau dynamique
soit une Partie variable des enregistrements, je pense que tu n'as pas envisagé cela avec ma démo :

J'avais envisagé, mais les cas ne seront pas déterminés à l'avance, ils dépendront vraiment du paramètre.

Bon, allons-y pour le SetLength...
26/03/2012, 17h25
ShaiLeTroll

Citation:

Envoyé par GoustiFruit

99% du temps ça serait quelques centaines

tu te prends trop la tête alors !

Citation:

Envoyé par GoustiFruit

mais en théorie ça pourrait atteindre 5-10 millions dans certains cas

la théorie et la pratique ... imaginer charger 10 millions de record n'est même pas imaginable, pense que si ton record occupe 200 octets, tu arrives arrive à 2Go mémoire, le problème sature en Win32 !

10 millions de record via pointeur, c'est déjà 40Mo rien que pour les pointeurs de record !
Un tableau de 10 Integers, c'est déjà 32 octets, donc 320Mo !
cela monte très vite !

Tu peux faire un SetLength progressif du genre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
var
  i1 : integer ;
  ar1 :  array of integer ;
  pos1 : integer ;
  long1 : integer ;
 
begin
  pos1 := 0 ;
  long1 := 10 ;
  setLength(ar1,long1) ;
  for i1 := 1 to 100 do
  begin
      if pos1 >= high(ar1)- 1 then
      begin
        long1 := long1 * 120 div 100 ;  // +20%
        setLength(ar1, long1);
      end ;
      ar1[pos1] := 10000 + i1 ; // juste pour avoir une valeur
      pos1 := pos1 + 1 ;
  end ;
end;

26/03/2012, 17h41
GoustiFruit

Citation:

Envoyé par ShaiLeTroll

tu te prends trop la tête alors !

la théorie et la pratique ... imaginer charger 10 millions de record n'est même pas imaginable, pense que si ton record occupe 200 octets, tu arrives arrive à 2Go mémoire, le problème sature en Win32 !

10 millions x 200 octets, ça ne ferait pas plutôt 2 milliards d'octets, soit un peu en dessous de 2 Go (2147483648 o) ? Ça passe largement :-D

Citation:

Un tableau de 10 Integers, c'est déjà 32 octets, donc 320Mo !
cela monte très vite !

Hmm, les chiffres et toi... :lol: Ca ne serait pas plutôt 3,2 milliards d'octets ? 10*32*10000000...

Bref, j'ai transformé mon code pour utiliser des SetLength à la place, pas de problème ça fonctionne mais gare à ne pas oublier une initialisation de la longueur quelque part !

@ALWEBER: oui je sais, mais inutile dans mon cas, la taille du tableau de chaque enregistrement est définie une fois pour toute pour toute la procédure. C'était juste un problème d'initialisation.
26/03/2012, 17h48
ShaiLeTroll

Citation:

Envoyé par GoustiFruit

Hmm, les chiffres et toi...

Tout dépend sur Go ou Gio !

1 Go = 1 000 000 000 o
1 Gio = 1 073 741 824 o

Citation:

Envoyé par GoustiFruit

Citation:

Envoyé par ShaiLeTroll

Un tableau de 10 Integers, c'est déjà 32 octets, donc 320Mo !
cela monte très vite !

Hmm, les chiffres et toi... :lol: Ca ne serait pas plutôt 3,2 milliards d'octets ? 10*32*10000000...

Mais d'où ai-je sorti ce 32 ??? c'était 40 ! :roll:

10 000 000 records
1record = 1 tableau de 10 integer donc 10 x 4o donc 40o
donc 40 x 10 000 000 = 400Mo !

EDIT : je suis bête, 4o = 32bit, je me suit mis à compter en bit, et tu as raison 400 000 000o = 3 200 000 000 bit

Citation:

Envoyé par GoustiFruit

gare à ne pas oublier une initialisation de la longueur quelque part !

POO, Objet et Constructeur au lieu de Record !
26/03/2012, 17h53
Andnotor

Oui mais euhh... un integer c'est 4 octets (en 32 bits)
26/03/2012, 19h06
GoustiFruit

Citation:

Envoyé par ShaiLeTroll

POO, Objet et Constructeur au lieu de Record !

Oui mébon, c'est un besoin très ponctuel sur une pitit' procédure :zoubi:

Citation:

Envoyé par Andnotor

Oui mais euhh... un integer c'est 4 octets (en 32 bits)

C'est bon, tu nous a bien foutu la honte ! :aie:

Mais il me semblait bien que les chiffres de Shai étaient fantaisistes, dans mon appli je manipule des tableaux de millions d'entiers sans problème, et je n'ai pas d'explosion de la conso mémoire. Ça ne représente que quelques Mo, aujourd'hui toutes les applis utilisent bien plus que ça !

Citation:

Envoyé par ShaiLeTroll

C'est un simple tableau dynamique, c'est ultra standard comme pratique !

tout à fait
Citation:
Envoyé par ShaiLeTroll
...
Deux méthodes,
soit le SetLength pour le tableau dynamique
soit une Partie variable des enregistrements, je pense que tu n'as pas envisagé cela avec ma démo :
Code:

1 2 3 4 5 6 7 8 procedure Test; type TMonRecord = record case integer of 10: (Tableau10: array[0..9] of Integer;); 20: (Tableau20: array[0..19] of Integer;); 30: (Tableau30: array[0..29] of Integer;); end;
?????!!!! tu me fais quoi là Shai ?????!!!

tout cela pour utiliser Low() et High() ?! c'est assez horrible :)

26/03/2012, 20h29
GoustiFruit

Certes pour le tableau dynamique, mais le truc était que tous les enregistrements devaient avoir un tableau de même longueur - longueur passée en paramètre à la procédure - donc je pensais qu'au lieu d'initialiser le tableau pour chaque nouvel enregistrement avec un SetLength, j'aurais pu l'initialiser dans la déclaration même du type record, une fois pour toute, en fonction du dit paramètre.
26/03/2012, 22h06
Andnotor

Delphi reste du code natif et ne peut gérer (optimiser) que ce qu'il connait au moment de la compilation ;)
27/03/2012, 11h53
ShaiLeTroll

Citation:

Envoyé par Paul TOTH

?! tu me fais quoi là Shai ?! c'est assez horrible :)

:mouarf: Je te confirme, c'était juste pour montrer ce qui existait !
Surtout que cela consomme toujours la taille du plus grand tableau, ce n'est pas économique, un SetLength ou une bonne TList c'est effectivement mieux !