在DB网格中显示MySql TIMEDIFF()

Question

当我使用命令行时，这个查询提供了令人满意的结果(它显示了duation，这就是TIMEDIFF的内容)：

mysql> select timediff(end_time_stamp,start_time_stamp) from test_runs;
+-------------------------------------------+
| timediff(end_time_stamp,start_time_stamp) |
+-------------------------------------------+
| 00:00:07                                  |
| 00:00:11                                  |
| 00:01:23                                  |
+-------------------------------------------+
3 rows in set (0.00 sec)

当我把它放在Delphi中的DB网格中时，TIMEDIFF被格式化为12:00:07 AM，这不是我想要的(看起来是时间，而不是持续时间)。

我使用的是AnyDac，当我在设计时打开查询编辑器并执行它时，结果也是12:00:07 AM，因此AnyDac似乎出于某种原因对它进行格式化。

如何获得像00:00:07这样的输出(持续时间，而不是时间)？

• 我可以调整AnyDac查询吗？
• 我可以使用MySql语句显式地格式化输出吗？
• 这是否是一个OnXXX()函数，我可以对其进行编码以进行修改(以及如何)？

好吧，这段丑陋的代码可以做我想做的事情，但是有没有更优雅的方法呢？

SELECT run_id,
       start_time_stamp,
       end_time_stamp,
       CONCAT(CONCAT(CONCAT(CONCAT(LPAD(EXTRACT(HOUR FROM timediff(end_time_stamp,start_time_stamp)), 2, '0'), ":"),LPAD(EXTRACT(MINUTE FROM timediff(end_time_stamp,start_time_stamp)), 2, '0'), ":"), LPAD(EXTRACT(SECOND FROM timediff(end_time_stamp,start_time_stamp)), 2, '0'))) AS duration,
       description

FROM test_runs ORDER BY start_time_stamp DESC

Answer 1

使用DisplayFormat对象的TField属性获取所需的结果，例如：

begin
  MyQuery.Open;
  MyQueryField.DisplayFormat := 'hh:nn:ss';
  //or casting a TField to a descendant, like this:
  (MyQuery.FieldByName('duration') as TDateTimeField).DisplayFormat := 'hh:nn:ss';
end;

编辑

我向TDateTimeField添加了一个强制转换。如果您的实际字段不是TDateTimeField或后代的实例，它将导致EInvalidTypeCast异常，因为您必须将其转换为它所属的正确类。