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: 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 1.382 15-01-2018, Saat: 03:51
Son Yorum: masteryoda
  Butona Basıldığında Veritabanından Sayı Azaltma Mericx 2 656 13-01-2017, Saat: 13:13
Son Yorum: DelphiCan



Konuyu Okuyanlar: 1 Ziyaretçi