[Création de compo] Stocker une TList de records dans un dfm

Version imprimable

29/10/2004, 07h41
Benjamin GAGNEUX

[Création de compo] Stocker une TList de records dans un dfm
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:

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,
29/10/2004, 08h44
John Fullspeed

DFM

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

John
29/10/2004, 08h51
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
29/10/2004, 09h54
Benjamin GAGNEUX
Merci,

En fait je tente de me servir de TWriter et Treader mais impossible de comprendre le fonctionnement... :cry: (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:

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]
29/10/2004, 10h21
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).
29/10/2004, 10h33
Benjamin GAGNEUX

Super :ccool: Merci beaucoup !

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

Excellent, ca fonction a merveille !!!
Merci encore :lahola:

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:

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:

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:

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:

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+