Borç miktarını TL cinsinden gösterme

[akineton]

Nerhaba arkadaşlar yapmış olduğum ticari uygulamada edit de borç miktarını 1200 şeklinde gösteriyorum ben buna 1200,00 TL şeklinde göstermek istiyorum acaba nasıl yaparım.. ??

[orhancc]

Kod: Tümünü seç

  Edit1.Text := Format('%m',[1200.00]);

[akineton]

cevabınız için tşk ederim fakat editin içine tıkladığım zaman .00TL yazısı gidiyor ayrıca editte mesela 5.00 yazıyorsa bu koddan sonra sadece 1.200 tl yazıyor..

[orhancc]

o zaman mask edit kullanacaksın. tabi ki 1200 yazar çünkü ordaki değeri değiştirmen gerekiyor

[akineton]

nasıl yapacaz hocam anlamadım biraz daha açıklarmısınız ? kodu editin mask edit olayına mı yazacaz ??

[orhancc]

Maskedit Componenti var onu kullanabilirsin istersen.

[akineton]

mask edit componenti olmadan yapılmaz mı bu o kadar zor bişey değil ...

[orhancc]

editin içine tıklayınca birşey değişmiyor sen başka bir kod daha yazmış olmayasın. yoksa dbedit mi kullanıyorsun ?

[barutali]

TCurrencyedit adında 3. parti bi bileşen vardı. Onu da kullanabilirsiniz..

Bkz: JVCL, Raize, DevExpress, BussinessSkin gibi paketlerde de mevcut.
Tavsiye: JVCL
Sebep : Beleş

[akineton]

evet dbEdit kullanıyorum..

[conari]

Kod: Tümünü seç

DBEDit.text= CurrToStrF(DBEDit.text,ffCurrency, 2)

onexit
onchange
onkeypress lere yazıver.

[akineton]

conari hocam ilgin için tşk ederim verdiğin koud onChange olayına şu şekild eyaz ım :
DBEDit9.text=CurrToStrF(DBEDit.text,ffCurrency, 2)

ama hata verdi :

[Error] Unit4.pas(224): ':=' expected but '=' found
[Error] Unit4.pas(224): Undeclared identifier: 'DBEDit'
[Error] Unit4.pas(224): 'END' expected but ',' found
[Fatal Error] Project2.dpr(22): Could not compile used unit 'Unit4.pas'

[unicorn64]

"kopyala, yapıştır"dan sonra "kontrol et,gerekirse düzelt" komutunu kullanın
hata mesajında

':=' bekliyordum ama '=' buldum

diyor,

Kod: Tümünü seç

 DBEDit.text:= CurrToStrF(DBEDit.text,ffCurrency, 2);

[conari]

"kopyala, yapıştır"dan sonra "kontrol et,gerekirse düzelt" komutunu kullanın

Bunu imzamamı eklesem acaba

[akineton]

"kopyala, yapıştır"dan sonra "kontrol et,gerekirse düzelt" komutunu kullanın
hata mesajında

':=' bekliyordum ama '=' buldum

diyor,

Kod: Tümünü seç

 DBEDit.text:= CurrToStrF(DBEDit.text,ffCurrency, 2);

nedemek istediğinizi anlayamadım ayrıca en son yazdığınız kodda hata verdi çalışimadı