Tüm Platformlar için Hızlı Uygulama Geliştirme --->    Kitabımız...      Delphi

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Sayıyı paraya çevirme
#1
Merhaba, 

Kullanıcı edite 150000 sayı girdiğinde editen çıktığında 150.000,00 ₺ olarak para formatına dönüştürüyorum, fatak editen çıktığında değilde ChangeTracking sırasında noktayı otomatik olarak nasıl ekleye bilirim? sürekli hatalar alıyorum.
Örnek: 150.000 olacak sonuna  ₺  işareti de gelmeyecek.



procedure TForm1.xFiyatExit(Sender: TObject);
var
  Money: Currency;
begin
  if xFiyat.Text.length > 3 then
  begin
    Money := StrToFloat(xFiyat.Text);
   xFiyat.Text := FloatToStrF(Money, ffCurrency, 6, 2);
  end;
end;
Cevapla

Konuyu Paylaş : facebook gplus twitter



Bu Konudaki Yorumlar
Sayıyı paraya çevirme - Yazar: dilo - 13-02-2018, Saat: 15:18
Sayıyı paraya çevirme - Yazar: malitutuncu - 15-02-2018, Saat: 09:24
Sayıyı paraya çevirme - Yazar: rmzgenius - 15-02-2018, Saat: 10:24
Cvp: Sayıyı paraya çevirme - Yazar: cinarbil - 15-02-2018, Saat: 12:48

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Sayfa Çevirme Efekti delphi-x 1 371 17-01-2017, Saat: 08:11
Son Yorum: Fesih ARSLAN



Konuyu Okuyanlar: 1 Ziyaretçi