Record avec valeur par défaut

**Sancha** · 15/12/2009, 10h49

Bonjour à tous !

Je vous demande encore de l'aide pour une question qui a surement déjà été posée maintes et maintes fois...

Je voudrais écrire un truc un peu comme ça :

Code :

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

1
2
3
4
TMonRecord = record
   Numero : Byte ;
   Valeur : Integer = 10;
end;

En gros, je voudrais déclarer un type qui serait un record dans lequel un des champs aurait une valeur par défaut.
Mais, ça ne marche pas...

Quelqu'un pourrait me dire pourquoi ou mieux, aurait une solution à me proposer ?

Merci à vous tous en tous cas !

**Paul TOTH** · 15/12/2009, 11h07

Envoyé par Sancha

Bonjour à tous !

Je vous demande encore de l'aide pour une question qui a surement déjà été posée maintes et maintes fois...

Je voudrais écrire un truc un peu comme ça :

Code :

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

1
2
3
4
TMonRecord = record
   Numero : Byte ;
   Valeur : Integer = 10;
end;

En gros, je voudrais déclarer un type qui serait un record dans lequel un des champs aurait une valeur par défaut.
Mais, ça ne marche pas...

Quelqu'un pourrait me dire pourquoi ou mieux, aurait une solution à me proposer ?

Merci à vous tous en tous cas !

ça n'existe pas.

un record défini une organisation mémoire, pas des valeurs.

**Montor** · 15/12/2009, 11h42

pour une constente ou var c'est possible

Code :

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

1
2
3
4
5
 
var TMonRecord :record
   Numero : Byte ;
   Valeur : Integer ;
end  =(Numero:0;Valeur:10;);

**Sancha** · 15/12/2009, 12h04

Ah d'accord.
Bon ben merci à tous les deux pour vos réponses !
Je vais essayer de bidouiller alors !

Encore merci !

**peter27x** · 15/12/2009, 12h10

Mais alors, quelle est la différence (en terme d'utilisation) entre :

Code :

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

1
2
3
4
TMonRecord = record
   Numero : Byte ;
   Valeur : Integer = 10;
end;

et

Code :

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

1
2
3
4
var TMonRecord :record
   Numero : Byte ;
   Valeur : Integer ;
end;

?

Car si la deuxième ne présente pas d'inconvénients par rapport à la première, et en plus permet une initialisation des éléments comme montré par Montor, alors autant la privilégier.

**mick605** · 15/12/2009, 12h56

En fait, avec la première, tu définis un type, que tu pourras réutiliser plus tard :

Code :

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

1
2
3
4
5
type
  TMonRecord = record
     Numero : Byte ;
     Valeur : Integer;
  end;

Ce type se nomme TMonRecord. On peut ensuite l'utiliser dans une procedure ou ailleurs ... On peut aussi déclarer une variable de ce type qu'on peut initialiser :

Code :

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

MaVar : TMonRecord =(Numero:0;Valeur:10;);

Ce code est différent :

Code :

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

1
2
3
4
var MaVar :record
   Numero : Byte ;
   Valeur : Integer ;
end;

Il permet de déclarer une variable de type record et de l'initialiser en meme temps. Mais le record n'est pas déclaré comme type, donc on ne peut pas l'utiliser ailleurs ...

**peter27x** · 15/12/2009, 13h15

Envoyé par mick605

En fait, avec la première, tu définis un type, que tu pourras réutiliser plus tard. Ce type se nomme TMonRecord. On peut ensuite l'utiliser dans une procedure ou ailleurs ... On peut aussi déclarer une variable de ce type qu'on peut initialiser :

Code :

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

MaVar : TMonRecord =(Numero:0;Valeur:10;);

Ce code est différent :

Code :

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

1
2
3
4
var MaVar :record
   Numero : Byte ;
   Valeur : Integer ;
end;

Il permet de déclarer une variable de type record et de l'initialiser en meme temps. Mais le record n'est pas déclaré comme type, donc on ne peut pas l'utiliser ailleurs ...

Ha bon ok ! Donc la solution du var proposée par Montor n'est pas une solution au problème initial, je suppose que c'était plutôt un aparté.

**Dr.Who** · 15/12/2009, 15h29

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
type
  TMonRecord = record
     Numero : Byte;
     Valeur : Integer;
  end;
 
const
  MonRecordDefault : TMonRecord = (Numero: 0; Valeur: 10);
 
 
var
  MR : TMonRecord = MonRecordDefault;

**peter27x** · 15/12/2009, 15h32

Si je comprends bien, finalement un record "TRecordTotox" c'est comme "Integer", ou "Boolean", c'est un type de variable, c'est ça ? Sauf qu'il est défini par l'utilisateur ? (Je n'utilise pas les records).

