Edit'e kısıtlama getirmek istiyorum

hich1shey · Mesaj gönderen **hich1shey** » 31 Tem 2005 02:55

Edit'e kısıtlama getirmek istiyorum;

sadece 1 adet virgül(,) yazılabilsin ve binlik ayıracı kullanmak istiyorum
123,45,678 //bunu engellemek ve
123.456,78 //bunu sağlamak istiyorum

yardımlarınız için şimdiden teşekkür ederim..

hich1shey · Mesaj gönderen **hich1shey** » 31 Tem 2005 04:37

10 kişi okudu ve neden kimse cevap yazmadı?
Forumda aradım, bulamadım,
bunu yapmak imkansız mı?

Mesaj gönderen **ender_arslanturk** » 31 Tem 2005 04:47

Merhaba

Husoedit diye aratmalısın.

Saygılarımla,

Mesaj gönderen **fahrettin** » 31 Tem 2005 05:05

Sayın hich1shey ,
oncelikle aramıza hoşgeldiniz....

Forum kurallarını okudugunuz anlasılıyor.... Fakat bir kural olarak yazmasa bile mesajınız uzerinden 2 saat geçmeden sorunuzu okuyanlardan neden cevap yazmıyorlar diye hesap soramazsınız....
Belki 100 kişi de okuyabilirdi.... Her okuyanın probleminizin cevabını bildiginden emin olamazsınız degil mi?
Ki bir de bu gun pazar yani forumun en az ziyaret edildiği gün.....

Bu soru hakkında başka bir soru altına attıgınız mesajı sildim....

Kolaygelsin....

hich1shey · Mesaj gönderen **hich1shey** » 31 Tem 2005 05:20

anlayışınıza teşekkür ederim hocam,
delphi konusunda kendimi hich1shey hissediyorum
1aydır çalışıyorum (sadece meraktan) ve öğrenmeye zorunlu hissediyorum ve sanırım bu site merakımı giderecek

Husoedit'i ekledim.
ama benim istediğim edit'e virgül sadece 1 kez yazılsın yani 123,4567 rakamının sonuna bir virgül daha koyulamasın...

bu mümkünmüdür? Teşekkürler...

Kaptan · Mesaj gönderen **Kaptan** » 31 Tem 2005 06:09

boolean bir değişken tanımlayıp edite girilen değer eğer virgul ise bunu true yaparsın.daha sonra tekrar girmek istediklerinde virgülü girdirmezsin...
bu gibi bir mantıkla olabilir.

Mesaj gönderen **t-hex** » 31 Tem 2005 07:10

Bunu OnKeyPress olayında kontrol edebilirsiniz.

Kod: Tümünü seç

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (pos(',',TEdit(Sender).Text)>0) and (Key=',') then Key := #0;
end;

Mesaj gönderen **ender_arslanturk** » 31 Tem 2005 07:22

Merhaba

kod yazmaya gerek bile yok , sağolsun hüseyin abinin bu komponenti otomatik olarak ayarlıyor.

Saygılar,

hich1shey · Mesaj gönderen **hich1shey** » 31 Tem 2005 07:38

Çok teşekkür ederim arkadaşlar...