Lesen Sie eine Komponente als Zeichenfolge

Lesen Sie eine Komponente als Zeichenfolge

Lesen Sie eine Komponente als Zeichenfolge : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Wie Sie jede Komponente in eine Zeichenfolge konvertieren.
Funktion ComponentToString(Component: TComponent): string;
var
BinStream:TMemoryStream;
StrStream: TStringStream;
beginnen
BinStream: = TMemoryStream.Create;
versuchen Sie
StrStream: = TStringStream.Create(Result);
versuchen Sie
BinStream.WriteComponent(Component);
BinStream.Seek (0, SoFromBeginning);
ObjectBinaryToText (BinStream, StrStream);
StrStream.Seek (0, SoFromBeginning);
Ergebnis: = StrStream.DataString;
Schließlich
StrStream.Free;
Ende;
Schließlich
BinStream.Free
Ende;
Ende;