Discussion :

[ouiouioui]

bonjour, j'ai un composant qui contiens des collections
ma collection contient des propriétés published string integer et autres mais il y en a une qui n'apparaît pas dans l'ide.

Code :

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

1
2
3
4
5
6
7
8
TGameProtocol = Class(TCollectionItem)
  Private
    FQuery:           array of byte;
...
  Published
    Property Query: array of byte Read FQuery Write FQuery;
...
  End;

Donc je suppose que l'ide ne peut pas afficher ce genre de données, est ce que quelqu'un pourrait m'aider car je ne sais pas trop comment faire.

J'avais pensé faire une propriété string qui contiendrait la représentation en text de mon array de byte et lorsqu'elle serait modifiée cela modifierait aussi FQuery mais est-ce la bonne solution ?

apparemment telle quelle la propriété est en lecture seule, car lorsque j'ajoute un élément je ne peux pas modifier la propriété, il faut que je passe par une fonction à la place de Write FQuery

Merci

[Rayek]

Pourquoi ne créés tu pas un Type avec ton array ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Type
  TArrayBytes = Array of Bytes;
 
TGameProtocol = Class(TCollectionItem)
  Private
    FQuery:           TArrayBytes;
...
  Published
    Property Query: TArrayBytes  Read FQuery Write FQuery;
...
  End;

[ouiouioui]

c'est ce que j'ai en fait, mais j'ai pas mis pour simplifier mon problème ... ou pas.

c'est pas le seul d'ailleurs, si j'utilise la création du compo dynamique mes tcollection sont correct.

si je pose le compo sur ma fiche mes tcollection s'enregistre pas dans la fiche
je les remplis lors du create du comp

ma fiche en texte j'obtient des items vide.

c'est mon premier composant

je met mon code

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
 
uses gameserverquery;
 
Procedure TForm2.Button2Click(Sender: TObject);
Var
  GSQ: TGameServerQuery;
Begin
  GSQ := TGameServerQuery.Create(Self);
  Try
    With GSQ Do
    Begin
      TypeQueryResult := gqrBoth;
      If QueryInfosServer('88.191.82.7', 12233, GameServerList.Items[GameServerList.IndexOf('mohsh')]) Then
        ShowMessage(QueryResultString);
    End;
  Finally
    GSQ.Free;
  End;
End;

[guillemouze]

ca depend de ce que contient ton tableau. si ca represente une chaine, alors oui tu peux utiliser un string. Sinon, tu peux faire un editeur specifique (regarde du coté de TPropertyEditor)

[ouiouioui]

merci, c'est parfait.