如何在 TClientDataSet 中使用 BIGINT (TLargeintField) 聚合字段？

发布于 2024-12-17 15:00:22 字数 948 浏览 5 评论 0原文

我需要计算一个字段的最大值，但我在这样做时遇到了麻烦。假设我的字段名为“VALUE0”。我想使用 TClientDataSet 的聚合函数来执行此操作。我应该怎么办？

此代码仅在 SQL 表中为 BIGINT 的字段时才会失败：

function TFrmIo.GetMaxY(): Integer;
var
  Max0: Integer;
  FieldMax0: TAggregateField;
begin
  if cds.Active then cds.Close;

  FieldMax0 := TAggregateField.Create(cds);
  FieldMax0.FieldName := 'MAX0';
  FieldMax0.Calculated := true;
  FieldMax0.ResultType := ftLargeint;
  FieldMax0.FieldKind := fkAggregate;
  FieldMax0.DataSet := cds;
  FieldMax0.Expression := 'MAX(VALUE0)';
  FieldMax0.Active := true;

  cds.Open;

  Max0 := Integer(FieldMax0.Value);
end;

我在“cds.Open”行上收到此异常：

Exception class EDBClient with message 'Type mismatch in expression.'

EDIT

根据注释中的要求，VALUE0 字段的类名称为 TLargeintField FieldKind 是 fkData。

编辑2

更改了问题和文本中的某些部分，因为现在我知道问题是关于 TClientDataSet 聚合函数中的 BIGINT 与 INTEGER 。

原文

I need to calculate the Max value of a field, but I'm having troubles doing so. Let's say that my field is named 'VALUE0'. I would like to use the aggregate functions of TClientDataSet to do so. What should I do?

This code will fail only with fields that are BIGINT in my SQL table:

function TFrmIo.GetMaxY(): Integer;
var
  Max0: Integer;
  FieldMax0: TAggregateField;
begin
  if cds.Active then cds.Close;

  FieldMax0 := TAggregateField.Create(cds);
  FieldMax0.FieldName := 'MAX0';
  FieldMax0.Calculated := true;
  FieldMax0.ResultType := ftLargeint;
  FieldMax0.FieldKind := fkAggregate;
  FieldMax0.DataSet := cds;
  FieldMax0.Expression := 'MAX(VALUE0)';
  FieldMax0.Active := true;

  cds.Open;

  Max0 := Integer(FieldMax0.Value);
end;

I get this exception on the "cds.Open" line:

Exception class EDBClient with message 'Type mismatch in expression.'

EDIT

As requested in the comment, the class name of VALUE0's field is TLargeintField and the FieldKind is fkData.

EDIT 2

Changed the question and some parts in the text because now I know that the problem is about BIGINT vs INTEGER in TClientDataSet aggregate functions.

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

后知后觉 2024-12-24 15:00:22

正如 Sertac Akyuz 所指出的，在 Delphi 2010 及更低版本上不可能这样做。似乎在 Delphi XE 中已修复，尽管我还没有测试过。

http://qc.embarcadero.com/wc/qcmain.aspx?d=83610

回复收藏 0 原文

谢绝鈎搭 2024-12-24 15:00:22

作为一种解决方法，可以对 Expression 使用 'MAX(VALUE0 * 1)' 或 'MAX(VALUE0 + 0)'。
那么您的 ResultType 将是 ftFloat。只是在访问值时不要忘记对值进行四舍五入：Max0 := Round(FieldMax0.Value);（浮点数有时往往有一个小尾巴:)