मैं संपादन नियंत्रण से केवल संख्याओं को कैसे स्वीकार कर सकता हूं?

Question

आम तौर पर मैं अब समस्या आता है जब उपयोगकर्ता कुछ है कि एक नंबर परिवर्तित नहीं कर सकते में प्रवेश करती है डेटाबेस

DataModule.tbTableNumber.Value := StrToFloat(edtNumber.text); 

में एक स्ट्रिंग मान बचाने के लिए निम्नलिखित करना होगा। मैं इसे कैसे रोक सकता हूं? क्या कोई व्यक्ति अपवाद का उपयोग कर सकता है और मैं इस अपवाद को कैसे लिखूं?

मैं डेल्फी XE2 का उपयोग कर रहा हूं।

Answer 1

सुनिश्चित करने के लिए की जरूरत है सबसे अच्छा समाधान (आईएमएचओ) TryStrToFloat का उपयोग करना है:

procedure TForm1.Button1Click(Sender: TObject); 
var 
    myfloat: double; 
begin 
    if TryStrToFloat(Edit1.Text, myfloat) then 
    DataModule.tbTableNumber.Value := myfloat 
    else 
    ShowMessage('Incorrect value.'); 
end; 

मुझे नहीं लगता कि यह try..except का उपयोग करने के लिए विशेष रूप से 'साफ' है, जब त्रुटि छोटी होती है और वास्तव में, जैसा कि इस मामले में अपेक्षित है।

Answer 2

आप निम्न

try 
    val := StrToFloat(edtNumber.text); 
    except 
    on E: EConvertError do 
    begin 
     ShowMessage('Entered Data is not a valid Floating Point number'); 
    end; 
    end; 

तुम भी

StrToFloatDef(edtNumber.text, -1) 

को देखने के लिए चाहते हो सकता है के साथ अपवाद पकड़ कर सकते हैं आप केवल आपके रिटर्न परिवर्तित एक वैध संख्या

Answer 3

ऐसे कई नियंत्रण हैं जिन्हें संख्यात्मक इनपुट स्वीकार करने के लिए कहा जा सकता है, और आपके उत्तर के रूप में स्वीकार किए गए दृष्टिकोण पर इसका कुछ लाभ है।

उदाहरण के लिए jedi JVCL library में कई संख्यात्मक इनपुट नियंत्रण शामिल हैं और मूल वीसीएल में कुछ संभावनाएं शामिल हैं, जिनमें स्पिन एडिट कंट्रोल भी शामिल है जो पूर्णांक मानों के इनपुट के लिए है।

Answer 4

मैं http://www.festra.com/eng/snip05.htm

(लिंक से कोड)

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin 
    if not (Key in [#8, '0'..'9', '-', DecimalSeparator]) then begin 
    ShowMessage('Invalid key: ' + Key); 
    Key := #0; 
    end 
    else if ((Key = DecimalSeparator) or (Key = '-')) and 
     (Pos(Key, Edit1.Text) > 0) then begin 
    ShowMessage('Invalid Key: twice ' + Key); 
    Key := #0; 
    end 
    else if (Key = '-') and (Edit1.SelStart <> 0) then begin 
    ShowMessage('Only allowed at beginning of number: ' + Key); 
    Key := #0; 
    end; 
end;