Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Edit otomatik tamamlama
#1
Merhaba;


Yaklaşık 10 tedit kullanıyorum edit içine tarih girince otomatik olarak (.) eklenmesini istiyorum.
İşlemi function kullanarak çözmek istiyorum, Fakat (.) hep en sonda kalıyor Örnek: 02 yazdığımda noktayı koyuyor fakat edite tekrar sayı girdiğimde nokta yine sonda kalıyor. bu durumu nasıl çözerim?



procedure TForm1.EditTarihChangeTracking(Sender: TObject);
begin
  if EditTarih.Text.Length > 0 then
    EditTarih.Text := TarihCreate(EditTarih.Text);
end;


function TForm1.TarihCreate(TarihString: String): String;
var
  Test: String;
begin
  Result := TarihString;
  I := Result.Length;
  begin
    if I = 2 then
    begin
      Test := Result;
      Result := '';
      Result := Test + ':';
    end;
  end;
end;
Cevapla


Bu Konudaki Yorumlar
Edit otomatik tamamlama - Yazar: ahmetb - 13-04-2019, Saat: 19:10
Cvp: Edit otomatik tamamlama - Yazar: narkotik - 13-04-2019, Saat: 19:59
Edit otomatik tamamlama - Yazar: ahmetb - 13-04-2019, Saat: 21:23
Edit otomatik tamamlama - Yazar: mcuyan - 14-04-2019, Saat: 18:05
Cvp: Edit otomatik tamamlama - Yazar: ahmetb - 14-04-2019, Saat: 18:38

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Firemonkey edit ve memo da @ karakteri beklentili 9 1.175 28-08-2019, Saat: 16:51
Son Yorum: seydigozegir@gmail.com
  Klavye otomatik tamamlama özelliğini kapatma seydigozegir@gmail.com 2 101 28-08-2019, Saat: 16:26
Son Yorum: seydigozegir@gmail.com
  android edit bileşeninde barcod okutma sonrası için cinarbil 2 216 27-07-2019, Saat: 09:24
Son Yorum: cinarbil
  Mysql db'ye kayıt listviewde otomatik görme ahmetb 6 314 26-07-2019, Saat: 15:53
Son Yorum: ahmetb
  Otomatik açılan/kapanan toolbar cemakkus 3 420 06-03-2019, Saat: 08:43
Son Yorum: cemakkus



Konuyu Okuyanlar: 1 Ziyaretçi