3

みんな。

クラスを保存しようとしています:

TA= class(TPersistent)
private
    FItems: TObjectList<TB>;

    FOnChanged: TNotifyEvent;
public
    constructor Create;
    destructor Destroy; override;
    ...
    procedure Delete(Index: Integer);
    procedure Clear;
    procedure SaveToFile(const FileName: string);
    ...
    property OnChanged: TNotifyEvent read FOnChanged write FOnChanged;
end;

次のコードを使用してファイルに送信します。

var
  Storage: TJvAppXMLFileStorage;
begin
  Storage := TJvAppXMLFileStorage.Create(nil);
  try
    Storage.WritePersistent('', Self);
    Storage.Xml.SaveToFile(FileName);
  finally
    Storage.Free;
  end;

ただし、ファイルは常に空です。

私は間違った方法で何をしていますか?

4

2 に答える 2

2

TJvCustomAppStorage はプロパティで Generics をサポートしていないようです。コードは拡張 RTTI を使用せず、TJvCustomAppStorage.GetPropCount への呼び出しは 0 を返します。

これは別の質問につながります - Generics をサポートする Delphi オブジェクトのシリアライゼーション ライブラリはありますか? ?

私のテストコード:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes, Generics.Collections, JvAppXmlStorage;
type

  TA = class(TPersistent)
  private
    FItems: TObjectList<TPersistent>;
  public
    constructor Create;
  published
    property
      Items: TObjectList < TPersistent > read FItems write FItems;
  end;

  { TA }

constructor TA.Create;
begin
  FItems := TObjectList<TPersistent>.Create;
end;

var
  Storage: TJvAppXMLFileStorage;
  Test: TA;
begin
  Test := TA.Create;

  Test.Items.Add(TPersistent.Create);

  Storage := TJvAppXMLFileStorage.Create(nil);
  try
    Storage.WritePersistent('', Test);
    WriteLn(Storage.Xml.SaveToString);
    ReadLn;
  finally
    Storage.Free;
  end;

end.
于 2011-06-11T06:10:43.457 に答える
1

よくわかりませんが、TJvAppXMLFileStorage が RTTI を使用している場合は、保存/読み込みたいプロパティを公開する必要があると思います。

于 2011-06-10T21:59:14.947 に答える