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

错误消息（法语）：

1

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é

2

Erreur lors de la讲话de TPedroGraphLineCollectionItem。□□：lapropriété□□n'existe pas。 Ignorer l'erreur et continuer？Remarque：ceci peut provoquer la suppression de composants ou la perte de valeursdepropriété

注意：'□'字符实际上显示为此。

3

Erreur lors de la讲话de TPedroGraphLineCollectionItem。□□

4

Erreur lors de la lecture de PedroGraphLines1.Lines：Valeurdepropriétéincorrecte。 Ignorer l'erreur et continuer？Remarque：ceci peut provoquer la suppression de composants ou la perte de valeursdepropriété

5

Erreuràlacréationdela fiche：Erreur de lecture du flux。

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

自定义属性流读取错误

1 个答案: