Question

我有一个包含属性列表的基本类。然后创建子类并添加另一个属性。我需要将组件存储到文件中。但是不是存储子组件，而是编写父组件。

以下是一个证明这个问题的例子。

  MyComp1 = class(TComponent)
  strict private
    FS: string;
    FI: Integer;
  published
    property S: string read FS write FS;
    property I: Integer read FI write FI;
  end;

  MyComp2 = class(MyComp1)
  strict private
    FS2: string;
  published
    property S2: string read FS2 write FS2;
  end;

procedure SaveIt;
var
  MS: TMemoryStream;
  C1: MyComp1;
  C2: MyComp2;
begin
  MS := TMemoryStream.Create;
  try
    C1 := MyComp1.Create(nil);
    C1.S := 'Hallo, World!';
    C1.I := 100500;
    C2 := MyComp2(C1);
    C2.S2 := 'Second string';
    MS.WriteComponent(C2);
    MS.Position := 0;
    MS.SaveToFile('C:\test.dat');
  finally
    MS.Free;
  end;
end;

详细说明：

我的功能随着时间的推移而不断扩展。所以我创建了TComponent的基类（让我们称之为MyComp1）和这种类型的变量（MyComp：MyComp1）。一旦我扩展了功能，我就从以前的版本创建了后代类（MyComp2 = class（MyComp1））添加新的所需属性并像这样分配它的值

MyComp2(MyComp).S2 := 'Second string';

然后我需要将MyComp组件保存到文件中但具有子属性。我确实像这样创建它

MyComp := MyComp2.Create(nil)

但将其保存到文件中只有MyComp1的属性

Answer 1

它不起作用，因为您要实例化MyComp1的对象，然后将其类型转换为MyComp2。它不是内存中的实际MyComp2对象，因此将值写入MyComp2对象上的MyComp1属性是一个无效操作，它访问不属于MyComp1对象的内存，因此它最糟糕的情况会崩溃，更糟糕的是腐败的记忆。

处理这种情况的正确方法是仅创建MyComp2的对象实例，而不是MyComp1。 MyComp2从MyComp1继承成员，因此您可以访问MyComp1对象上的MyComp2属性，例如：

procedure SaveIt;
var
  MS: TMemoryStream;
  Comp: MyComp2;
begin
  MS := TMemoryStream.Create;
  try
    Comp := MyComp2.Create(nil);
    try
      Comp.S := 'Hallo, World!';
      Comp.I := 100500;
      Comp.S2 := 'Second string';
      MS.WriteComponent(Comp);
    finally
      Comp.Free;
    end;
    MS.Position := 0;
    MS.SaveToFile('C:\test.dat');
  finally
    MS.Free;
  end;
end;

如何使用WriteComponent方法编写TComponent后代？

1 个答案: