1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| ...
{Ecriture du compo Pnl_Conteneur.
NB: il sera écrit avec les compos dont il est le owner.
L'astuce est de convertir le compo en chaîne et d'écrire cette chaîne...}
Chaine := CompoVersChaine(Pnl_Conteneur);//Conversion...
Taille := length(Chaine);//...puis, comme une chaîne longue.
FileStrm.WriteBuffer(Taille,SizeOf(Taille));
FileStrm.WriteBuffer(Chaine[1],Taille);
...
{Lecture du compo Pnl_Conteneur.
NB: il est lu comme une chaîne,
puis cette chaîne sera convertie en compo.}
FileStrm.ReadBuffer(Taille,SizeOf(Integer));
SetLength(Chaine,Taille);
FileStrm.ReadBuffer(Chaine[1],Taille);
ChaineVersCompo(Chaine,Pnl_Conteneur); |
Partager