Dans ce cas, pour apporter une solution au sujet initial, n'est il pas possible, par ex. dans une procédure qui serait appelée au démarrage de son appli, de parcourir la liste des variables et ou propriétés privées/publiques, et de leur affecter une valeur par défaut dans le cas où s'agit du type record en question ?

**Paul TOTH** · 15/12/2009, 16h26

Envoyé par peter27x

Si je comprends bien, finalement un record "TRecordTotox" c'est comme "Integer", ou "Boolean", c'est un type de variable, c'est ça ? Sauf qu'il est défini par l'utilisateur ? (Je n'utilise pas les records).

Dans ce cas, pour apporter une solution au sujet initial, n'est il pas possible, par ex. dans une procédure qui serait appelée au démarrage de son appli, de parcourir la liste des variables et ou propriétés privées/publiques, et de leur affecter une valeur par défaut dans le cas où s'agit du type record en question ?

non ce n'est pas possible.

les RTTI ne serait disponibles que sur des propriétés publiée d'objet référencés quelque part (ça a changé sous Delphi 2009 ou 10 qui publie tout je crois)...or il appartiendrait alors à ces objets d'initialiser leurs propriétés correctement.

sinon un Record c'est un peu comme un objet statique sans méthode (encore que Delphi v??? permet de déclarer des méthodes dans un record). C'est la structure (struc) du C et le type (ou typedef je sais plus) du basic.

**Dr.Who** · 15/12/2009, 16h35

un record est effectivement un type.

un enregistrement pour être exact.

record equivaut au type Struc du C.

il fait partis des types dit "complexes".
car il peut avoir des syntaxes trés différentes.

plutot qu'un réel espace mémoire, les record sont plutot une façon de structurer la lecture/ecriture d'un bloc de donnée.
bloc de donnée qui n'est, en simplifiant, qu'une suite d'octets qui pourrait être lus via un tableau de byte.

mais un tableau de byte ce n'est pas pratique pour le developpeur, pour lire des bloc de données.
on utilisera plutot un record (une structure donc), qui n'est pas réellement différente du tableau de byte, mais permet d'organiser les données dans le bloc lut/ecrit.

si l'on prend le type TPoint, qui est un record, ce n'est jamais que deux integer allignés l'un aprés l'autre.

un TPoint pour donc être lut dans :
array[0..1] of integer;
array[0..7] of byte;

mais comment différencier X de Y ?
pas pratique.

on utilise donc TPoint pour avoir X et Y ce qui rend le code plus parlant.
idem pour TRect, TRGBRec, Int64Rec etc.

si on jette un coups d'oeuil dans l'unité SysUtils ou Graphics ou Windows, on trouvera pleins de structures différente.
permettant ainsi une meilleure organisation, structuration des données.
cela donne plus de cohérence au code et en facilite la compréhension.

**peter27x** · 15/12/2009, 16h38

Finalement la proposition de Dr Who (qui ?) :

Code :

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

1
2
3
4
5
6
 
const
  MonRecordDefault : TMonRecord = (Numero: 0; Valeur: 10);
 
var
  MR : TMonRecord = MonRecordDefault;

semble être la meilleure, non ?

**peter27x** · 15/12/2009, 16h42

Sinon dans l'absolu le top du top serait de pouvoir un jour écrire :

Code :

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

1
2
3
4
5
6
7
8
TMonRecord.onCreate := procCreate();
 
procedure T???.procCreate();
begin
  valeur := 10;
  délire := true;
  ...
end;

**Dr.Who** · 15/12/2009, 16h51

tout dépend ce que l'on cherche à faire.

c'est néanmoins la bonne façon de faire.

toujours bien structurer son code.

il n'y a même pas à tergiverser des heures,
je veux créer un record ?
oui ?

voici le template :

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
 
