Record avec partie variable

Version imprimable

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:

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.

19/04/2008, 16h13
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:

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:

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.

Code:

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 !

20/04/2008, 04h21
archonte

Citation:

Envoyé par Nono40

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 :oops: ?

Merci !!
20/04/2008, 06h17
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.
20/04/2008, 07h06
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).
20/04/2008, 13h58
archonte

Merci pour vos réponses !

Citation:

Envoyé par 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.

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

Citation:

Envoyé par Franck SORIANO

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.