delphi - 读取 DataSet 结构而不读取其数据

Question

场景:

我想在运行时向给定(任何)数据集添加计算字段。除了执行 DataSet.Open 方法之外，我不知道还有其他方法来获取数据集结构。

但是Open方法导致至少一行数据需要从服务器传输到客户端。然后我需要关闭数据集，添加字段并重新打开它。我认为这是不必要的开销。有更好的方法吗？请注意，我希望能够向任何数据集添加计算字段，但在打开之前我不知道其结构。

在伪代码中，它看起来像这样:

DataSet.Open;
DataSet.Close;
RecreateFieldsStructure;
AddCalculatedField;
DataSet.Open;

感谢您的宝贵时间。

Answer 1

您可以使用DataSet.FieldDefs.Update方法。这仍然会涉及一些数据传输，但不会提取任何行。您可以在 TDataSet 的 BeforeOpen 事件中调用此方法，并在其中添加计算字段。

这是一个适合我的简短示例:

procedure TDataModule.cdsExampleBeforeOpen(DataSet: TDataSet);
var I: Integer;
    TmpField: TDateTimeField;
begin
  // Get field definitions from the server
  DataSet.FieldDefs.Update;

  // Add calculated field
  TmpField := TDateTimeField.Create(DataSet);
  with TmpField do
  begin
    Name := 'Date';
    FieldName := 'Date';
    DisplayLabel := 'Date';
    DisplayFormat := 'ddd ddddd';
    Calculated := True;
  end;
  TmpField.DataSet := DataSet;

  // Create fields from field definitions
  for I := 0 to DataSet.FieldDefs.Count - 1 do
    DataSet.FieldDefs[I].CreateField(DataSet);
end;