डेल्फी 7 में स्ट्रिंग से गैर अल्फान्यूमेरिक वर्णों को अलग करने का सबसे तेज़ तरीका क्या है?


5

अनुशंसित वर्ण ए टू जेड, ए से ज़ेड, 0 से 9 तक हैं। कम से कम कोड या एकल फ़ंक्शन सबसे अच्छा होगा क्योंकि सिस्टम इनपुट के जवाब में समय महत्वपूर्ण है।

+2

वहां अच्छा टैगिंग;) 22 feb. 092009-02-22 09:24:20

8
uses JclStrings; 

    S := StrKeepChars('mystring', ['A'..'Z', 'a'..'z', '0'..'9']); 
+2

नोट: नवीनतम जेसीएल लाइब्रेरी में, आप कहेंगे:' JclAnsiStrings का उपयोग करता है ' 27 jun. 122012-06-27 12:57:44


1

OnKeypress घटना

शुरू नहीं तो (में महत्वपूर्ण [ 'ए' .. 'Z', 'एक' .. 'z', '0' .. '9']) तो कुंजी: = # 0; अंत;

  0

आपको वैसे भी उपयोग करने से पहले टेक्स्ट को सत्यापित करना होगा। आप क्लिपबोर्ड या टेक्स्ट ड्रैग और ड्रॉप का उपयोग करके इस चेक को बाईपास कर सकते हैं। 22 feb. 092009-02-22 10:23:11

  0

ओपी एक स्ट्रिंग को पट्टी करना चाहता है - कीबोर्ड का कोई उल्लेख नहीं। 22 feb. 092009-02-22 11:42:00


3

बस एक टिप्पणी जोड़ने के लिए।

डेल्फी 7 में एक सेट का उपयोग करने का समाधान ठीक है, लेकिन यह डेल्फी 200 में कुछ समस्याएं पैदा कर सकता है क्योंकि सेट चार का नहीं हो सकता है (वे Ansichar में परिवर्तित हो जाते हैं)।

एक समाधान का उपयोग कर सकते है:

case key of 
    'A'..'Z', 'a'..'z', '0'..'9' : begin end; // No action 
else 
    Key := #0; 
end; 

लेकिन सबसे बहुमुखी रास्ता निश्चित रूप से है:

if not ValidChar(key) then 
    Key := #0; 

उस मामले आप कई स्थानों में ValidChar उपयोग कर सकते हैं और अगर यह होने की जरूरत में बदल गया आपको केवल इसे एक बार बदलना होगा।


10

अगर मैं तुम्हें सही ढंग से समझ आप इस तरह एक समारोह इस्तेमाल कर सकते हैं:

function StripNonAlphaNumeric(const AValue: string): string; 
var 
    SrcPtr, DestPtr: PChar; 
begin 
    SrcPtr := PChar(AValue); 
    SetLength(Result, Length(AValue)); 
    DestPtr := PChar(Result); 
    while SrcPtr <> #0 do begin 
    if SrcPtr[0] in ['a'..'z', 'A'..'Z', '0'..'9'] then begin 
     DestPtr[0] := SrcPtr[0]; 
     Inc(DestPtr); 
    end; 
    Inc(SrcPtr); 
    end; 
    SetLength(Result, DestPtr - PChar(Result)); 
end; 

यह (कम readibility की कीमत पर) उच्चतम गति के लिए PChar का प्रयोग करेंगे।

संपादित करें: उपयोग के बारे में gabr द्वारा टिप्पणी पुन DestPtr [0] DestPtr^ के बजाय: यह एक ही बाइट्स वैसे भी संकलन करना चाहिए, लेकिन इसी तरह के कोड है, जहां आप की जरूरत में अच्छा अनुप्रयोगों देखते हैं भविष्य का ध्यान करना। मान लीजिए कि आप न्यूलाइन को प्रतिस्थापित करना चाहते हैं, तो आप

function ReplaceNewlines(const AValue: string): string; 
var 
    SrcPtr, DestPtr: PChar; 
begin 
    SrcPtr := PChar(AValue); 
    SetLength(Result, Length(AValue)); 
    DestPtr := PChar(Result); 
    while SrcPtr <> #0 do begin 
    if (SrcPtr[0] = #13) and (SrcPtr[1] = #10) then begin 
     DestPtr[0] := '\'; 
     DestPtr[1] := 't'; 
     Inc(SrcPtr); 
     Inc(DestPtr); 
    end else 
     DestPtr[0] := SrcPtr[0]; 
    Inc(SrcPtr); 
    Inc(DestPtr); 
    end; 
    SetLength(Result, DestPtr - PChar(Result)); 
end; 

और इसलिए मैं आमतौर पर^का उपयोग नहीं कर सकता।

बीटीडब्लू, क्या किसी को यह पता है कि हाइलाइटिंग सही तरीके से कैसे काम करता है इस तरह प्रारूपित करना है?

  0

मुझे एसआरसीपीआरटी [0] का उपयोग बहुत दिलचस्प लगता है - पहले कभी ऐसा दृष्टिकोण नहीं देखा। SrcPtr^और DestPtr^का उपयोग करने के लिए और अधिक कैनोलिक तरीका होगा। 22 feb. 092009-02-22 11:26:38

  0

पुन: स्वरूपण - शायद अगर आप "DestPtr [0]: = 't'" के बाद लापता अर्धविराम डालते हैं तो हाइलाइटिंग काम करेगी। :-) 22 feb. 092009-02-22 14:43:04

  0

धन्यवाद केन, सही है, लेकिन यह अभी भी काम नहीं कर रहा है :-(हाइलाइटर दुर्भाग्य से सी स्ट्रिंग्स के रूप में डेल्फी तारों का इलाज करता है। 22 feb. 092009-02-22 15:56:44

  0

@ मिगी: आरई संपादित करें: यह वास्तव में साफ दृष्टिकोण है और कुछ ऐसा जिसे मैंने कभी नहीं सोचा था। महान के लिए धन्यवाद विचार! 22 feb. 092009-02-22 18:33:31

  0

मुझे लगता है कि आप कहने का मतलब है 'जबकि SrcPtr^<> # 0' या 'जबकि SrcPtr [0] <> # 0'। 27 jun. 122012-06-27 12:59:43

  0

ध्यान दें कि डेल्फी तारों में शून्य वर्ण हो सकते हैं।' S: = 'को कॉल करने का नतीजा एक नल '# 0' चरित्र वाला एक स्ट्रिंग! 'टी: = स्ट्रिपनॉनअल्फा न्यूमेरिक (एस); '' l' के साथ समाप्त हो जाएगा। 27 jun. 122012-06-27 13:02:48