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 8 2.099 06-07-2017, Saat: 13:22
Son Yorum: Abdullah ILGAZ
  Küçük ondalıklı sayıların kontrolü engerex 2 995 08-11-2016, Saat: 16:11
Son Yorum: engerex



Konuyu Okuyanlar: 1 Ziyaretçi