Bonjour,
je voudrais créer une structure de base avec une classe, puis me servir de cette structure dans une sous-classe comprenant un tableau dynamique.
Mais lorsque j'essaye d'instancier ma variable 'ValeurTemp' dans le constructeur (SetLength(ValeurTemp, 0), j'obtiens un message d'erreur 'Violation d'accès ...' ???
Voici le bout de code.
Merci pour votre aide qui nous fait tant progresser.
Bonne journée.
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48 Type //------------------------------------------------------------- Type de base TTypeDeBase = Class Val1 : double; // valeur du premier curseur Val2 : byte; // valeur du second curseur private { Déclarations privées } public { Déclarations publiques } end; //-------------------------------------------- Tableau de curseurs verticaux TValeur = Class(TTypeDeBase) public { Déclarations publiques } Constructor Create(); Destructor Destroy; Override; Procedure SetVal1(Val: Double); private TabValeur : array of TValeur; // déclaration d'un tableau dynamique de couples de valeur { Déclarations privées } end; //---------------------------------------------------------------------------- Var //............................................................................ ValeurTemp : TValeur; // instance du tableau dynamique des couples de valeur //............................................................................ implementation //****************************************************************************** //*********************** Constructeur & Destructeur *********************** //****************************************************************************** Constructor TCursVert.Create(); begin SetLength(ValeurTemp, 0); end; //------------------------------------------------------------------------------ Destructor TCursVert.Destroy(); begin SetLength(ValeurTemp, 0); Inherited Destroy; end; //****************************************************************************** //******************** Fin du Constructeur & Destructeur ******************* //******************************************************************************
Partager