edit'teki belli bir karakteri silme

[Policemal]

herhangibir edite girilen metinlerdeki bazı karakterleri silmek istiyorum, bun nasıl sağlayabilirim.
örnek edit1 e girilen \\aliosman girilen değeri ali osman şeklinde düzeltsin, yani baştaki "\\" işaretlerini silsin
ilgilenen herkeze tşk ederim.

[husonet]

Merhaba,

Edit1.Text i bir stringe atayın ve while döngüsü ile Str şeklinde karakterlerine erişerek if ile kontrol yaptırtırsanız amacınıza ulaşırsınız.

Kolay Gelsin...

[mussimsek]

Copy ile yapabilirsin.

Copy(string, başlangıç, bitiş) şeklinde, burdaki örnek için :

Copy(Edit1.Text, 3, Length(Edit1.Text))

Kolay gelsin.

[m_ekici]

Kod: Tümünü seç

var
   s, sil: string;
 begin
   s := '\\alios\\man\\';
   sil := '\\';
   While Pos(sil,S)>0 do Delete(s,Pos(sil,S),length(sil));
   label1.Caption := s;  // aliosman
end;

birden fazla var ise daha az uğraştırır

[cetoonak]

Edit1.Text:=StringReplace(Edit1.Text, '//', '', [rfReplaceAll])