Dize numaralarını silme

Question

Dize'deki sayıları nasıl silebileceğimi bilmek istiyorum. StringReplace'ı kullanmayı deniyorum ve sayıları değiştirmek istediğim işlevi nasıl anlatacağımı bilmiyorum.

İşte denedim ne:

StringReplace(mString, [0..9], '', [rfReplaceAll, rfIgnoreCase]); 

Answer 1

Basit ama etkili. Optimize edilebilir, ancak bir başlangıç ​​olarak ihtiyacınız olanı almalıyım:

function RemoveNumbers(const aString: string): string; 
var 
    C: Char; 
begin 
    Result := ''; 
    for C in aString do begin 
     if not CharInSet(C, ['0'..'9']) then 
     begin 
     Result := Result + C; 
     end; 
    end; 
end; 

Answer 2

StringReplace ikinci argüman olarak bir dizi kabul etmez. Belki birisi daha uygun bir yaklaşım olacaktır, ancak bu çalışır:

StringReplace(mString, '0', '', [rfReplaceAll, rfIgnoreCase]); 
StringReplace(mString, '1', '', [rfReplaceAll, rfIgnoreCase]);  
StringReplace(mString, '2', '', [rfReplaceAll, rfIgnoreCase]); 

vb

Answer 3

Eh Oluşturduğum ettik böylece zaten fonksiyonları inşa arayan yorulmuştu benimkinin:

function RemoveNumbers(const AValue: string): string; 
    var 
     iCar : Integer; 
     mBuffer : string; 
    begin 
     mBuffer := AValue; 

     for iCar := Length(mBuffer) downto 1 do 
     begin 
     if (mBuffer[iCar] in ['0'..'9']) then 
      Delete(mBuffer,iCar,1); 
     end; 
     Result := mBuffer; 
    end; 

Answer 4

Oldukça hızlı inplace sürümü.

procedure RemoveDigits(var s: string); 
var 
    i, j: Integer; 
    pc: PChar; 
begin 
    j := 0; 
    pc := PChar(@s[1]); 
    for i := 0 to Length(s) - 1 do 
    if pc[i] in ['0'..'9'] then 
       //if CharInSet(pc[i], ['0'..'9']) for Unicode version 
     Inc(j) 
    else 
     pc[i - j] := pc[i]; 
    SetLength(s, Length(s) - j); 
end; 

Answer 5

Bu, Nick'in sürümüyle aynı çıktıya sahiptir, ancak bu kısa dizelerle 3 kattan daha hızlıdır. Metin ne kadar uzun olursa, fark o kadar büyük olur.

function RemoveNumbers2(const aString: string): string; 
var 
    C:Char; Index:Integer; 
begin 
    Result := ''; 
    SetLength(Result, Length(aString)); 
    Index := 1; 
    for C in aString do 
    if not CharInSet(C, ['0' .. '9']) then 
    begin 
     Result[Index] := C; 
     Inc(Index); 
    end; 
    SetLength(Result, Index-1); 
end; 

Gerekmiyorsa, değerli CPU döngülerini boşa harcamayın.

Answer 6

kullanımı bu

function RemoveNonAlpha(srcStr : string) : string; 
const 
CHARS = ['0'..'9']; 
var i : integer; 
begin 
result:=''; 
for i:=0 to length(srcStr) do 
if (srcstr[i] in CHARS) then 
result:=result+srcStr[i]; 
end ; 

bu

edit2.text gibi diyebilirsiniz: = RemoveNonAlpha (edit1.text);