Bonjour à tous,
Me voila bloqué à nouveau...
J'ai une procédure avec plusieurs paramètres! un des paramètres est un tableau de TShape car j’appellerai cette fonction une fois avec avec un tableau de TRectangle, et une autre fois avec des TCircle.
Mais il me met des erreurs d'accès!
et j'appelle 2 fois ma fonction :
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 procedure TForm4.minMaxTotalAmp(tab: array of real; tabLab: array of TLabel; str: string; arrayComposant: array of TShape); var t:integer; min, max, h: real; rmin, rmax: Tarray<integer>; begin ........... //pas important! for t := 0 to length(rmin)-1 do begin arrayComposant[rmin[t]].Stroke.Color:=TAlphaColorRec.Blue; arrayComposant[rmin[t]].Stroke.Thickness:=2; end; for t := 0 to length(rmax)-1 do begin arrayComposant[rmax[t]].Stroke.Color:=TAlphaColorRec.Red; arrayComposant[rmax[t]].Stroke.Thickness:=2; end; end;
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 arrayRectTotal: array[0..5] of TShape; arrayCerAmp: array[0..6] of TShape; minMaxTotalAmp(tabTot, arrayLabelTot, 'V', arrayRectTotal); minMaxTotalAmp(tabAmp, arrayLabelAmpe, 'A', arrayCerAmp);
Partager