自定義屬性流讀取錯誤

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', ....