Discussion :

[dvarrel]

bonjour, je souhaite affecter à un tableau dynamique une constante tableau.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
type
 //type d'élément : l'élément C est le négatif de A ,
 // et l'élément B est le complément de C
 Telt=(A,B,AB,C,GN,GC);
 
var
  Form1: TForm1;
  SeqEAN : array of Telt;
  BarCodeType : (EAN8,EAN13,C39);
const
  SeqEAN13 : array [0..13] of Telt = (GN,A,AB,AB,AB,AB,GC,C,C,C,C,C,C,GN);
  SeqEAN8 : array  [0..10] of Telt = (GN,A,A,A,A,GC,C,C,C,C,GN);

J'ai essayé Move(SeqEAN13,SeqEAN,Sizeof(SeqEAN)), cela ne marche pas, et copy renvoie une erreur de compilation.

[PadawanDuDelphi]

Salut,

As-tu défini la longueur de ton tableau dynamique avant d'essayer de le remplir?

Code :

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

SetLength(SeqEAN,length(SeqEAN13))

A+.

[sjrd]

D'abord tu donnes la bonne longueur au tableau dynamique, et ensuite tu Move :

Code :

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

1
2
SetLength(SeqEAN, Length(SeqEAN13));
Move(SeqEAN13[0], SeqEAN[0], sizeof(SeqEAN13));

[dvarrel]

D'abord tu donnes la bonne longueur au tableau dynamique, et ensuite tu Move :

Code :

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

1
2
SetLength(SeqEAN, Length(SeqEAN13));
Move(SeqEAN13[0], SeqEAN[0], sizeof(SeqEAN13));

merci sjrd , voilà mon erreur :

Code :

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

Move(SeqEAN13, SeqEAN, sizeof(SeqEAN13));

au lieu de

Code :

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

Move(SeqEAN13[0], SeqEAN[0], sizeof(SeqEAN13));

Je pensais qu'en ne donnant pas l'indice, le move se faisait à partir du début.