Discussion :

[jp1664]

Bonjour

je suis sur Delphi7 'personnel', débutant, je déclare un record qui contient un autre record tout cela en statique ( peut être plus simple a manipuler).

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
Type
  Rforme=record
    proftrace:single;
    profattach:single;
    reverse:boolean;
    close:boolean;
    select:boolean;
    end;
 
  Rlayer=record
    nom:string;
    debut:integer;
    fin:integer;
    optimise:boolean;
    ligne:integer; {nb de ligne}
    cercle:integer; {nb de cercle}
    arc:integer; {nb d'arc}
    spline:integer; {nb de spline}
    forme:integer; {nb de forme}
    Tforme:Rforme;
    end;
 
const
  Qforme=64;
  Qlayer=6;
var
  Form1: TForm1;
 
  Tforme:array [0..Qforme] of Rforme;
  Tlayer:array[0..Qlayer] of Rlayer;

Dans le programme je veux accéder a un champ

Code :

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

    	Tlayer[L].Tforme[i].close:=true;

le compilateur me donne 2 erreurs

au niveau des déclarations aucune remarque.

au niveau du code

[Erreur] DXF.pas(236): Type tableau requis
[Erreur] DXF.pas(236): Types incompatibles

comment accéder à la variable.

Merci

[ShaiLeTroll]

Normalement T c'est pour Type, évite ce choix comme préfixe pour T comme Tableau
Idem, R pour Record, on utilise T pour record et class

tu as confondu ton tableau Tforme et le membre Tforme du Rlayer

Pour obtenir ce que tu souhaites, il faut corriger ainsi

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
 
Type
  Rforme=record
    proftrace:single;
    profattach:single;
    reverse:boolean;
    close:boolean;
    select:boolean;
 end;
 
const
  Qforme=64;
 
type
  Rlayer=record
    nom:string;
    debut:integer;
    fin:integer;
    optimise:boolean;
    ligne:integer; {nb de ligne}
    cercle:integer; {nb de cercle}
    arc:integer; {nb d'arc}
    spline:integer; {nb de spline}
    forme:integer; {nb de forme}
    Tforme:array [0..Qforme] of Rforme; // je pense que {nb de forme} a un lien, faudra peut-être un tableau dynamique
end;
 
const
 Qlayer=6;
 
var
 Form1: TForm1;
 Tlayer:array[0..Qlayer] of Rlayer
 
...

[jp1664]

Merci à ShaiLeTroll
Tout est Ok.