Discussion :

[chtiot]

Bonjour,


j'ai créé un composant pour lequel j'ai un souci avec une propriété qui n'est pas visible sans que j'arrive à me l'expliquer.

voici une partie du code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
  private
    { Déclarations privées }
    // Récupération du numéro de bac d'après son nom //
    function GetBinNumber(PrinterName, BinName:String):Word;
    // Récupération du nom de bac d'après son numéro //
    function GetBinName(PrinterName:String; BinNumber:Word):String;
 
  protected
    { Déclarations protégées }
  public
    { Déclarations publiques }
    property BinName[PrinterName:String; BinNumber:Word]:String read GetBinName;
    property BinNumber[PrinterName, BinName:String]:Word read GetBinNumBer;

la propriété BinName est visible et fonctionne parfaitement alors que la propriété BinNumber elle n'est pas visible.

Une explication ?

Merci d'avance

[Bruno75]

elle n'est pas visible où ? dans le menu déroulant qui te propose une liste de propriété/méthodes ?

Une explication qui me vient à l'esprit, c'est que ton code ressemble à

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
 
TMyObject= class
private 
    { Déclarations privées } 
    // Récupération du numéro de bac d'après son nom // 
    function GetBinNumber(PrinterName, BinName:String):Word; 
    // Récupération du nom de bac d'après son numéro // 
    function GetBinName(PrinterName:String; BinNumber:Word):String; 
 
  protected 
    { Déclarations protégées } 
  public 
    { Déclarations publiques } 
    property BinName[PrinterName:String; BinNumber:Word]:String read GetBinName; 
    property BinNumber[PrinterName, BinName:String]:Word read GetBinNumBer; 
 
end;
 
function aze(b: TMyObject)
var
  a: string;
begin
  a := b. 
end;

Comme tu tentes d'affecter une propriété de b à a qui est un string, Delphi filtre parmi toutes les propriétés/functions celles qiu ne renvoie pas de string. En particulier, ta propriété BinNumber.

[kase74]

Salut,
Pour qu'elle soit visible, et donc accessible dans le concepteur, tu doit la declarer dans Published, et non pas dans Public.
Regarde dans l'aide : Creation de composants Personnalises

[Bruno75]

effectivement kase74.

putain j'ai vraiment répondu complètement à côté de la plaque.

[chtiot]

merci pour vos réponse,


quand j'ai dit visible, je n'ai pas utilisé le bon terme car en fait je m'en tape qu'elle soit visible dans le concepteur, ce que je veux c'est qu'elle soit accessible par exemple comme suit :

Code :

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

1
2
3
4
5
6
7
 
 
var NomBac : string;
      Numbac : Word;
begin
      NomBac = BinName('HP Laserjet', 259);
      NumBac = BinNumber('HP Laserjet', 'Bac du haut');

actuellement ça fonctionne pour BinName mais pas pour BinNumber donc ça n'est pas un problème de Published ou alors il faut qu'on éclaire mon esprit qui a déjà fait largement preuve de logique et de raison.

j'ai lu le guide du concepteur de composants (depuis longtemps) mais je n'ai rien vu qui explique ça ou alors j'ai mal lu...

merci

[Nono40]

Effectivement Public est suffisant dans ton cas.

Quelle est le message d'erreur exact ?

[chtiot]

je n'ai aucun message d'erreur, c'est ça le problème...

[Nono40]

je n'ai aucun message d'erreur, c'est ça le problème...

Gné

Alors quel est le problème ?

[e-ric]

Salut

je ne comprend pas ton problème :
- cela ne compile-t'il pas ?
- ou cela produit-il un résultat bizarre à l'exécution ?

je ne comprend pas dans quel sens tu emplois Visibilité.

par contre dans ton exemple de code tu écris :

Code :

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

1
2
3
4
5
6
 
var NomBac : string;
      Numbac : Word;
begin
      NomBac = ??.BinName('HP Laserjet', 259);
      NumBac = ??.BinNumber('HP Laserjet', 'Bac du haut');

où est passé la variable désignant l'objet (j'ai ajouté des ?? où cela manque), ou bien utilises-tu une construction With mais c'est pas clair (si BinName est aussi une procédure, cela peut expliquer bien des choses sur le comportement de ton programme).

Cordialement

e-ric

[chtiot]

Autant pour moi, j'ai trouvé mon erreur : lorsque je faisais

[/code]NumBac := MonComposant.BinNumber['HP Laserjet', 'Bac du haut'];

Code :

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

1
2
3
4
5
6
7
 
 
la variable NumBac n'était pas déclarée du même type que BinNumber et donc BinNumber n'apparaissait pas lorsque je frappais MonComposant. et que l'ide proposait les propriétés.
 
Perdre autant de temps sur une erreur aussi basique mérite une lapidation...
 
mes excuses pour le dérangement et merci de votre aide

[Bruno75]

je réponds à côté de la plaque et j'ai quand même bien répondu.

je suis un génie 8)