コンポーネントのプロパティ情報をまとめて取得するには？ (ID:44351)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 FSaveObj→SaveObj BinToTextOutの中身が抜けてた function TForm1.BinToTextOut(m: TMemoryStream): string; var StrStream: TStringStream; s: string; begin StrStream := TStringStream.Create(s); try m.Seek(0, soFromBeginning); ObjectBinaryToText(m, StrStream); StrStream.Seek(0, soFromBeginning); Result:= StrStream.DataString; finally StrStream.Free; end; end;