Violation d'accées : Tchart

**yanba** · 18/02/2006, 23h31

Bonjour,

Je comprends pas pourquoi depuis que j'ai remplacé :

Code :

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

var donnees : array [0..1000] of real par donnees : array of real;

J'ai une violation d'accées au niveau de :

Code :

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

donnees[i]:=FieldByName('Montant').Value;

Voici le code complet (le code est pour faire un graphique à partir d'un Tchart):

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
procedure Tform5.CalculGraphique;
var i,j,x:integer;
    donnees : array of real;
begin
    With Chart1 do
        Begin
            Series1.Clear;
            Initialize(donnees);
            i:=0;
            j:=0;
            DM.ADOTableOperations.First;
            With DM.ADOTableOperations do
                While not Eof do
                    begin
                        donnees[i]:=FieldByName('Montant').Value;
                        i:=i+1;
                        Next;
                    end;
            j:=i-1;
 
            for i:=0 to j do Series1.Add(donnees[i]); // Ligne
            for i:=0 to j do Series2.Add(donnees[i]); // Histogramme
            for i:=0 to j do Series3.Add(donnees[i]); // Sectoriel
            for i:=0 to j do Series4.Add(donnees[i]); // Aire
        end;
    Finalize(donnees);
end;
 
procedure TForm5.FormCreate(Sender: TObject);
Begin
    CalculGraphique;
End;