डेल्फी

Question

में कोई मान दिनांक/संख्या है या नहीं, यह जांचने का सही तरीका क्या है कि यह मूल्य जांचने का सही तरीका है कि कोई मूल्य डेल्फी में दिनांक/संख्या है या नहीं?

मुझे पता है कि अन्य भाषाओं में isDate और isNaN जैसे कार्य हैं, लेकिन डेल्फी समतुल्य क्या है? क्षण में मैं इस

function isNumeric(s1:string):boolean; 
begin 
    // will throw exception if its not a number 
    // there must be a better way to do this!! 
    try 
    StrTofloat(s1); 
     result := TRUE ; 
    except 
     result := FALSE; 
     end; 
end; 

है लेकिन फेंक अपवाद नहीं कर सकते अच्छा हो, और यह कठिन डिबगिंग के रूप में मैं अपवाद संवाद हर बार कोड कहा जाता है दिखाई दे रहा है बनाता है।

Answer 1

पूर्णांक के लिए, आप की जाँच करें और फेंक अपवाद के बिना कन्वर्ट करने के लिए इस्तेमाल कर सकते हैं TryStrToInt:

function TryStrToInt(const s: string; out i : integer): boolean; 

मैं पूरी तरह से सुनिश्चित तैरता के लिए एक पूर्ण बराबर होती है, हालांकि, तो आप StrToFloat (उपयोग करने के लिए आवश्यकता हो सकती है नहीं कर रहा हूँ) और एक TFormatException की संभावना को स्वीकार करते हैं।

Answer 2

TryStrToFloat, TryStrToDateTime आदि जैसे कार्यों का एक परिवार है जो ऐसा करता है। वैसे, StrToFloat और अन्य अपवाद उठाने से पहले आंतरिक रूप से "कोशिश करें" संस्करणों का उपयोग करते हैं।

Answer 3

सबसे पहले StrToFloatDef फ़ंक्शन एक उपयोगी विकल्प है यदि आप बॉक्स में डिलीवर होने के रूप में भाषा में रहना चाहते हैं।

हालांकि आपका सबसे अच्छा विकल्प जेडीआई कोड पुस्तकालयों (http://www.delphi-jedi.org/) को तैनात करना है और वहां से StrIsNumber फ़ंक्शन का उपयोग करना है।

जेईडीआई ओपन सोर्स है, जो बहुत से तरीकों से बेहद उपयोगी है, और वैसे भी बहुत कुछ जरूरी है।

Answer 4

आप उन अपमानजनक अपवादों को बंद कर सकते हैं जिन्हें आप "अपवाद को अनदेखा करें" बॉक्स को चेक करके चेक नहीं कर सकते हैं। उस अपवाद वर्ग के लिए भविष्य के अपवादों को तब अनदेखा कर दिया जाएगा। फिर से पूछना शुरू करने के लिए, बस विकल्प | डीबगर विकल्प पर जाएं और जिन लोगों को आप अनदेखा कर रहे हैं उन्हें अनचेक करें।

Answer 5

पकड़ने के अपवाद बहुत धीमे हैं। यदि आप तेजी से उत्तराधिकार में बार-बार इस तरह के फ़ंक्शन का उपयोग करने की योजना बनाते हैं, जैसे कि फ़ाइल आयात के दौरान फ़ील्ड को सत्यापित करते समय, यह आपके स्वयं के फ़ंक्शन को रोल करने के लायक हो सकता है जो किसी कोशिश को छोड़कर/ब्लॉक को छोड़ने से पहले कुछ सरल चरित्र स्तर की जांच करता है। मैंने बड़ी मात्रा में डेटा का विश्लेषण करते समय एक बड़े प्रदर्शन में वृद्धि के साथ पहले कुछ ऐसा किया है जो सही प्रारूप में नहीं था।

 
function IsNumeric(aValue : string): boolean; 
var 
    i : integer; 
begin 
    result := false; 
    for i := 1 to Length(aValue) do 
    if (NOT (aValue[i] in ['0'..'9', '.', '-', '+', 'E', 'e'])) then 
     exit; 
    try 
    StrToFloat(aValue); 
    result := true; 
    except 
    end; 
end; 

स्पष्ट रूप से यह सही नहीं हो सकता है, और इसमें हार्ड-कोड किए गए मानों की सीमा है। पूरी तरह से आपकी जरूरतों पर निर्भर करता है, यह केवल कुछ आसान था जो आंतरिक प्रक्रिया के लिए अच्छा काम करता था।