Discussion :

[Sub0]

Salut!

Dans mon programme, j'ai déclaré des enregistrements du genre :

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
Type
  TAgenda = Packed Record
    nom: String[40];
    prenom: String[20];
    adresse: String[40];
    date: String[20];
    tel: String[30];
    fax: String[30];
    mail: String[30];
    note: Integer;
  End;
 
  TRepertoire = Packed Record
    liste1: TAgenda;
    liste2: TAgenda;
    liste3: TAgenda;
    perso: TAgenda;
    pro: TAgenda;
    divers: TAgenda;
  End;
 
Var Rep1, Rep2: TRepertoire;

J'ai besoin de comparer 2 variables de type TRepertoire, de modifier les éléments de ces variables, etc... Le problème est que je ne vois pas comment faire pour ne pas avoir des fonctions super longues, avec une ligne de code par enregistrement de TRepertoire, ou pire, une fonction pour chaque enregistrement de TAgenda... Par exemple, pour comparer 2 variables de type TRepertoire :

Code :

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

1
2
3
4
5
6
Fonction IsEgalRep(R1, R2: TRepertoire): Boolean;
Begin
  Result := (R1.liste1.nom = R2.liste1.nom) And
            (R1.liste1.prenom = R2.liste1.prenom) And
            (R1.liste1.adresse = R2.liste1.adresse) And
...

Le problème est aussi si un jour j'ai besoin de modifier mes types, ajouter ou supprimer un nouvel enregistrement, je devrais reprendre tout le code. Bref, auriez-vous une méthode à me proposer pour simplifier l'accès aux données ?
Peut-être en utilisant les Class si ça n'est pas possible avec des enregistrements...

Merci d'avance.

ps: Ne tenez pas compte des noms d'enregistrements utilisés, il s'agit d'un exemple, mon programme n'est pas un agenda..

[Yurck]

Bonjour,

Un Record c'est une grille de lecture d'un ensemble d'octets.
Alors change ta grille et compare directement un record avec un autre en le castant avec ta nouvelle grille.

a+

[Sub0]

Pourrais-tu utiliser mon code d'exemple pour illustrer ta proposition stp ?
A quoi ressemblera le code de la fonction IsEgalRep ?
Et comment accèdes-tu / redéfinis-tu les données avec une fonction ?

[Yurck]

Bien je m'explique, si tu prends deux photos et que tu les regardes au travers d'une passoire tu doit comparer celles-ci trous par trous.

Alors enlève la passoire.

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
 
 TAgenda = Packed Record
    nom: String[40];
    prenom: String[20];
    adresse: String[40];
    date: String[20];
    tel: String[30];
    fax: String[30];
    mail: String[30];
    note: Integer;
  End;
 
{ TCompareAgenda = Packed Record
    Ensemble : String[40 + 20 + 40 + 20 + 30 +30 + 30 + SizeOf(integer)] ;
  End;}
 
 TCompareAgenda = Packed Record
    Ensemble : String[212] ;
  End;

Ta fonction devient plus simple

Code :

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

1
2
3
4
5
 
Fonction IsEgalRep(R1, R2: TRepertoire): Boolean;
Begin
  Result := TCompareAgenda(R1.liste1).ensemble = TCompareAgenda(R2.liste1).ensemble;
end;

j'ai tapé le code sans ctrl.

a+

[Sub0]

Bien, tout d'abord, je te remercie pour ton explication et ta patience. Je me suis mal expliqué. Je rappel que je dois accèder à tous les champs. La fonction de comparaison n'est qu'un exemple type. D'ailleurs, si j'utilise ton code, la fonction IsEgalRep possèdera combien de ligne de code ?

Code :

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

1
2
3
4
5
6
7
8
9
Fonction IsEgalRep(R1, R2: TRepertoire): Boolean;
Begin
  Result := 
    TCompareAgenda(R1.liste1).ensemble = TCompareAgenda(R2.liste1).ensemble And
    TCompareAgenda(R1.liste2).ensemble = TCompareAgenda(R2.liste2).ensemble And    
    TCompareAgenda(R1.liste3).ensemble = TCompareAgenda(R2.liste3).ensemble And
    TCompareAgenda(R1.perso).ensemble = TCompareAgenda(R2.perso).ensemble And 
    ...
end;

Je rappelle que le code que j'ai donné est un exemple type de la structure que je cherche à obtenir (enregistrements imbriqués). Seulement, imagine que mon enregistrement comporte 200 éléments différents... et que son type comporte lui aussi 200 éléments... La fonction IsEgalRep possèdera combien de ligne de code ?

Ce que je recherche avant tout, c'est une façon simple d'accèder à des données, genre :

Code :

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

1
2
3
4
5
6
7
8
9
Procedure GetValue(Var obj; Rep: TRepertoire; Ag: TAgenda; Index: Integer);
Begin
  obj := Rep.Ag.TAgenda(Index);
End;
 
Function SetValue(Var obj; Rep: TRepertoire; Ag: TAgenda; Index: Integer);
Begin
  Rep.Ag.TAgenda(Index) := obj;
End;

Peut-être existe-t-il une solution avec les Classes...

[Bejaia-In]

Pourquoi ne pas ajouter un champ pour identifier de façon unique chaque enregistrement et ne faire de recherche que sur celui-ci ?

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
Type
  TAgenda = Packed Record
    Identificateur : integer;
    nom: String[40];
    prenom: String[20];
    adresse: String[40];
    date: String[20];
    tel: String[30];
    fax: String[30];
    mail: String[30];
    note: Integer;
  End;

  TRepertoire = Packed Record
    Identificateur : integer;
    liste1: TAgenda;
    liste2: TAgenda;
    liste3: TAgenda;
    perso: TAgenda;
    pro: TAgenda;
    divers: TAgenda;
  End;

...ou est-ce je tape à côté ?