function GetFldInt64(ds:Tdataset;pFldName:String):Int64; // 获取64位整数字段的内容 // 兼容常规整数字段,但不建议使用 var vfld:TField; begin Result := 0; vfld := ds.FieldByName(pFldName); // 故意使用此方法,目的是当字段名不正确时,将引起错误 if vfld is TLargeintField then Result := TLargeintField(vfld).AsLargeInt else if vfld is TIntegerField then Result := vfld.AsInteger else myaskwithmsgargs('字段【%S】不是32或64位整数类型!',[vfld.FieldName],'E',60); end;
// 获取64位整数字段的内容
// 兼容常规整数字段,但不建议使用
var vfld:TField;
begin
Result := 0;
vfld := ds.FieldByName(pFldName); // 故意使用此方法,目的是当字段名不正确时,将引起错误
if vfld is TLargeintField then Result := TLargeintField(vfld).AsLargeInt
else if vfld is TIntegerField then Result := vfld.AsInteger
else myaskwithmsgargs('字段【%S】不是32或64位整数类型!',[vfld.FieldName],'E',60);
end;