Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: BACKSPACE BUTONU OLUSTURMA  (Okunma sayısı 1440 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı myercn

  • Delphi 1 Level 3
  • ***
  • İleti: 23
  • Rep: +0/-0
  • Cinsiyet: Bay
BACKSPACE BUTONU OLUSTURMA
« : 08 Ağustos 2008 19:04:29 »
DELPHI 7 DE YAPTIGIM HESAP MAKINASI PROGRAMINDA BACKSPACE ICIN BUTON KOYDUM BU BUTONA TIKLADIGIMDA HEPSINI DEGIL SADECE EN SONDA GIRDIGIM RAKAMI SILMESINI ISTIYORUM NASIL YAPABILIRIM. TESEKKURLER
Kayıtlı

Çevrimdışı Kocaturk

  • Administrator
  • *****
  • İleti: 2.474
  • Rep: +56/-5
  • Cinsiyet: Bay
    • Delphi Dünyası
Ynt: BACKSPACE BUTONU OLUSTURMA
« Yanıtla #1 : 09 Ağustos 2008 12:54:51 »
Birincisi, mesajlarınızı Büyük harflerle yazmayınız. Gelelim sorunun cevabına şöyle bir şey yapabilirsin(belki daha pratik cevaplarda verilebilir)

Kod:  (Unknown Language)
  1. button_bilmemneClick(sender : tobject); // Backspace button ının OnClick olay işleyicisi
  2. Var
  3.  MyStr: String;
  4.  begin
  5.    MyStr:= Edit1.text;
  6.     if length(MyStr) > 0 then // edit değilse silelim
  7.        Delete(Text,Length(MyStr),1); // MyStr nin her defasında sonuncu karakterini sil
  8.     Edit1.Text := MyStr; // Editin text özelliğine ata
  9. end;

Kayıtlı

triangle

  • Ziyaretçi
Ynt: BACKSPACE BUTONU OLUSTURMA
« Yanıtla #2 : 09 Ağustos 2008 23:40:13 »
uses a strutils ekle
sonrasında
edit1.text:=midstr(edit1.text,1,length(edit1.text)-1); ekle butonun icine ancak sunu söleyim kodu denemedim yani 2 tane falan silerse bilki  midstr 1. karakteri 0 olarak alıyor olabilir o zman 0 dan baslat veya sondaki -1 degeri ile oyna sonuca ulasırsın.
midstr(metin,"x.karakterdenbasla","x tane karakter al");
length(metin)= metinin uzunlugu;

Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »