自定义属性流读取错误

Question

我是Delphi 2010的法语用户，请原谅我的英语不好。

我从TCustomControl创建了一个控件。此控件具有由TCollectionItem后裔填充的TOwnedCollection。 这些项目具有已发布的自定义列表属性。这个列表是我制作的一对整数列表。 我已经为此属性编写了一个自定义设计时编辑器，并且它完美地工作。 所以现在，我想将列表数据写入dfm中，并且变得有点困难。

这里是我做了什么：

TPedroGraphLineCollectionIem = class(TCollectionItem) 
    published 
    property PointList: TPedroIntegerCoupleList read FList write SetList 
     stored GetStored; 

... 
procedure TPedroGraphLineCollectionIem.DefineProperties(Filer: TFiler); 
begin 
    inherited; 
    //'PointList' : the property name 
    //FList.Count > 0 : Is the list empty ? 
    Filer.DefineProperty('PointList', ReadListData, WriteListData, 
    (FList.Count > 0)); 
end; 
... 
procedure TPedroGraphLineCollectionIem.ReadListData(Reader: TReader); 
var 
    Val1, Val2: Integer; 
begin 
    with Reader do 
    begin 
    ReadListBegin; 
    while not EndOfList do 
    begin 
     Val1 := ReadInteger; 
     Val2 := ReadInteger; 
     FList.AddCouple(Val1, Val2); 
    end; 
    ReadListEnd; 
    end; 
end; 
... 
procedure TPedroGraphLineCollectionIem.WriteListData(Writer: TWriter); 
var 
    I: Integer; 
begin 
    with Writer do 
    begin 
    WriteListBegin; 
    for I := 0 to Count - 1 do 
    begin 
     WriteInteger(FList[I].Value1); 
     WriteInteger(FList[I].Value2); 
    end; 
    WriteListEnd; 
    end; 
end; 

的WriteListData程序完美的作品和值写入DFM。但是当我尝试加载表单时，它总是崩溃，对话框告诉我这个属性有一个阅读流错误。

FList是在类的构造函数内部创建的。

这里是.DFM：

object MainFrm: TMainFrm 
    Left = 0 
    Top = 0 
    Caption = 'MainFrm' 
    ClientHeight = 425 
    ClientWidth = 689 
    Color = clBtnFace 
    ParentFont = True 
    OldCreateOrder = False 
    Position = poScreenCenter 
    OnCreate = FormCreate 
    OnDestroy = FormDestroy 
    PixelsPerInch = 96 
    TextHeight = 13 
    object PedroGraph1: TPedroGraph 
    Left = 120 
    Top = 136 
    Width = 313 
    Height = 209 
    TitleFont.Charset = DEFAULT_CHARSET 
    TitleFont.Color = clWindowText 
    TitleFont.Height = -11 
    TitleFont.Name = 'Tahoma' 
    TitleFont.Style = [] 
    Lines = < 
     item 
     LinePen.Color = clRed 
     PointList = (
      1 
      2 
      3 
      4) 
     end> 
    MarksFont.Charset = DEFAULT_CHARSET 
    MarksFont.Color = clWindowText 
    MarksFont.Height = -11 
    MarksFont.Name = 'Tahoma' 
    MarksFont.Style = [] 
    end 
end 

错误消息（法语）：

Erreur lors de la lecture de TPedroGraphLineCollectionItem.PointList: Valeur de propriété incorrecte. Ignorer l'erreur et continuer ?Remarque: ceci peut provoquer la suppression de composants ou la perte de valeurs de propriété 

ERREUR的LOR德拉讲座德TPedroGraphLineCollectionItem □□：lapropriété□n'exist e pas。 Ignorer L'ERREUR等continuer雷马克：CECI peut provoquer LA抑制德composants欧拉perte德valeurs德propriété

注： '□' 字符确实显示这一点。

ERREUR的LOR德拉讲座德TPedroGraphLineCollectionItem□□

ERREUR的LOR德拉讲课德PedroGraphLines1.Lines：Valeur德propriétéincorrecte。 Ignorer L'ERREUR等continuer雷马克：CECI peut provoquer LA抑制去composants欧拉perte德valeurs德propriété

ERREUR点菜CRÉATION德拉平片：ERREUR德演讲杜通量。

TPedroIntegerCoupleList宣言：

TPedroIntegerCouple = record 
    Value1: Integer; 
    Value2: Integer; 
end; 

TPedroGenericList<T> = class(TList<T>) 
private 
    FOnChange: TNotifyEvent; 
    FUpdating: Boolean; 
protected 
    procedure Notify(const Item: T; Action: TCollectionNotification); override; 
    procedure DoChange; 
published 
public 
    constructor Create; 
    procedure SortCustom; virtual; abstract; 
    procedure Assign(const Source: TPedroGenericList<T>); 
    property OnChange: TNotifyEvent read FOnChange write FOnChange; 
end; 

TPedroIntegerCoupleList = class(TPedroGenericList<TPedroIntegerCouple>) 
private 
    function GetString: String; 
    procedure SetString(const Value: String); 
public 
    procedure SortCustom; override; 
    function AddCouple(const Value1, Value2: Integer): Integer; 
    procedure InsertCouple(const Index, Value1, Value2: Integer); 
    property AsString: String read GetString write SetString; 
end; 

我在哪里错了？

Answer 1

我想你错过了点DefineProperty和published 他们是互斥的。

• published意味着VCL将通过它自己的方式存储不动产。
• DefineProperty意味着没有这样的不动产，但你会假装像是有虚拟的。

什么是您的DFM？可能是'PointList'在那里存储了两次 - 作为列表和组件？

如果是这样 - 你应该只选择一种方法来保存它以某种方式，例如使属性PUBLIC而不是PUBLISHED。

或者，也许你可以尝试让非撞击的名字，像

property PointList: TPedroIntegerCoupleList read FList write SetList stored FALSE; 

Filer.DefineProperty('PointList_Virtual_DATA', ....