edit nesnesi

[aydin038]

iyi gunler

basit bir soru ama hatirlayamadim.. simdiden tesekkurler..

edit nesnesine yazilan kelimenin ensonunda ki karakteri nasil secebilirim.

ornegin : deneme+

deneme+ kelimesiniin editte yazili oldugunu varsayar isek "+" seçip işlem yapmak istiyorum.

calismalarinizda basarilar..

saygilar...

[aydin038]

tekrar merhaba..

şimdi hatirladim...

edit3.text:=AnsiStrLastChar(pchar(edit2.text));

bu sekilde oluyor...

iyi gunler.

[mrmarman]

Selam..

- Bu işlemi bir buton vs. başka bir kontrolden yaptıracaksan ilk olarak SetFocus ile TEdit nesnesine focus olman lazım... Eğer bu işlem sona bırakılırsa tüm edit seçilir, yaptıklarımız boşa gider...

- Demek ki ilk satırımız...

Kod: Tümünü seç

  Edit1.SetFocus;

- SelStart ile imlecin kaçıncı karakterden sonra konumlanacağını bildirebiliriz... Karakter index'i 0 verirseniz en başa, Length(Edit1.Text) dersek en sona konumlanacaktır. Sizin istediğiniz ise sondan bir önceki olduğuna göre Length(Edit1.Text)-1 olacak...

- Bunların ışığında ikinci satırımız...

Kod: Tümünü seç

Edit1.SelStart  := Length(Edit1.Text)-1;

- Seçilecek karakter sayısını ise SetLength ile veriyoruz... Siz 1 karakter istiyorsunuz...

Kod: Tümünü seç

  Edit1.SelLength := 1;

Böylece kodumu şöyle toplandı...

Kod: Tümünü seç

  Edit1.SetFocus;
  Edit1.SelStart  := Length(Edit1.Text)-1;
  Edit1.SelLength := 1;

- Ek olarak belki işinize yarar, seçili text'i değiştirmek için (karakter sayısı ile sınırlı değilsiniz...) SelText kullanıyoruz...

Kod: Tümünü seç

  Edit1.SelText   := 'ARMAN';

Başarılar...

[mrmarman]

@aydin038

- Ben yanlış anladım galiba, nasıl seçerim demiştiniz ? Yani seçili duruma getirmekten bahsetmemiş miydiniz ?

- Yoksa çok basitçe aşağıdaki gibi yapabilirsiniz...

Kod: Tümünü seç

  Edit2.Text := Edit1.Text[Length(Edit1.Text)];

[aydin038]

saol hocam tesekkurler..

ellerinize saglik.. ufak bir sorum daha var peki bu sectigimiz karakteri nasil silebiliriz.

calismalarinizda basarilar..

saygilar..

[mussimsek]

Edit1.Text := Copy(Edit1.Text, 1, Length(Edit1.Text)-1);

son karakteri siler.

Kolay gelsin.

[aydin038]

tekrar tekar tesekkurler..

hocam 1 saattir buna ugrasiyordum.. saolun..


calismalarinizda basarilar....

[mussimsek]

Merhaba,

oluşturduğunuz yöntemi çözmek yerine, ne yapmak istediğinizi yazarsanız, daha kısa sürede ve daha net yanıtlar alabilirsiniz.

Kolay gelsin.

[aydin038]

merhabalar..

ilginize tesekkur ederim.. verdiginiz kod isime yaradi bir iki kod daha ekleyince problem cozuldu..


kolay gelsin.. iyi calismalar..