type  
  P%1 = ^T%1;
  T%1 = record
    %2
  end;
  P%1DynArray = ^T%1DynArray;
  T%1DynArray = array of T%1;
  P%1s = ^T%1s;
  T%1s = array[0..0] of T%1;
 
  function %1Create(%2) : T%1;
 
  const
    %1Null : T%1 = (%2);
    %1Default : T%1 = (%2);
 
var
  v%1 : T%1 = %1Default;

%1 = identifiant
%2 = [champs: ;[champs: ;]];

on copie colle le tpl, CTRL+R
remplace %1 par identifiant
remplace %2 par champs: ; champ:

exemple avec TPoint :

remplace %1 avec "Point"
remplace %2 avec "X: ; Y: "

génére :

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
type 
  PPoint = ^TPoint;
  TPoint = record
    X: {ajouter type}; 
    Y: {ajouter type et ajouter ";"}
  end;
  PPointDynArray = ^TPointDynArray;
  TPointDynArray = array of TPoint;
  PPoints = ^TPoints;
  TPoints = array[0..0] of TPoint;
 
  function PointCreate(X: {ajouter type}; Y: {ajouter type}): TPoint;
 
  const
    PointNull : TPoint = (X: {valeur}; Y: {valeur});
    PointDefault : TPoint = (X: {valeur}; Y: {valeur});
 
var
  vPoint : TPoint = PointDefault;

**peter27x** · 15/12/2009, 16h54

Envoyé par Dr.Who

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
type 
  PPoint = ^TPoint;
  TPoint = record
    X: {ajouter type}; 
    Y: {ajouter type et ajouter ";"}
  end;
  PPointDynArray = ^TPointDynArray;
  TPointDynArray = array of TPoint;
  PPoints = ^TPoints;
  TPoints = array[0..0] of TPoint;
 
  function PointCreate(X: {ajouter type}; Y: {ajouter type}): TPoint;
 
  const
    PointNull : TPoint = (X: {valeur}; Y: {valeur});
    PointDefault : TPoint = (X: {valeur}; Y: {valeur});
 
var
  vPoint : TPoint = PointDefault;

A quel moment utilises tu PointCreate() ?

**mick605** · 15/12/2009, 16h55

Envoyé par peter27x

Sinon dans l'absolu le top du top serait de pouvoir un jour écrire :

Code :

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

1
2
3
4
5
6
7
8
TMonRecord.onCreate := procCreate();
 
procedure T???.procCreate();
begin
  valeur := 10;
  délire := true;
  ...
end;

C'est pas un objet ca ??

**peter27x** · 15/12/2009, 16h57

Envoyé par mick605

C'est pas un objet ca ??

Ben avec un objet y'a plus de questions à se poser, là le problème justement c'est de pouvoir le faire avec un record !

**mick605** · 15/12/2009, 17h01

Envoyé par peter27x

Ben avec un objet y'a plus de questions à se poser, là le problème justement c'est de pouvoir le faire avec un record !

Ah, je n'avais pas compris ... Je croyais que tu demandais si il existait une structure qui permettait l'ajout d'une procedure Create

Pour ma part, je ne trouve pas l'utilisation du record contraignante. On peut les initialiser, et faire des trucs un peu poussés avec ...

**Andnotor** · 15/12/2009, 17h05

Les records acceptent un constructeur (méthodes, propriétés, etc.) depuis D2007 (je crois). C'est cependant dommage qu'il faille l'appeler implicitement

.

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
  TRec = record
    X :integer;
    Y :integer;
    constructor Create(aDummy :integer);
  end;
 
constructor TRec.Create(aDummy :integer);
begin
  X := 10;
  Y := 4;
end;
 
procedure TForm6.FormCreate(Sender: TObject);
begin
  R := TRec.Create(0);
  ShowMessage(IntToStr(R.X));
end;

**peter27x** · 15/12/2009, 17h10

Envoyé par Andnotor

Les records acceptent un constructeur (méthodes, propriétés, etc.) depuis D2007 (je crois). C'est cependant dommage qu'il faille l'appeler implicitement

.

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
  TRec = record
    X :integer;
    Y :integer;
    constructor Create(aDummy :integer);
  end;
 
constructor TRec.Create(aDummy :integer);
begin
  X := 10;
  Y := 4;
end;
 
procedure TForm6.FormCreate(Sender: TObject);
begin
  R := TRec.Create(0);
  ShowMessage(IntToStr(R.X));
end;