इंट 64 निरंतर घोषित कैसे करें?

Question

मैं डेल्फी में एक निरंतर परिभाषित करने के लिए कोशिश कर रहा हूँ:

const 
    FNV_offset_basis = 14695981039346656037; 

और मैं त्रुटि मिलती है: पूर्णांक लगातार बहुत बड़ी

Note:14,695,981,039,346,656,037 decimal is equal to 0x14650FB0739D0383 hex.

कैसे मैं इस Int64 लगातार घोषणा कर सकते हैं?

कुछ अन्य बातों मैं कोशिश की है:

const 
    FNV_offset_basis: Int64 = 14695981039346656037; 
    FNV_offset_basis = Int64(14695981039346656037); 
    FNV_offset_basis: Int64 = Int64(14695981039346656037); 


var 
    offset: LARGE_INTEGER; 
begin 
    //recalculate constant every function call 
    offset.LowPart = $739D0383; 
    offset.HighPart = $14650FB0; 

सुधार

मेरे मौलिक धारणा गलत था।

चिपकाया जा रहा है 14695981039346656037 विंडोज 7 कैलक्यूलेटर में, और हेक्स में परिवर्तित करने, मुझे विश्वास है कि 14695981039346656037 की हेक्स बराबर 0x14650FB0739D0383 है का नेतृत्व किया:

यह गलत है।

तो जब मैं उच्च बिट के साथ एक 16 अंकीय हेक्स मान देखा, सेट नहीं, मैं इसे एक 64-बिट में फिट सकता प्रकल्पित पूर्णांक पर हस्ताक्षर किए।

असल में हेक्स समकक्ष 14695981039346656037 है ... कुछ और। रोब, तुम सही थे! (शायद)

Answer 1

प्रश्न में आपका हेक्स रूपांतरण गलत है। वह संख्या वास्तव में $ cbf29ce484222000 है और एक हस्ताक्षरित 64 बिट पूर्णांक में फिट नहीं है। इसका प्रतिनिधित्व करने के लिए आपको एक हस्ताक्षरित 64 बिट पूर्णांक की आवश्यकता होगी। डेल्फी 5 में कोई हस्ताक्षरित UInt64 नहीं है और इसलिए आप भाग्य से बाहर हैं। कोई अभिन्न डेटा प्रकार नहीं है जो डेल्फी के आपके संस्करण में उस संख्या का प्रतिनिधित्व कर सकता है।

यदि आप जो चाहते हैं वह आपको हस्ताक्षर मूल्य के रूप में थोड़ा पैटर्न की व्याख्या कर सकता है। उस स्थिति में आपके पास ऋणात्मक संख्या होगी।

Answer 2

यह संख्या एक हस्ताक्षरित 64-बिट पूर्णांक धारण से बड़ी है। क्या आपने इसके बजाय UInt64 का उपयोग करने का प्रयास किया है?

Answer 3

मुझे 64-बिट (हस्ताक्षरित) संख्या रखने के लिए केवल 64-बिट चर की आवश्यकता थी। मैं अभी भी इसे पूरा करने डेल्फी के Int64 उपयोग कर सकते हैं, लेकिन चाल मेरी जरूरत स्थिरांक घोषित करने के लिए कैसे किया गया था:

जबकि मैं (मुझे सही हेक्स मान को खोजने के लिए डेव और रोब के लिए धन्यवाद)

const 
    FNV_offset_basis: ULARGE_INTEGER = (LowPart: $cbf29ce4; HighPart: $84222000); 

बजे, कडाई के Int64 का उपयोग नहीं, मैं एक Int64 उपयोग कर रहा हूँ:

var 
    hash: Int64; 
begin 
    hash := FNV_offset_basis.QuadPart; 

    for i := 1 to Length(s) do 
    begin 
     hash := hash xor Byte(s[i]); 
     hash := UInt64Mul(hash, 1099511628211);  
    end; 

    Result := UInt64mod(hash, map.Length); 
end; 

कुछ सावधानी से गढ़ी गई UInt64Xxx गणित दिनचर्या के साथ

:

function UInt64mod(const Dividend: Int64; const Divisor: DWORD): DWORD; 
var 
    d2: LongWord; 
    remainder: LongWord; 
begin 
    //Upper half of dividend cannot be larger than divisior, or else a #de divide error occurs 
    //Keep multiplying by two until it's larger. 
    //We fixup at the end 
    d2 := Divisor; 
    while d2 < u.HighPart do 
     d2 := d2 * 2; 

    asm 
     MOV EDX, ULARGE_INTEGER(Dividend).HighPart; 
     MOV EAX, ULARGE_INTEGER(Dividend).LowPart; 
     MOV ECX, d2; 

     //EAX := EDX:EAX/r/m32, EDX=remainder 
     DIV ECX; 
     MOV remainder,EDX 
    end; 

    //Fixup for using larger divisor 
    Result := remainder mod Divisor; 
end; 

मैं पाठक के लिए अभ्यास के रूप में कार्यान्वयन UInt64Mul छोड़ दूंगा।

Answer 4

विंडोज 7 कैलक्यूलेटर दोषपूर्ण है और बिना किसी चेतावनी के आखिरी अंक को स्ट्रिप करता है, कैलकुलेटर वास्तव में 64 बिट्स में गणना करने में सक्षम नहीं है, भले ही QWord चुना गया हो। यह केवल विंडोज 7 में एक इंट 64 कैलकुलेटर प्रतीत होता है और यह पर्याप्त अंक प्रदर्शित नहीं कर सकता है और बस उन्हें पूरी तरह से गलत मान पर स्ट्रिप्स कर सकता है। दिलचस्प बात यह है कि विंडोज एक्सपी कैलकुलेटर में यह बग नहीं है।

और 14695981039346656037 के वास्तविक हेक्स मूल्य 0xCBF29CE484222325 भी 14695981039346656037 = (20921 * 465383 * 1509404459) अब एक सबूत यह कैलक्यूलेटर के साथ यह गणना करने के लिए कोशिश करते हैं और आप -3750763034362895579 मिल जाएगा के रूप में (हस्ताक्षरित) के बजाय 14695981039346656037 (अहस्ताक्षरित) में है प्रोग्रामर मोड, लेकिन यह वैज्ञानिक मोड में सही होगा।

Answer 5

मैं एक WMI कॉल उस प्रकार Uint64 का एक संस्करण लौटे डेल्फी 5. द्वारा समर्थित नहीं था यह सोचते हैं कि Int64 परिणाम मैं उम्मीद कर रहा था, 1- मैं एक विस्तारित में typecasted और संग्रहीत लौटे संस्करण के लिए पर्याप्त उचित था तक (वास्तविक प्रकार), 2- मैंने "ट्रंक" फ़ंक्शन का उपयोग किया जो आवश्यक होने पर विस्तार से एक Int64 देता है।

बिल्कुल वही नहीं जो आप चाहते हैं लेकिन वास्तविक प्रकारों पर विचार करने से किसी को "असंभव" डेल्फी 5 गणित प्राप्त करने में मदद मिल सकती है।