Tüm Platformlar için Hızlı Uygulama Geliştirme Kitap Yayın Süreci
Kitap gözden geçirilmek üzere BTG (Bilgi ve Teknoloji Grubu) 'na gönderildi. 05.10.2018-14:10
BTG (Bilgi ve Teknoloji Grubu) tarafından iki sayfalık bir reklam tasarımı bekleniyor. 08.10.2018 - 15:30
Kitap basım talebi değerlendirilmek üzere matbaaya bildirildi. Matbaadan basım süreci hakkında bilgi bekleniyor. 15.10.2018 - 15:34
Kitap 1.000 adet basım talebi ile matbaaya gönderildi. 16.10.2018 - 16:50

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 1/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Para kontrolü
#1
Selam; Kullanıcı dostu function akılı para kontrolü yaptırmak istiyorum fakat bir noktadan sonra takıldım kaldım.
Kullanıcı edite 1 yazdığında otomatik olarak 1.000 oluyor buraya kadar sorun yok, fakat küsuratlı bir sayı girildiğinde 1.50 gibi 150,000 oluyor bu kontrolü nasıl sağlaya bilirim?



function TForm2.ParaKontrol(StrPara: String): String;
var
  Para: Currency;
begin
  Para := StrToCurr(StrPara);
  if Length(StrPara) = 1 then
  begin
    StrPara := FloatToStrF(Para, ffCurrency, 6, 3);
  end;
  if Length(StrPara) = 2 then
  begin
    StrPara := FloatToStrF(Para, ffCurrency, 6, 3);
  end;
  if Length(StrPara) = 3 then
  begin
    StrPara := FloatToStrF(Para, ffCurrency, 8, 3);
  end;
  if Length(StrPara) = 4 then
  begin
    StrPara := FloatToStrF(Para, ffCurrency, 10, 3);
  end;
  Result := StrPara;
end;

procedure TForm2.EditAlisExit(Sender: TObject);
begin
  EditAlis.Text := ParaKontrol(EditAlis.Text);
end;
Cevapla
#2
FMX hiç kullanmadım ama formatfloat fonksiyonu çalışmıyormu bu merette ? sonuçta exit olayına yazıyorsunuz kodu.
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Mobil platformlarda (Android, iOS) internet bağlantısı kontrolü yapmak Fesih ARSLAN 9 2.597 03-10-2018, Saat: 16:53
Son Yorum: can1963
  Küçük ondalıklı sayıların kontrolü engerex 2 1.185 08-11-2016, Saat: 16:11
Son Yorum: engerex



Konuyu Okuyanlar: 1 Ziyaretçi