Mega Code Archive
Harf sil function
<![CDATA[
********************************************************
********************************************************
*** 'ARKADAŞLAR LÜTFEN KODBANK"TAN YARDIM İSTEMEYİN' ***
************* 'FORUMLARDAN YARDIM İSTEYİN' *************
********************************************************
********************************************************
//Bu konuda diğer arkadaşlarıma katılıyorum. Lütfen kodbank'tan yardım istemeyin.
//Ayrıca lütfen sorulan sorulara cevap vermeyin. Zaten bir çok şey var kodbank'ta
//bir iki soruya baktım adamın sorduğu sorunun cevabı abartmıyorum en fazla 15 satır
//(konu) altta, yani eski konu. Millet beleşe alışmış. Soru sor cevaplasınlar diye.
//Tekrar söylüyorum LÜTFEN SORULARA CEVAP YAZMAYIN...
//Soru soran arkadaşlar sizde forumlardan yardım alın veya herkesin mail adresi mevcut
//4-5 kişiye mail atsanız bir cevap alırsınız. Bende böyle yaptım. Kesinlikle
//Kodbank'a soru yazmadım.
//Aşağıdaki Kodlar bir string içerisindeki istediğiniz harfleri silip kalanları
//veriyor. Burada silinecek kısmına aynı string gibi harfleri yazıyorsunuz veya
//boşluk bırakıyorsunuz. Örneğin '1w3aXc5 ' gibi... eğer metninizde yandaki harfler
//veya örnekteki gibi boşluk varsa onları silip kalanı veriyor.
//Dikkat küçük ve büyük harf duyarlıdır. Dolayısıyla küçük 'a' siliceğiniz zaman
//büyük'A'yı silmez.
//Bana lazım olmuştu. Eski projelerimi incelerken farkettim ve paylaşmak istedim.
// Öncelikle aşağıdaki function'ı unit'inizin aşağıdaki kısmından sonra tanımlayın.
//implementation
//{$R *.DFM}
Function HarfSil(Metin: String; Silinecek: Pchar): String;
var
I,A: Integer;
begin
For I := Length(Metin) downto 1 do
begin
For A := Length(Silinecek) downto 0 do
begin
if Metin <> EmptyStr then
begin
if (Metin[I] in [Silinecek[A]]) then
begin
Delete(Metin, I, 1);
end;
end;
end;
end;
Result := Metin;
end;
// Kullanımı (Mesela Bir Edit'in Onchange Olayında)
procedure TForm1.Edit1Change(Sender: TObject);
begin
Label1.Caption := HarfSil(Edit1.Text,'1w3aXc5 ');
end;
//Edit1.Text := 'Lşsc4xwZX5aqw236 '; olduğunu kabul edersek
//Sonuç 'Lşs4xZq26' olacaktır.
// İlginç, farklı ve kullanışlı kodları olanlar bad_badboy_boy@hotmail.com 'a
// mail atabilir. Teşekkürler.
]]>