델파이 : 데이터베이스에서 BigInts 사용하기

Question

Delphi 7과 devart dbExpress을 사용하여 SQLServer에 연결했습니다. 문제는 ClientQuery에 bigInt 필드를 추가하면 TFMTBCDField이됩니다.

그리고 TFMTBCDField 본건은 64 비트 값을 얻을 수있는 방법이있다.

Field.AsVariant 또는 StrToInt64(Field.AsString)을 사용하여이 64 비트 값을 선택할 수 있습니다.

이 값을 선택/사용하는 더 좋은 방법이 있습니까?

Answer 1

어쩌면 데이터 세트에 수동으로 실시 TLargeIntField을 추가하고 같은 코드를 사용 :

이 시도

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

정확히 유형을 기억하지 마십시오,하지만이 일을 델파이 6에서.

Answer 2

내가 델파이 7이 더 이상 여기에 설치 해달라고하지만, 도움을보고, 나는 이런 식으로, 당신은 플로트 (더블)으로 얻을 수 있습니다 참조 :

: 다음

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

과, 함수를 호출

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

end; 

Answer 3

당신은 단위 FMTBcd에서 VarFMTBcdCreate와 INT64하는 변형과보다 BCD 변환 할 수 있습니다. 그것은 적절한 이름에 필드 이름을의 설정,

이

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

Answer 4

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을 호출하는 것이 좋습니다.