Discussion :

[Benjamin GAGNEUX]

Bonjour,

J'ai réaliser un composant dont une est propriété est un pointer sur une TList (Contrainte permettant un éditeur de composant).
Je peux donc modifier facilement en conception mon composant, cependant, à l'exécution, ma TList est de nouveau vide.

Je suis donc allé regarder dans le DFM créé lors d'une nouvelle application et je découvre que la seule information de ma TList c'est un pointer (donc stockage inutil mais par défault).

Je souhaiterais donc pouvoir enregistrer dans le DFM, le contenu de ma TList qui n'est en fait que des records.

Structure d'un record :

Code :

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

1
2
3
4
5
  TMonType = (PEB_text,PEB_image,PEB_textimage,PEB_progressbar, PEB_Perso);
  TMonRecord = record
    Top,Left,Bottom,Right : integer;
    Style : TMonType;
  end;

Est-ce réalisable ? comment ?

merci,

[John Fullspeed]

un fichier DFM ce n'est pas esclusivement du texte?
Sans le code c'est assez abscon.

John

[rbag]

Il faut implémenter une classe TWriter qui sera chargé d'écrire les données dans le flux ainsi qu'une classer TReader qui sera chargée des les lire.

réfère toi à l'aide de Delphi , tu peux aussi aller voir par ici, il ya quelques infos:

http://groups.google.fr/groups?hl=fr&lr=&threadm=8f7d22%242jh4%40bornews.borland.com&rnum=2&prev=/groups%3Fq%3DTWriter%2520tutorial%26hl%3Dfr%26lr%3D%26sa%3DN%26tab%3Dwg

[Benjamin GAGNEUX]

Merci,

En fait je tente de me servir de TWriter et Treader mais impossible de comprendre le fonctionnement... (Ou les déclencher, comment les utiliser).
L'aide delphi n'est pas très explicite sur le fonctionnement et je ne peux pas utiliser la technique proposée dans ton lien (dont la solution est TCollection).

Je continue les recherches...

[Edit]
J'ai déjà réaliser deux procedures qui mémorise ma TList:

Code :

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

1
2
    procedure WriteInfoList(Writer : TWriter);
    procedure ReadInfoList(Reader : TReader);

Mais a partir d'ou je dois les lancer et comment initialiser les Writer et le Reader ?

Merci
[/Edit]

[rbag]

Il y a une courte introduction à DefineProperties / DefineProperty qui pourrait t'aider:

http://www.informit.com/articles/article.asp?p=28278

C'est vrai que ce n'est pas très bien documenté, mais il y a tout de même un petit exemple dans l'aide de Delphi (6).

[Benjamin GAGNEUX]

Super Merci beaucoup !

Je vois ca et je vous tiens au courant...

[Benjamin GAGNEUX]

Excellent, ca fonction a merveille !!!
Merci encore

Voici comment stocker les informations concernant un composant de manière dynamique (fonction sur toute classe dérivant de TComponent):

On définit tout d'abord 3 procédures :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
type
  TMonCompo = ....
  ....
  protected
    // appelé automatiquement par le composant
    procedure DefineProperties(Filer: TFiler); override;
 
    // procédures de lecture et d'écriture dans le composant
    procedure ReadInfoList(Reader : TReader);
    procedure WriteInfoList(Writer : TWriter);

puis on les implémentes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TMonCompo.DefineProperties(Filer: TFiler);
begin
  // appel de l'ancêtre pour mise à jour du composant MonCompo
  inherited DefineProperties(Filer);
 
  // On définit ici respectivement : le nom de la variable à mettre en Dfm, 
  // la procédure de chargement, la procédure d'enregistrement,
  // (pas trouvé pour le dernier mais il faut mettre True)
  // maintenant, on sait que nos procédures seront appelés.
  Filer.DefineProperty('PanelsBackup',ReadInfoList,WriteInfoList,True);
 
end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure ReadInfoList(Reader : TReader);
var
  i,j : integer;
  s : string;
begin
  Reader.ReadListBegin; // commence l'énumération
 
  i := Reader.ReadInteger;
  j := Reader.ReadInteger;
  s := Reader.ReadString;
 
  Reader.ReadListEnd; // fin de l'énumération
end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure WriteInfoList(Reader : TReader);
begin
  Write.WriteListBegin; // commence l'énumération
 
  Writer.WriteInteger(4);
  Writer.WriteInteger(3);
  Writer.WriteString('toto');
 
  Write.WriteListEnd; // fin de l'énumération
end;

Voila,
En espérant que cela servira à d'autre...
A+