delphi - 当我的组件的属性发生更改时，要保留它们吗？

Question

我有一个自定义组件，其中包含一些已发布的属性，这些属性已在许多项目中使用了一段时间。我想对此组件进行一些特定的更改，这需要删除这些旧属性并用新属性替换它们。否则，我不一定要删除这些属性，但假设我只是将属性名称从 PropName 更改为 MyPropName 。那么，下次打开任何使用该组件的项目时，它将无法找到 PropName。

有什么办法可以自动转换吗？或者这是人们必须手动完成的事情？当这些属性的名称发生更改时，维护组件属性值的正确方法是什么？

我的意思是仅在 DFM 代码中，不一定在源代码中。

Answer 1

您可以使用DefineProperties扩展点可帮助迁移您的 .dfm 文件。

type
  TMyComponent = class(...)
  private
    procedure ReadPropName(Reader: TReader);
  protected
    procedure DefineProperties(Filer: TFiler); override;
  published
    property MyPropName: string read ... write ...;
  end;

procedure TMyComponent.DefineProperties(Filer: TFiler);
begin
  inherited;
  Filer.DefineProperty('PropName', ReadPropName, nil, False);
end;

procedure TMyComponent.ReadPropName(Reader: TReader);
begin
  MyPropName := Reader.ReadString;
end;

这将允许您的新组件读取具有旧属性名称的旧 .dfm 文件。当再次写入.dfm文件时，将使用新的属性名称。

请注意，这种技术会使组件能够读取包含旧属性名称或新属性名称的 .dfm 文件，因此您可以根据需要逐步迁移。一旦您迁移了所有 .dfm 文件，那么为了整洁起见，删除此类代码是值得的。

Delphi 文档在 Storing and Loading Unpublished Properties 中涵盖了这个主题领域，尽管角度略有不同。 Component Writer's Guide 部分.