Delphi：使用数据库中的 BigInts

Question

我使用 Delphi 7 和 devart dbExpress 连接到 SQLServer。 问题是，当我将 bigInt 字段添加到 ClientQuery 时，它会显示为 TFMTBCDField。

并且 TFMTBCDField 没有获取 64 位值的方法。

我可以使用 Field.AsVariant 或 StrToInt64(Field.AsString) 来选择这个 64 位值。

有没有更好的方法来选择/使用这个值？

Answer 1

也许手动添加一个 TLargeIntField 到数据集，将其 FieldName 设置为适当的名称并使用这样的代码：

SomeInt64Value := (qryMyQuery.FieldByName('blahblah') as TLargeIntField).AsLargeInt;

不记得确切的类型，但它在 Delphi6 中是这样工作的。

Answer 2

您可以使用 VarFMTBcdCreate 从单元 FMTBcd 将 BCD 转换为 Variant，然后转换为 int64。

试试这个：

var value64 : int64;
...
value64 := VarFMTBcdCreate(Field.Value);

Answer 3

TFMTBCDField 的数据格式是来自 FMTBcd 单元的 TBcd 记录。您可以通过读取字段的 Value 或 AsBCD 属性来获取该原始值。

根据您需要的值，TBcd 可能就足够了。也就是说，您可能不需要将其转换为 Int64。 FMTBcd 单元提供对 TBcd 值进行加、减、乘和除的函数。

该单元不提供到 Int64 的转换。可以转换为 Variant、string、Currency、Double 和 Integer。如果我们要编写一个 Int64 转换，Integer 转换可能是一个很好的起点，所以让我们看看它是如何实现的：

function BcdToInteger(const Bcd: TBcd; Truncate: Boolean = False): Integer;
var
  ABcd: TBcd;
begin
  if Truncate and (BcdScale(Bcd) > 0) then
    NormalizeBcd(Bcd, ABcd, Bcd.Precision, 0)
  else
    ABcd := Bcd;
  Result := StrToInt(BcdToStr(ABcd));    
end;

那么，VCL 本身没有提供比通过字符串更直接的方法将TBcd转换为Integer。因此，您对字段的字符串版本调用 StrToInt64 的想法似乎没问题。

Answer 4

我这里不再安装 Delphi 7，但是在帮助中，我看到你可以得到 Float (Double)，如下所示：

function GetFieldAsInt64(Field: TField): Int64;
begin
  Result:= Int64(Round(Field.GetAsFloat));
end;

然后，调用该函数：

var
  Value: Int64;
begin
  Value:= GetFieldAsInt64(MyFMTBCDField);

end;