Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Sayı hatalı ise
#1
Merhaba, hayırlı ramazanlar.

Edit içine girilen sayı float formatında değilse yani para formatına uymuyorsa (250.000) gibi, kullanıcıya uyarı vermek istiyorum acaba bunu nasıl sağlarım?




procedure TForm4.Edit1Exit(Sender: TObject);
begin
  if StrToFloatDef(Edit1.Text, 0) = StrToFloat('0') then
  begin
    Showmessage('hatalı sayı girdiniz');
  end;
end;
Hayat bazen güzel olabiliyor.
Cevapla
#2
(19-06-2017, Saat: 20:31)Dostk Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlMerhaba, hayırlı ramazanlar.

Edit içine girilen sayı float formatında değilse yani para formatına uymuyorsa (250.000) gibi, kullanıcıya uyarı vermek istiyorum acaba bunu nasıl sağlarım?




procedure TForm4.Edit1Exit(Sender: TObject);
begin
  if StrToFloatDef(Edit1.Text, 0) = StrToFloat('0') then
  begin
    Showmessage('hatalı sayı girdiniz');
  end;
end;

 
var
Sonuc : Double;
begin
 if not TryStrToFloat('15,25', Sonuc) then
 Caption := 'bu olmaz zorlama gardaş'
  else
   Caption := FloatToStr(Sonuc) + ' : bana bunlarla gel';
end;
Amatör Küme Bilgisayar Programcısı
WWW
Cevapla
#3
Teşekkür ederim.
Hayat bazen güzel olabiliyor.
Cevapla
#4
(19-06-2017, Saat: 20:31)Dostk Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlMerhaba, hayırlı ramazanlar.

Edit içine girilen sayı float formatında değilse yani para formatına uymuyorsa (250.000) gibi, kullanıcıya uyarı vermek istiyorum acaba bunu nasıl sağlarım?




procedure TForm4.Edit1Exit(Sender: TObject);
begin
  if StrToFloatDef(Edit1.Text, 0) = StrToFloat('0') then
  begin
    Showmessage('hatalı sayı girdiniz');
  end;
end;

if StrToFloatDef(Edit1.Text, 0) = StrToFloat('0') then

Yukarıdaki karşılaştırma tarzının anlamı nedir ! StrToFloatDef/StrToFloat Extended veri türü döndürürler.

if StrToFloatDef(Edit1.Text, 0.0) = 0.0 then

biçiminde olsa daha manidar olmaz mı !
Mal sahibi, mülk sahibi
Hani bunun ilk sahibi ?
Mal da yalan mülk de yalan
Var biraz da sen oyalan...
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Benzersiz sayı üretimi Randomize Lord_Ares 22 883 15-01-2018, Saat: 03:51
Son Yorum: masteryoda
  Butona Basıldığında Veritabanından Sayı Azaltma Mericx 2 493 13-01-2017, Saat: 13:13
Son Yorum: DelphiCan
  Sayı Eşleştirme Oyunu Fesih ARSLAN 0 1.533 25-07-2016, Saat: 21:47
Son Yorum: Fesih ARSLAN



Konuyu Okuyanlar: 1 Ziyaretçi