Leer un componente como una cadena

Leer un componente como una cadena

Leer un componente como una cadena : Multi-millones de consejos para hacer su vida mas facil.

Como convertir cualquier componente en una cadena.
funcion ComponentToString(Componente: TComponent): string
var
& nbsp & nbsp BinStream:TMemoryStream
& nbsp & nbsp StrStream: TStringStream
begin
& nbsp & nbsp BinStream := TMemoryStream.Crear
& nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp StrStream := TStringStream.Crear(Resultado)
& nbsp & nbsp & nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp BinStream.WriteComponent(Componente)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp BinStream.Seek(0, soFromBeginning)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp ObjectBinaryToText(BinStream, StrStream)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp StrStream.Seek(0, soFromBeginning)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Resultado:= StrStream.DataString
& nbsp & nbsp & nbsp & nbsp finalmente
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp StrStream.Libre
& nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp finalmente
& nbsp & nbsp & nbsp & nbsp BinStream.Libre
& nbsp & nbsp final
fin