Parasal Giriş Maskedit

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
twistero
Üye
Mesajlar: 25
Kayıt: 06 Ara 2015 01:14

Parasal Giriş Maskedit

Mesaj gönderen twistero »

Merhaba arkadaşlar,
Konuyu doğru yere mi açtım bilemiyorum yanlış ise özür dilerim.

Sadece parasal giriş için maskedite ihtiyacım vardı fakat bulamadım elinde hazır dosyası olan varmı acaba?

Veya başka bir çözüm sunabilecek varmı? 5,00 olarak giricek mesela bunu yazdıktan sonra 5,00 TL olarak gösterecek şekilde..
Kullanıcı avatarı
brs
Üye
Mesajlar: 626
Kayıt: 04 Eki 2012 03:52

Re: Parasal Giriş Maskedit

Mesaj gönderen brs »

5,00 TL olarak nerede göstereceksiniz ?

Örnek: label.caption:= 5,00 +'TL'; gibi
İşi bilen yardım eder, az bilen akıl verir, bilmeyen eleştirir, yapamayan ise çamur atar...
twistero
Üye
Mesajlar: 25
Kayıt: 06 Ara 2015 01:14

Re: Parasal Giriş Maskedit

Mesaj gönderen twistero »

brs yazdı:5,00 TL olarak nerede göstereceksiniz ?

Örnek: label.caption:= 5,00 +'TL'; gibi
hocam bunu yapabildimde ihtiyacım şuan sadece rakamsal giriş ve kuruş için virgül işareti koyulacak bir edit alanı [ ekstrası olarakda 1000 tl yi 1.000 yapacak şekilde(bu özellik olmasada olur ) ]
Kullanıcı avatarı
brs
Üye
Mesajlar: 626
Kayıt: 04 Eki 2012 03:52

Re: Parasal Giriş Maskedit

Mesaj gönderen brs »

Sizi doğrumu anladım bilemiyorum.

Kod: Tümünü seç

procedure TForm2.Button1Click(Sender: TObject);
begin
Edit1.Text := FormatFloat('##,####', StrtoFloat(Edit1.Text));
end;
İşi bilen yardım eder, az bilen akıl verir, bilmeyen eleştirir, yapamayan ise çamur atar...
twistero
Üye
Mesajlar: 25
Kayıt: 06 Ara 2015 01:14

Re: Parasal Giriş Maskedit

Mesaj gönderen twistero »

brs yazdı:Sizi doğrumu anladım bilemiyorum.

Kod: Tümünü seç

procedure TForm2.Button1Click(Sender: TObject);
begin
Edit1.Text := FormatFloat('##,####', StrtoFloat(Edit1.Text));
end;
Tam olarak bU değildi ama yazdığınız çok işime yaradı teşekkürler.
Kullanıcı avatarı
brs
Üye
Mesajlar: 626
Kayıt: 04 Eki 2012 03:52

Re: Parasal Giriş Maskedit

Mesaj gönderen brs »

Güle güle kullan...
İşi bilen yardım eder, az bilen akıl verir, bilmeyen eleştirir, yapamayan ise çamur atar...
Cevapla