TObjectをファイルに保存する

Question

オブジェクトを現在の状態でファイルに保存するにはどうすればよいですか？そのため、すべての変数を使用してすぐに読み取って復元することができます。

Answer 1

あなたが探しているのはオブジェクト持続性と呼ばれます。このarticleは助けになるかもしれません。また、「delphi persisting objects」のためにgoogleしている場合は他にもたくさんあります。

Answer 2

There is a good tutorial here。このアプローチを使用して実行時にオブジェクトを保存するには、RTTI（実行時の型情報）を持たなければならないことに注意してください。のクラスのプロパティしかキャプチャしません。

Answer 3

S.Oには、ロールオーダーのXML methodもあります。

Answer 4

オブジェクトをTComponentから降下させる場合は、いくつかの組み込み機能を使用してオブジェクトをファイルにストリーミングできます。私はこれが単なるオブジェクトのためにうまくいくと思います。

いくつかのサンプルコード、あなたが始めるために：

unit Unit1; 

interface 

uses 
    Classes; 

type 
    TMyClass = class(TComponent) 
    private 
    FMyInteger: integer; 
    FMyBool: boolean; 
    FMyString: string; 
    public 
    procedure ToFile(AFileName: string); 
    published 
    property MyInteger: integer read FMyInteger write FMyInteger; 
    property MyString: string read FMyString write FMyString; 
    property MyBool: boolean read FMyBool write FMyBool; 
    end; 

implementation 

{ TMyClass } 

procedure TMyClass.ToFile(AFileName: string); 
var 
    MyStream: TFileStream; 
begin 
    MyStream := TFileStream.Create(AFileName); 
    try 
    Mystream.WriteComponent(Self); 
    finally 
    MyStream.Free; 
    end; 
end; 

end. 

Answer 5

既に述べたように、最も簡単な方法は、ストリームとそのWriteComponentとReadComponentメソッドを使用することです。
しかしは意識こと：
は - それはTComponentの、平野ないTObjectの子孫のためにに動作します。
公開されたプロパティ（dfmに保存されたもの）であり、公開されたものでもprivwteものでもないものはのみです。
- には、コンポーネントを復元するときにNameプロパティに特に注意する必要があります。あなたはこれらのSOの答えに使用することができますいくつかのコードを見つけることができ

：Replace visual component at runtime in Delphi、Duplicating components at Run-Time

Answer 6

は、あなたはすでにあなたの質問にいくつかの良い答えを得ています。実際に行っていることに応じて、オブジェクトを保存するためにあらかじめ構築されたライブラリやコンポーネントを使用することが望ましい場合があります。これは安価で気の利いたライブラリ/コンポーネントセットで、オブジェクトの永続化と復元が簡単で、コードのほんの少しで、オブジェクトの未公開メンバーでさえ永続することができます： http://www.deepsoftware.ru/rsllib/index.htmlロケット科学、この種のことをたくさんしているのなら、このコンポーネントは素晴らしいフレームワークを提供します。

Developer Expressには、コンポーネントの一部に付属するExpressEditorsライブラリの一部として汎用cxPropertiesStoreコンポーネントも含まれています。

Answer 7

1. 非常にシンプルかつ効率的なソリューション：DragonSoft's XML Class Serializerまた、あなたが使用することができます

2. JVCL TJvAppXMLFileStorage：

   がJvAppXMLStorage を使用しています。

   var 
       Storage: TJvAppXMLFileStorage; 
   begin 
       Storage := TJvAppXMLFileStorage.Create(nil); 
       try 
       Storage.WritePersistent('', MyObject); 
       Storage.Xml.SaveToFile('S:\TestFiles\Test.xml'); 
       Storage.Xml.LoadFromFile('S:\TestFiles\Test.xml'); 
       Storage.ReadPersistent('', MyObject); 
       finally 
       Storage.Free; 
       end; 
   end;