Probleme de type avec Array

je voudrais dans une procédure utiliser un parmi plusieurs tableaux suivant une selection .
Exemple,Avec
Code:

1 2 3 4 5 6 7 8 9 10 11 12 procedure TForm3.Button5Click(Sender: TObject); Const Tab1:Array[0..7] of extended = (21.5,21.6,21.8,22.1,22.6,23.5,23.1,22.9); Tab2:Array[0..7] of extended = (11.5,1.6,211,20,22.6,25.5,23.1,22.9); Tab3:Array[0..7] of extended = (25.5,25.6,208,20.1,20.6,23.5,23.1,22.9); Var tab:Array[0..7]of extended ; begin If RadioGroup1.ItemIndex =0 then Tab:=Tab1; If RadioGroup1.ItemIndex =1 then Tab:=Tab2; If RadioGroup1.ItemIndex =2 then Tab:=Tab3;
le compilateur m'indique ;types incompatibles, pourtant j'affecte un tableau à une variable tableau d'une même taille ?
quelle est la bonne méthode?
Merci

Code:

1
2
3
4
5
case RadioGroup1.ItemIndex of
  0 : Move(Tab1, Tab, sizeof(Tab));
  1 : Move(Tab2, Tab, sizeof(Tab));
  2 : Move(Tab3, Tab, sizeof(Tab));
end;

Et encore mieux :

Code:

1
2
3
4
5
6
7
8
9
10
11
const
  Tabs : array[0..2] of array[0..7] of Extended = (
    (21.5,21.6,21.8,22.1,22.6,23.5,23.1,22.9),
    (11.5,1.6,211,20,22.6,25.5,23.1,22.9),
    (25.5,25.6,208,20.1,20.6,23.5,23.1,22.9)
  );
var
  Tab : array[0..7] of Extended;
begin
  Move(Tabs[RadioGroup1.ItemIndex], Tab, sizeof(Tab));
end;

Légèrement moins lisible, mais ô combien plus efficace, surtout si tu n'as donné qu'un exemple et que tu as en fait beaucoup plus de tableaux Tabx ;)
end;

Code:

1 2 3 4 type MyTab: array[0..7] of Extended; const Tab1: MyTab = (21.5,21.6,21.8,22.1,22.6,23.5,23.1,22.9);
pour qu'ils soient du même type : à tester, mais sjrd a donné une solution élégante (on peut se passer des move avec des pointeurs sur tableaux)

Citation:
Envoyé par tourlourou
Code:

1 2 3 4 type MyTab: array[0..7] of Extended; const Tab1: MyTab = (21.5,21.6,21.8,22.1,22.6,23.5,23.1,22.9);
c'est la bonne méthode

Citation:

Envoyé par tourlourou

(on peut se passer des move avec des pointeurs sur tableaux)

c'est vrai, c'est pourqoi les pointeurs exist,

