Discussion :

[Rayek]

J'ai créé une classe simple qui utilise des variables utilisant elles-même un type définit dans cette classe.
Chose que j'aimerai c'est que les types enfants ne soient pas visualisable depuis les autres unités appelant ma classe.

Ci-dessous un exemple de mon unité de "classe"

Code Delphi :

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
 
unit uMaClass
 
interface
 
Type TDataCommon = record // Le type enfant
  A,B,C : String;
end;
 
Type TData = record
  Common : TDataCommon;
end;
 
Type MyClasse = class
  private
    FData : TData;
  protected
 
  public
    property Data : TData Read FData Write FData;
end;

Voir ci dessous dans le code le problème que je rencontre en commentaire.

Code Delphi :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var
  MonData : TData; // <--- ici si je tappe TDa puis Ctrl + espace je vois
                           // TDataCommon et TData
  MaClass : TMyClasse;
begin
  MaClass := TMyClasse.create;
  try
    // code
  finally
    MaClass.free;
  end;

Comment faire pour ne voir que TData et pas TDataCommon ?

Je pourrais très bien décaler les types que je ne veux pas afficher dans une autre unité (Genre uMyClassType), mais j'aimerai savoir si c'est possible de les rendre non visible par l'EDI en les laissant dans la même unité.

Merci ^^

[sjrd]

Tu peux essayer avec un type imbriqué privé.

[Rayek]

J'ai testé plusieurs solutions mais ca ne fonctionne pas avec les classes imbriquées

Code Delphi :

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

1
2
3
4
5
6
7
8
9
 
Type TData = record
 
  Type TDataCommon = record // Le type enfant
    A,B,C : String;
  end;
 
  Common = TDataCommon; 
end;

En plus il veut que je mette un = à la place des : (la ca compile bien).
Je vois bien mon Tdata.Common, mais impossible d'avoir accès a A,B ou C.

Code Delphi :

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

1
2
3
4
5
6
7
8
9
10
11
 
Type TData = record
  public
 
    Type TDataCommon = record // Le type enfant
      A,B,C : String;
    end;
 
  var
    Common : TDataCommon; // <-- le type n'existe pas (à la compilation)
end;

J'ai même tenté comme çà

Code Delphi :

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

1
2
3
4
5
6
7
8
9
10
 
Type TData = record
  Private
    Type TDataCommon = record // Le type enfant
      A,B,C : String;
    end;
  public
 
    Common : TDataCommon; // <-- le type n'existe pas (à la compilation)
end;

Mais j'ai la même erreur à la compilation (Le type d'existe pas)

[ShaiLeTroll]

Certains d'entre vous sont en BSD200x ... qui considère le Record comme une classe (j'ai vu cela, je ne sais pas en quoi cela consiste, pour ceux qui savent, les Record sont devenus des TObject ??? ou hérité ...), je suis en Delphi 6 et 7, et donc les directives de visibilité (private, public) ne passent en Record ...

sinon pour les déclarations de strucure imbriquée, on a simplement

Code :

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

1
2
3
4
5
type TData = record
   Common : record // Le type enfant
     A,B,C : String;
   end;
end;

utlisation

Code :

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

MaVarData.Common.A := 'Salut !';

[Rayek]

Thanks Trolly, ca fontionne et c'est largement suffisant pour ce que je veux faire ^^