Lire une composante comme une chaîne de caractères

Lire une composante comme une chaîne de caracteres

Lire une composante comme une chaîne de caracteres : Plusieurs milliers de conseils pour vous faciliter la vie.

Comment faire pour convertir n'importe quel composant en une chaîne de caracteres.
fonction de ComponentToString(Composante: TComponent): string
var
& nbsp & nbsp BinStream:TMemoryStream
& nbsp & nbsp StrStream: TStringStream
begin
& nbsp & nbsp BinStream := TMemoryStream.Creer
& nbsp & nbsp essayer
& ! & ! & ! & nbsp StrStream := TStringStream.Creer(Suite)
& ! & ! & ! & nbsp essayer
& ! & ! & ! & ! & ! & nbsp BinStream.WriteComponent(Composant)
& ! & ! & ! & ! & ! & nbsp BinStream.Seek(0, soFromBeginning)
& ! & ! & ! & ! & ! & nbsp ObjectBinaryToText(BinStream, StrStream)
& ! & ! & ! & ! & ! & nbsp StrStream.Seek(0, soFromBeginning)
& ! & ! & ! & ! & ! & nbsp Resultat:= StrStream.DataString
& ! & ! & ! & nbsp enfin
& ! & ! & ! & ! & ! & nbsp StrStream.Gratuit
& ! & ! & ! & nbsp fin
& nbsp & nbsp enfin
& ! & ! & ! & nbsp BinStream.Gratuit
& nbsp & nbsp fin
fin