Discussion :

[Marc_3]

Bonjour,

Une question sur les bonnes pratique, j'aimerai savoir si l'utilisation de record dans la POO est, à votre avis, une bonne idée?

Quand j'y pense d'après mon expérience de programmation avec D7, je vois les avantages et le confort d'utilisation de ceux-ci.
Même si c'est pas simple au début d'utiliser la syntaxe des pointeur.

Quand j'y pense, du point de vue scolaire dans le cadre de la POO, je ne vois pas d’intérêt immédiat. Un objet peut être aussi
une structure de données comme attributs avec ses accesseurs et autres méthodes. L’intérêt des records semble disparaître.

Est-ce qu'il y a quelque part une convention d'utilisation jointe des deux ou un usage reconnu pour son efficacité??

Merci de me donner votre avis

[Paul TOTH]

alors depuis quelques versions, le record s'apparente à l'OBJET (à ne pas confondre avec la CLASS)

c'est à dire qu'on peut coller des méthodes dans un record, qui devient un objet statique...alors que la class est forcément dynamiquement allouée.

maintenant, les structures sont toujours nécessaires à un moment donné ou à un autre (TPoint, TRect, TVector...) sans avoir besoin d'en faire des objets

[Marc_3]

Merci pour la réponse, mais il me semble que l'on glisse dans la zone grise des définitions.
Dans le bizarre, on trouve la structure de donnée, Record; avec donc des attributs et maintenant voila les méthodes.

La/les différences avec un objet, Déf. une structure, avec des données de valeur propre à l'instance ainsi que des méthodes, me parait équivalente, non??

A part cela, si il y avait un exemple de record avec méthodes intégrées, merci de me dire où le trouver.

Je n'ai vu sur le net, chez DelphiBasics, que une fonction en dur dans le record:

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
23
1 	  type Name = {packed} Record
    Declarations ...
  end;
2 	  type Name = {packed} record
     Declarations ...
       case {Tag :} Ordinal type of
         Ordinal value {,Ordinal value...} : (Declarations);
         {...}
end; 
// Qui donnent plud loin:
 
type
  // Declare a fruit record using case to choose the
  // diameter of a round fruit, or length and height ohterwise.
  TFruit = Record
    name : string[20];
    Case isRound : Boolean of // Choose how to map the next section
      True  :
        (diameter : Single);  // Maps to same storage as length
      False :
        (length   : Single;   // Maps to same storage as diameter
         width    : Single);
  end;

Merci pour la peine.

[Andnotor]

Regarde le wiki, les différences entre classe et record y sont clairement expliquées.

[Paul TOTH]

class permet de créer des objets héritables, surchargeables etc...

object est l'ancien mot clé pour faire cela, il est déprécié (à la différence des classes, ces objets était statiques, alors que les classes sont implicitement des pointeurs alloués par le constructor)

record au départ était un ensemble de champ, il est maintenant possible de lui associer des méthodes STATIQUES, on ne peut pas non plus utiliser l'héritage ou le polymorphisme.

il est même possible maintenant d'ajouter des méthodes STATIQUES à un Record déclaré par ailleurs, on peut donc enrichir un type fourni par Delphi

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
type
  TRect = record
    Left, Top, Right, Bottom: Integer;
    function Width: Integer;   // fonctions statiques
    function Height: Integer;
  end;
 
function TRect.Width:Integer;
begin
  Result := Right - Left;
end;
 
function TRect.Height: Integer;
begin
  Result := Bottom - Top;
end;
 
type
  TRectHelper = record helper for TRect
    function Surface: Single;  // nouvelle fonction statique pour TRect
  end;
 
function TRectHelper.Surface: Single;
begin
  Result := Width * Height;
end;
 
procedure Test;
var
  R: TRect;
begin
  R.Left := 10;
  R.Top := 10;
  R.Right := 100;
  R.Bottom := 200;
  WriteLn(R.Surface);
end;

[Marc_3]

Merci pour les réponses, c'est clair comme cela.