Discussion :

[archonte]

Bonjour,

J'aimerais que quelqu'un de savant m'explique comment fonctionnent les record avec partie variable. Quel est le champs variable pris en compte pour le case ... of ?

Autrement dit, dans l'exemple fournit par l'aide :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
type recordTypeName = record
      fieldList1: type1;
      .....
      fieldTypeN: typeN;
      case tag: ordinalType of
         constantList1: (variant1);
         ....
         constantListN: (variantN); 
      end;

Est-ce que l'on doit fournir une valeur à recordTypeName.tag ? et si oui, l'aide précise que tag est optionnel : comment fait-on alors ?

Merci à vous.

[Nono40]

Attention : c'est une astuce de programmation pour définir plusieurs champs du record au même endroit mémoire. Il n'y a aucun controle ni à la compilation ni à l'exécution de la valeur de choix par rapport aux champ utiliés.

Par exemple si on utilise la définition :

Code :

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

1
2
3
4
5
6
7
8
type recordTypeName = record
      Truc :integer;
      case Choix:Integer of
         1: (Valeur : Integer);
         2: (Diff1 :Integer); 
      end;
 
Var rec:recordTypeName;

Alors le code suivant compile et s'éxecute sans problème :

Code :

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

1
2
3
4
5
 
Rec.Choix := 1;
Rec.Diff1 :=12345; // bien que choix=1, diff 1 est acessible !
// de plus on recupère la valeur dans valeur :
ShowMesasge(IntToStr(Rec.Valeur)); // Affiche 12345

Il faut considérer les record à choix multiple comme une façon différente de déterminer les adresses mémoire du record :

Dans l'exemple ci-dessus :
Truc sera à l'offset 0
Choix sera à l'offset 4
Valeur sera à l'offset 8
Diff1 sera à l'offset 8

Avec cette logique on comprend que "Choix" n'est pas vraiment utile.

C'est devenu limité comme utilisation, normelement si on a besoin de ce genre de record c'est qu'il faut utiliser des objets à la place.

[tourlourou]

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
type 
  THalfCard=record
    Hi,Lo: Word;
  end;
  TMyCard=record
    case Boolean of
      True:  (Card: Cardinal);
      False: (HalfCard: THalfCard);
  end;
 
var
  MyCard: TMyCard;
 
begin
  MyCard.HalfCard.Hi:=$1234;
  MyCard.HalfCard.Lo:=$5678;
  if MyCard.Card<>$12345678 then ShowMessage('boulette !');
end;

plutôt que d'appeler les fonctions Hi et Lo !

[archonte]

Avec cette logique on comprend que "Choix" n'est pas vraiment utile.

C'est devenu limité comme utilisation, normalement si on a besoin de ce genre de record c'est qu'il faut utiliser des objets à la place.

Comment écrivez-vous un objet avec partie variable ?

Merci !!

[Nono40]

Tu n'écris pas UN objet, mais plusieurs :
Le premier comptient les champs communs,
Les autres sont des descendants du premiers et correspondent chacun à l'un des choix et contiennent chacun les champ optionnels qui leur sont propres.

[Franck SORIANO]

Evidemment sur une nouvelle application, choisir d'utiliser des records avec une structure variable c'est un peu douteux.

Cependant ça présente quand même une utilité : La plupart des API Win32 utilisent ce type de structure (les union). Donc on en a généralement besoin lorsqu'on veut appeler ce type d'API (même si on peut bidouiller pour faire sans).

[archonte]

Merci pour vos réponses !

Tu n'écris pas UN objet, mais plusieurs :
Le premier comptient les champs communs,
Les autres sont des descendants du premiers et correspondent chacun à l'un des choix et contiennent chacun les champ optionnels qui leur sont propres.

(évidemment, j'aurais dû y penser ! )

La plupart des API Win32 utilisent ce type de structure (les union). Donc on en a généralement besoin lorsqu'on veut appeler ce type d'API (même si on peut bidouiller pour faire sans).

Effectivement, c'est bien en parcourant le script d'une ddl pour excel (adaptée du C vers Delphi) que j'ai rencontré ce type de structure, sans comprendre comment était fait le choix des variables. Maintenant c'est plus clair, pas forcement plus utile au quotidien.

Encore merci.