Discussion :

[J_apprenti]

bonjours tous le monde.
j'ai bien chercher dans le forum avant de poster, en tous cas je pense

le voici mon problème, je veux déclarer un type enregistrement avec des cases intégrer, avec les mêmes identificateurs datas et data pour tous les champs et un nom pour chaque champ part0, Part1... comme ceci

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
 
type
 TFirstRec = record
    Name: String[25]; 
    Value: Integer;
 end;
 
 TSecondRec = record
    case Integer of
    0: (Part0: case Integer of
                    0: (Datas: array [1..2] of TFirstRec);
                    1: (Data: TFirstRec);
        );
    1: (Part1: case Integer of
                    0: (Datas: array [1..5] of TFirstRec);
                    1: (Data: TFirstRec);
        );
    2: (Part2: case Integer of
                    0: (Datas: array [1..30] of TFirstRec);
                    1: (Data: TFirstRec);
        );
    ...
    X: (PartX: case Integer of
                    0: (Datas: array [1..X] of TFirstRec);
                    1: (Data: TFirstRec);
        );
 end;

est-ce que c'est faisable ? Merci .

[Rayek]

je ne comprend pas bien ce que tu veux faire avec ca

Peux tu expliquer ce que tu cherches à faire ?

[ShaiLeTroll]

Tu devrais plutôt passer par un transtypage comme ICI

[J_apprenti]

Merci Rayek, ShaiLeTroll
je vais essayer d'éclaircir mon problème.
je veux créer un nouveau type, ce nouveau type si c'est un tableau ou un enregistrement peut contenir jusqu'à 15 cases, chaque case contient deux champs une simple variable de type TFirstRec comme premièr et un tableau de ce type comme deuxième champ et qui n'a pas la même taille dans les 15 cases, mais que je connais moi, le tableau de la première case a 2 cases et de la deuxième a 5 ainsi de suite, dans l'affectation la classe qui utilise ce nouveau type affect a une variable de type

Code :

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

 TTypeDeDonnee = (tddDonnee1, tddDonnee2);

si c'est tddDonnee1 alors la classe va utiliser seulement le premier champ de chaque case si non elle va utiliser le deuxième champ qui est un tableau et qu'elle va le parcourir avec Low et High.

[philnext]

Tu peux plutôt nous expliquer le but 'réel' de ton soft ? Je pense que ça permet ainsi de proposer d'autres solutions.

[J_apprenti]

ciao philnext
le but réel de mon soft et assez flou pour l'expliquer, mais je peux dire que c'est un organisateur d'un type de média, ne pas prendre en compte Name: String[25]; parce que c'est a changer ce chiffre.. ce type de média peut être diviser soit en 15 fichier ou 72 et la le premier fichier et deviser en 2 et le deuxième en 5 ....

[Rayek]

Vu que Data est commun dans tous autant les mettre qu'une fois et faire la séparation seulement sur le Datas + Création d'un autres types afin de faire la séparation plus facilement dans le case

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
 
type
 TFirstRec = record
    Name: String[25]; 
    Value: Integer;
 end;
 
 TPart = (Part0,Part1,...,PartX);
 
 TSecondRec = record
 
    Data: TFirstRec;
    case TPart of
    Part0:(Datas: array [1..2] of TFirstRec);
    Part1 (Datas: array [1..5] of TFirstRec);
    ...    
 
    PartX: (Datas: array [1..X] of TFirstRec);
      );
 end;

[J_apprenti]

oui tu as raison
je ferai comme cela:

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
 
type
 TFirstRec = record
    Name: String[25]; 
    Value: Integer;
 end;
 
 TPart = (Part0,Part1,...,PartX);
 
 TSecondRec = record
 
    Data: array of [1..X] TFirstRec;
    case TPart of
    Part0:(Datas: array [1..2] of TFirstRec);
    Part1: (Datas: array [1..5] of TFirstRec);
    ...    
 
    PartX: (Datas: array [1..X] of TFirstRec);
      );
 end;

mais pour Datas il me donne Identificateur redéclaré : 'Datas'

[Nebulix]

Code :

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

1
2
3
4
5
6
7
8
 
type
 TFirstRec = record
    Name: String[25]; 
    Value: Integer;
 end;
 
 var   Data: array  [1..X] of TFirstRec;//avec X assez grand pour tous les cas

t'épargnera beaucoup d'aspirine.

[J_apprenti]

L'aspirine, j'en ai l'habitude
je peux faire cela:

Code :

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

1
2
3
4
5
6
7
8
 
type
 TFirstRec = record
    Name: String[25]; 
    Value: Integer;
 end;
 
 var   Data: array  [1..15, 1..X] of TFirstRec; //avec X assez grand pour tous les cas

et selon TTypeDeDonnee j'utilise soit, seulement la premier case de chaque champ : data[1,1] ou parcourir data[1] selon chaque champ data[1,1] et data[1,2] pour la première case par exemple...
mais j'aurai bien aimer créer un type spécifique et adéquat
merci a tout le monde.

[ShaiLeTroll]

Tu peux faire aussi un Tableau dynamique

Code :

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

1
2
var   
  Data: array of TFirstRec;

Code :

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

SetLength(Data, 15, X);

ça sera juste indicé de 0 à 14 et 0 à X-1 ...
Tant que tu n'utilise pas de CopyMemory, de Move, ou manipulation de mémoire manuelle cela ne change rien à ton code

[J_apprenti]

ce que j'ai fait, c'est de laisser le deuxième tableau ouvert et d'ajouter une procédure au sein de la classe qui utilise mon type qui modifie la largeur du deuxième tableau selon l'état du TypeDeDonnee, avec SetLength a une case pour le deuxième tableau si TypeDeDonnee = tddDonnee1 et X suivant la cellule si TypeDeDonnee = tddDonnee12 , mais vous pensez que c'est propre comme code