arama esnasında edit içerisindeki billgiyi düzenleme

[delphist]

s.a. Arkadaşlar arama yaptığım bir formum var bu formda arama yapılan bir de edit var. Fakat bu edite bilgiler içerisinde boşluk Örneğin 244 433 433 gibi boşluk kullanılabilmekte zannedersem bunu trim ile boşlukları kaldırabiliyorduk fakat bir de boşluk haricinde (-,./) gibi karakterlerde gelebiiyor mesela 888,333/333 fakat benim bu aramayı yapmam için yukardaki karakterleride kaldırıp üstteki örnekte olduğu gibi 888333333 şeklinde aramam lazım. Bana bu konuda yardımcı olabilirmisiniz. Teşekküred erim şimdiden.

[naklov67]

Kod: Tümünü seç

var
  once,sonra : string;

begin
  // Tüm harfleri istediğin şeyle değiştirir
  once := '888,333/333';

  sonra  := StringReplace(once, '/', '',
                          [rfReplaceAll, rfIgnoreCase]);
  sonra  := StringReplace(sonra, ',', '',
                          [rfReplaceAll, rfIgnoreCase]);
  ShowMessage('Önce = '+once);
  ShowMessage('Sonra  = '+sonra);

end;

bu işini görür sanırım

[delphist]

s.a. hocam çok teşekkür ederim yardımların için fakat şöle bir sıkıntım kaldı 888 888 şeklinde aralarda boşluk olduğu zaman trim bu boşluğu almıyor...aralardaki boşluğu nasıl kaldırabiilirim. bu konudada yardımcı olursanız sevinirim. Teşekkürler

[lazio]

pos

[ulu coder]

Bu fonksiyona parametre olarak yazıyı girin, sadece rakamlarını geri döndürsün.

Kod: Tümünü seç

function SadeceRakamlar(Once: String): String;
  var
    i: Integer;
    tmpPChar: PChar;
begin
  tmpPChar := PChar(Once);
  for i := 1 to length(Once) do
  begin
    If tmpPChar^ in ['0'..'9'] then
      Result := Result + tmpPChar^;
    inc(tmpPChar);
  end;//for
end;

Kolay gele...

[Mysterio]

Edit te giriş yapılırken Harf ve rakamlar dışında kalan karakterler alınmayabilir...