editin içine virgüllü sayı yazma?

[true_false]

merhabalar;
db gridim var tl cinsinden sayılar giriyorum yani bol sıfırlı(gerçi 2005 den sonra bi anlamı kalmıcak ama bana şu an lazım)
kısaca sayıları sağdan üçerli bölmelere ayıracak.
araya virgülmü olur noktamı olur hiç farketmez

not şimdiden vermiş olduğunuz güzel cevaplar için teşekkür ederim

[Misafir]

rx in güzel bi calcedit bileşeni var. işini görür ve hiç uğraşmazsın. kodla da yapılabilir. illa ki form da da mevzu olmuştur sanırım bi arattrı istersen.

kolay gelsin

[selman]

Kolay gelsin
editte bindelik diye aratırdsan bulabilirsin

[naile]

viewtopic.php?t=4159&highlight=virg%FCl

[aslangeri]

S.A.
ilgili alanaın display formatına

Kod: Tümünü seç

#,##.##

yazarsan hem sayıları virgüllü yazar hemde kuruşları gösterir.
Kolay gelsin.

[true_false]

sevgili aslan ben aslında sorunumu tam olarak ifade edemedim
label içerisine yazdırdığım zaman bir sorun yok

Kod: Tümünü seç

  begin
              x := (StrToFloat(gider.Text))+(StrToFloat(iscilik.Text));
              Label1.Caption:= ('Toplam Giderler= '+ FormatFloat('#,##.##',x)+' TL');
              y :=  (  (x* (StrToFloat(DBComboBox1.Text))) /100  );
              z :=x+y;
              DBEdit6.Text   := FloatToStr(z);
              Label8.Caption := ('Kazanç Oranı= '+FormatFloat('#,##.##',y)+' TL');
              Label9.Caption := ('Satış Fiatı = '+FormatFloat('#,##.##',z)+' TL');
              end;

olarak zaten yazdım ama bunu sayıları girdiğim edite aktarmam lazım işte burda sorun yaşıyorum editin changesine yazdığım kodlarda sorun çıkıyo
sonuç olarak editn içerisine sayı girmeye başladığım anda bana virgüllü(yada noktal) olarak para girişinde kolaylık yaşatacak bir kod lazım

editin change sine

Kod: Tümünü seç

gider.Text := FormatFloat('#,',StrToFloat(gider.Text));

yazdım bana

"5.222 is not valid floating point value

hatasını verdi

hepinize teşekkür ederim.

[aslangeri]

S.A.
Hüsoedit in kodlarını bi incele istersen.
onchange sinde önce eski noktarları silmen sonrada yeni noktarları eklemen lazım.
Kolay gelsin.

[true_false]

hüsonet abimizin yazdığı kodu uyarladım programa monte ettim
fakat sorun hala aynı editte noktalı olarak ayırıyo fakat editin çıkışında

'1.250.000' is not valid floating point value for field 'MAL_KAZANC_GIDERLER

hatasını veriyor ilgili field'ımın tipi DOUBLE PRECISION noktaları virgül yaptım ama hala aynı sorun

[gkimirti]

double precision da tek virgul olacak 123,3445 gibi

[true_false]

hocam sadece görünüşte virgüllü ama database yazarken virgülsüz yazıyor sorun o değil

[aslangeri]

Edit normal editmi dbeditmi bide
editin onexit inda bi kod yazıyormu?
birde editteki değeri vt ye aktarırken nokta(veya virgül) leri silip öyle aktarmayı dene.

[true_false]

edit db edit on exiti boş noktalı ve virgüllü her türlü aktarım yapılamıyor
ve erişime izin vermiyor(virgüller veya noktalar silinmiyor)

aktarımda bir sorun yok gibi showmessage ile baktım rakamları her girdiğimde editte virgüllü fakat datada normal yazıyor (istediğimde bu zaten) interbase de datalara baktığımda fieldlarda kendisi otomatik olarak virgül ayracı koyuyor programda yapıyorum dbeditten çıkışta böle bir sorun yapıyor.... label statik editler dinamik olduğu içinmi bu kadar uğraştırdı. anlamış deilim

[aslangeri]

S.A.
dbeditlere bağladığın alanın editformatını ve displayformatını

Kod: Tümünü seç

#,##.##

şeklinde denermisin.
önceden sadece display formatını değiştirmiştirk
Kolay gelsin.

[true_false]

yok hocam artık ben vazgeçtim compenent aramaya başladım üç gündür kafayı sıyırdım.