Cách nhanh nhất để loại bỏ các ký tự không phải chữ và số từ một chuỗi trong Delphi7 là gì?

Question

Các ký tự được phép là từ A đến Z, a đến z, 0 đến 9. Số tiền ít nhất của mã hoặc một hàm đơn lẻ sẽ là tốt nhất vì hệ thống là thời gian quan trọng khi phản hồi lại đầu vào.

Answer 1

uses JclStrings; 

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

Answer 2

kiện OnKeyPress

bắt đầu nếu không muốn nói (quan trọng trong [ 'A' .. 'Z', 'a' .. 'z', '0' .. '9']) sau đó chính: = # 0; kết thúc;

Answer 3

Chỉ để thêm nhận xét.

Giải pháp sử dụng một bộ là tốt trong Delphi 7, nhưng nó có thể gây ra một số vấn đề trong Delphi 2009 vì bộ không thể có char (chúng được chuyển thành ansichar).

Một giải pháp bạn có thể sử dụng là:

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

Nhưng cách linh hoạt nhất là tất nhiên:

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

Trong trường hợp đó bạn có thể sử dụng ValidChar ở nhiều địa điểm và nếu nó cần phải được thay đổi bạn chỉ phải thay đổi nó một lần.

Answer 4

Nếu tôi hiểu bạn một cách chính xác bạn có thể sử dụng một chức năng như thế này:

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; 

này sẽ sử dụng PChar cho tốc độ cao nhất (với chi phí ít readibility).

Edit: Re bình luận bằng gabr về việc sử dụng DestPtr [0] thay vì DestPtr^: Điều này cần biên dịch để các byte cùng dù sao, nhưng có những ứng dụng thoải mái trong mã tương tự, khi bạn cần phải nhìn thẳng. Giả sử bạn muốn thay thế dòng mới, sau đó bạn có thể làm một cái gì đó như

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; 

và do đó tôi thường không sử dụng ^.

BTW, không ai có ý tưởng làm thế nào để định dạng này theo cách làm nổi bật hoạt động chính xác?