J'avais, sur le post d'origine, donné un exemple avec des tableaux statiques pout faire imple, mais en fait, mon application utilise des tableaux statiques.
J'ai bien essayé de transposer vos conseils, mais de gros souci de plantage soit de l'apilcation soit de windows compltement (obligé de couper l'ordi + scan disques etc)

Je place carrement le code sur ce post

les tableaux dynamiques déclarés en Array ofArray sont complété au fil de l'application en allouant une valeur suppl avant cahaque aquisition.

Code:

1
2
3
4
 Setlength(tabsalle,length(tabsalle)+1); 
      Tabsalle[length(tabsalle)-1]:= T_salle;
      Setlength(tabatelier,length(tabatelier)+1); 
      Tabatelier[length(tabatelier)-1]:= T_atelier;

ensuite pour avoir une procedure commune, je transfertt en fonction d'un choix un tableau dans tab
puis je construis la courbe
Quand j'appelle la procédure Btcourbeclick, les valeurs dans tab sont justes et la courbe se trace correctement l mais si j'appelle une seconde fois la procédure , je plante tout. Soit une message me dit "opération avec virgule flottante non correcte" et / ou le programme va être arrêté car il a effectué une opération non conforme
voici la procédure en question
je suppose qu'i sagit d'un probleme de mémoire allouée pour ce tab mais ???

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
 
procedure TForm3.BtcourbeClick(Sender: TObject);
 Var i: integer;
  larg:extended;
 tab:array of extended;
begin
case Radiogroup1.ItemIndex of
 0:Move (tabsalle, tab, sizeof(tab));
 1:Move (tabext, tab, sizeof(tab));
 2:Move (tabcons1, tab, sizeof(tab));
.
.
.
 else showmessage('il faut choisir une courbe ');
 end;
 
Edit1.Text:=IntTostr(length(tab));
For i:=0 to  length(tab) -1 do
Memo1.lines.add(FloatTostr(tab[i]));
// me permet de visualiser ce que le tab a comme valeurs
max:=SpinEdit1.Value;
min:=SpinEdit2.value;
If min >= max then   // verrrouillage pour que max soit strictement > min
  begin
  showmessage('max doit être > min');
  exit;
  end;
// contrôle taille du tracé / taille du tableau
If (SpinEditfin.value > length(tab))or (SpinEditfin.value=0 ) then  SpinEditfin.value :=length(tab);
 
// controle pour valeurs positives
If (SpinEditdebut.Value < 0) or (SpinEditfin.Value <2 )then
  begin
  showmessage('le début de la plage du tracé doit être > ou = 0 et la fin de courbe au moins > ou 2');
  exit;
  end;
If (SpinEditfin.Value -SpinEditdebut.Value)<2 then
  begin
  showmessage('l''écart entre le début et la fin de la courbe doit être au moins de 2 ');
  exit;
  end;
Btcourbe.Enabled:=false; // rend inactif le bouton pendant le tracage
 // le spinEdit3 définit la hauteur de la courbe
h:= SpinEditplage.value/((max-min)*100);
decal:= ((clientheight-110 + SpinEditplage.value)div 2);
Larg:= Form3.width  /((spinEditfin.Value-SpinEditdebut.value)+1) ;
    If Larg > 50 then larg:=50; // au début avec peu de mesures
 
     Edit2.Text:=FloatTostr(larg);
    // tracage des limites
    Canvas.Pen.Color:=clblack;
    Canvas.Pen.width:=1;
    Canvas.MoveTo(0,-Round((max-min)*100*h)+decal);
    Canvas.LineTo(clientwidth, -Round((max-min)*100*h)+decal);
    Canvas.MoveTo(0,-Round((min-min)*100*h)+decal);
    Canvas.LineTo(clientwidth, -Round((min-min)*100*h)+decal);
    Application.ProcessMessages;
    Canvas.Pen.Color:=clred;
    Canvas.MoveTo(0,-Round((StrToFloat(Form1.edit_maison.text)-min)*100*h)+decal);
    Canvas.LineTo(clientwidth, -Round((StrToFloat(Form1.edit_maison.text)-min)*100*h)+decal);
    Labelmax.top:=-Round((max-min)*100*h)+decal;
    Labelcons.top:=-Round((StrToFloat(Form1.edit_maison.text)-min)*100*h)+decal;
    Labelmin.top:=-Round((min-min)*100*h)+decal;
    Labelmax.caption:=IntToStr(max);
    Labelcons.caption:=Form1.edit_maison.text;
    Labelmin.caption:=IntToStr(min);
    Labelmax.visible:=true;
    Labelcons.visible:=true;
    Labelmin.visible:=true;
    Application.ProcessMessages;
 
  //traçage de la courbe par rapport aux limites de d&but et fin
  For i:=spinEditdebut.value to spinEditfin.value-2 do
    begin
    Canvas.Pen.Color:=clBlue;
    Canvas.Pen.width:=1;
    Canvas.MoveTo(Round((i-spinEditdebut.value)*larg)+5,-Round((Tab[i]-min)*100*h)+decal);
    Canvas.LineTo(Round((i-spinEditdebut.value+1)*larg)+5,-Round((Tab[i+1]-min)*100*h)+decal);
  end;
end;

Mille excuses pour la longueur de cet extrait de code mais le premier post avait éte trop court et du coup non représentatif
Merci par avance procedure

Ouf, j'ai finalement trouvé le problème, il s'agissait d'une erreur: une variable locale et une globale qui portaient le même nom

Merci pour les conseils