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

Question

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

Answer 1

uses JclStrings; 

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

Answer 2

OnKeypress घटना

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

Answer 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 उपयोग कर सकते हैं और अगर यह होने की जरूरत में बदल गया आपको केवल इसे एक बार बदलना होगा।

Answer 4

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

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; 

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

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