0

我是 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 Lecture de TPedroGraphLineCollectionItem.□□: la propriété □□ n'existe pas。Ignorer l'erreur et continuer ?Remarque: ceci peut provoquer la suppress de composants ou la perte de valeurs de propriété

注意： '□' 字符实际上是这样显示的。

3

Erreur lors de la Lecture de TPedroGraphLineCollectionItem.□□

4

Erreur lors de la Lecture de PedroGraphLines1.Lines: Valeur de propriété wronge。Ignorer l'erreur et continuer ?Remarque: ceci peut provoquer la suppress de composants ou la perte de valeurs de propriété

5

Erreur à la création de la 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;

我哪里错了？

4

1 回答 1

2

我认为您错过了DefineProperty和published 他们是相互排斥的。

  • published表示 VCL 将通过自己的方式存储不动产。
  • DefineProperty意味着没有这样的不动产，但你会假装如​​果有一些虚拟的。

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

如果是这样 - 您应该只选择一种方法以一种或另一种方式保存它，例如将属性设为 PUBLIC 而不是 PUBLISHED。

或者，也许您可​​以尝试使用不冲突的名称，例如

property PointList: TPedroIntegerCoupleList read FList write SetList stored FALSE;

Filer.DefineProperty('PointList_Virtual_DATA', ....
于 2013-12-17T10:21:12.083 回答