如何在现有Delphi应用中为TClientDataSet添加字段并使其生效？

现有Delphi应用中，TClientDataSet组件BandCDS通过FieldDefs定义了Name、Genre、URL三个字段。启动时在FormCreate中执行以下代码加载已有XML文件：

appPath := ExtractFilePath(Application.ExeName);
BandCDS.FileName := appPath + 'bands.xml'; // 已存在的文件
BandCDS.Active := TRUE;
BandCDS.LoadFromFile(BandCDS.FileName);  // 从文件加载数据

该组件通过TDataSource关联TDBGrid，运行正常。现在需要为BandCDS添加第四个字段并在TDBGrid中显示，但直接修改FieldDefs的方法无效。

补充信息：会话结束时执行以下代码将数据保存回原文件：

BandCDS.SaveToFile(BandCDS.FileName, dfXML);

用户尝试在加载文件后修改字段：

BandCDS.FieldDefs[1].Name := 'NewName';
BandCDS.FieldDefs.Add('A',ftFixedChar,1);

观察到FieldDefs已修改，但TDBGrid无变化；保存文件后重启应用，字段恢复原状，修改未被保存。

TClientDataSet加载XML后，其FieldDefs会被文件中的结构覆盖，且在Active状态下修改FieldDefs既不会生效，也不会被保存到文件。正确处理流程如下：

1. 迁移数据并重建数据集结构 #

通过临时数据集保存原有数据，关闭主数据集后修改FieldDefs，再将原有数据迁移到新结构中：

var
  TempCDS: TClientDataSet;
  appPath: string;
begin
  appPath := ExtractFilePath(Application.ExeName);
  // 1. 加载原数据到临时数据集
  TempCDS := TClientDataSet.Create(nil);
  try
    TempCDS.FileName := appPath + 'bands.xml';
    TempCDS.Active := True;
    TempCDS.LoadFromFile(TempCDS.FileName);

    // 2. 关闭主数据集，重新定义字段结构
    BandCDS.Active := False;
    BandCDS.FieldDefs.Clear;
    // 定义新字段：包含修改后的字段和新增字段
    BandCDS.FieldDefs.Add('Name', ftString, 100);
    BandCDS.FieldDefs.Add('NewName', ftString, 50); // 替换原Genre字段
    BandCDS.FieldDefs.Add('URL', ftString, 255);
    BandCDS.FieldDefs.Add('A', ftFixedChar, 1); // 新增字段

    // 3. 激活主数据集，迁移临时数据
    BandCDS.Active := True;
    TempCDS.First;
    while not TempCDS.Eof do
    begin
      BandCDS.Append;
      BandCDS.FieldByName('Name').AsString := TempCDS.FieldByName('Name').AsString;
      BandCDS.FieldByName('NewName').AsString := TempCDS.FieldByName('Genre').AsString; // 迁移原Genre数据
      BandCDS.FieldByName('URL').AsString := TempCDS.FieldByName('URL').AsString;
      BandCDS.FieldByName('A').AsString := ''; // 为新增字段赋默认值
      BandCDS.Post;
      TempCDS.Next;
    end;

    // 4. 保存新结构与数据到XML文件
    BandCDS.SaveToFile(appPath + 'bands.xml', dfXML);
  finally
    TempCDS.Free;
  end;
end;

2. 确保TDBGrid显示新字段 #

• 若TDBGrid曾手动添加过列，需删除原有列或手动添加对应新字段的列
• 开启TDBGrid.Options中的dgAutoColumns选项，激活数据集后会自动显示所有字段

3. 后续启动的简化加载 #

当XML文件已更新为新结构后，后续启动只需正常加载即可，无需重复迁移：

appPath := ExtractFilePath(Application.ExeName);
BandCDS.FileName := appPath + 'bands.xml';
BandCDS.Active := True;
// Active=True会自动加载FileName指定的文件，无需额外调用LoadFromFile

关键注意点 #

• 必须在数据集Active := False的状态下修改FieldDefs，Active状态下的修改不会生效
• 直接修改FieldDefs不会自动迁移原有数据，需手动处理数据转移
• SaveToFile会保存当前数据集的完整结构和数据，需确保结构修改完成后再执行保存

内容的提问来源于stack exchange，提问作者Kevin Killion