Discussion :

[Papy214]

Bonjour,

Petite interrogation du jour !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
type
  TRec = record
    Nom: string;
  end;
 
  TRec1 = TRec;
 
  TRec2 = TRec;
 
  procedure Truc(Rec: TRec);
  begin
    // sans utiliser les Rtti, il y a un moyen de savoir si Rec est un Trec1 ou un TRec2 ?????
  end;

[gbegreg]

Bonjour,

Comme tu as mis le champ "nom" au TRec, tu peux te baser sur sa valeur (à condition d'affecter la valeur de nom de manière unique):

Code :

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

1
2
3
4
5
6
7
 
procedure Truc(Rec: TRec);
begin
    // sans utiliser les Rtti, il y a un moyen de savoir si Rec est un Trec1 ou un TRec2 ?????
    if lowercase(Rec.nom) = 'trec1' then
    [...] 
end;

[Papy214]

Oui, mais je pensais à quelque chose de plus technique

[Andnotor]

Quel est le but puisque le type record ne supporte pas l'héritage ?

[Papy214]

J'ai 2 procédures (pour le moment) qui prennent en paramètre soit un TRec1, soit un TRec2.
Plutôt que d'avoir 2 procédures SendRec1 et SendRec2 , je voulais en faire une seule et dans le code, selon le type de record faire telle ou telle action.
Avec un TObject j'utiliserais ClassType mais avec le record ça n'est pas possible.

Je me doutais un peu que ça ne passerait pas.
La solution de prendre le record juste comme source d'information pour créer un second record adapté ensuite ira très bien.
Pour la suite du code, j'ai effectivement besoin de 2 types record différents bien que la structure soit commune.
D'où ma recherche pour avoir un type générique.

[guillemouze]

TRec1 = TRec; créé juste un alias, donc utiliser TRec1 ou TRec revient strictement au même pour le compilo
TRec2 = type TRec; créé un nouveau type, et le compilateur distingue les 2, tu pourra (et devra) quand même le caster pour le passer a une fonction qui attend un TRec truc(TRec(maVarTRec2));

[Papy214]

Intéressant .... Je vais voir ça.

Merci

[Galet]

Bonjour à tous,

Quelle est la différence entre envoyer un tRec1 ou un tRec2 puisque, même déclaré individuellement en Type tRec, ils sont du même type ? Il me semble que, l'avantage de transmettre un paramètre consiste justement à effectuer la même opération sur plusieurs variables ou objet d'un même type.

Pour les identifier, on peut aussi utiliser l'adresse mémoire...

Cordialement,

[Papy214]

Quel avantage ? Effectivement, à première vue, ça n'a pas tellement de sens. Et pourtant ...

Je prépare un tutoriel dans lequel j'utilise les TMessage de System.Messaging.
Des éléments du tutoriel utilisent les génériques

Code :

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

1
2
  TWarningMessage = TMessage<TWarning>;
  TErrorMessage   = TMessage<TError>;

Cela crée des éléments différents et pourtant TWarning et Error sont absolument identiques dans leur structure.

J'ai 2 procédures SendWarning et SendError qui prennent respectivement en paramètre un TWarningMessage ou TErrorMessage
Le but était de faire une seule procédure Send prenant en paramètre un type commun et dans le code de la procédure faire le distinguo entre les types.

[SergioMaster]

Bonjour,

je vois enfin où tu veux en venir, mais j'ai un avantage sur les autres Bon, je ne dévoile rien mais, sur la base de la discussion, qu'est-ce qui t'empêche de rajouter un type à ton TRec ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
TMessageType = (mtWarning,mtError);
 
type
  TRec = record
    msgType : TMessageType;
    Nom: string;
    // constructor ?
    // destructor ?
  end;
 TRec2 : TRec;
 TRec1 : TRec;

c'est peut-être moins "glamour" que ce que tu cherches mais c'est simple et tu n'as peut-être même plus besoin des TRec1 et TRec2

[Paul TOTH]

Quel avantage ? Effectivement, à première vue, ça n'a pas tellement de sens. Et pourtant ...

Je prépare un tutoriel dans lequel j'utilise les TMessage de System.Messaging.
Des éléments du tutoriel utilisent les génériques

Code :

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

1
2
  TWarningMessage = TMessage<TWarning>;
  TErrorMessage   = TMessage<TError>;

Cela crée des éléments différents et pourtant TWarning et Error sont absolument identiques dans leur structure.

J'ai 2 procédures SendWarning et SendError qui prennent respectivement en paramètre un TWarningMessage ou TErrorMessage
Le but était de faire une seule procédure Send prenant en paramètre un type commun et dans le code de la procédure faire le distinguo entre les types.

le procédure ne pourra pas détecter la différence de type si elle accepte les deux et que le contenu est identique

je vois deux approches, les génériques, mais je ne suis pas certain que ce soit bien pratique avec des records

Code :

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

procedure SendWarning<T>(const Mg: TMessage<T>);

et dans la mesure ou cela créerai de toute façon deux méthodes, autant passer par un overload

Code :

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

1
2
procedure SendWarning(const Msg: TMessage<TWarning>); overload;
procedure SendWarning(const Msg: TMessage<TError>); overload;

[Papy214]

Je vais voir avec les génériques, c'est peut-être la solution.
Suite et fin bientôt une fois l'écriture terminée et mise en forme.

Merci à tous