Edite Sayı Sınırı Koyma

[kaan_karabey]

Arkadaşlar ben vize notu ortalamasını alan programcık hazırladım bir programın içine koyacam bu hazırladığım programı edite sadece 3 haneye kadar sayı girmeyi yaptım ve harf girişlerini vb. devre dışı bırakarak beep sesi ile kullanıcıyı uyardım yapamadığım tek birşey kaldı editin içine en fazla 0-100 arasında sayı girmeye izin vermek istiyorum bunu nasıl yapabilirim????

[esistem]

Diğer kontrolleri yaptığınız olaya

Kod: Tümünü seç

if strtoint(edit1.text)>100 then showmessage('100 den büyük rakam girilemez');
if strtoint(edit1.text)<0 then showmessage('0 dan küçük rakam girilemez');
Edit1.SetFocus;

yazabilirsiniz.

[kaan_karabey]

Diğer kontrolleri yaptığınız olaya

Kod: Tümünü seç

if strtoint(edit1.text)>100 then showmessage('100 den büyük rakam girilemez');
if strtoint(edit1.text)<0 then showmessage('0 dan küçük rakam girilemez');
Edit1.SetFocus;

yazabilirsiniz.

yaptığımda temizle butonuna bastığımda hata veriyor????

[esistem]

temizlediğinizde edit1.text in içeriğini boşaltıyorsunuz o yüzden hata verir zira orada olan veriyi rakama dönüştürmeye çalışıyor, kodu şu şekilde düzeltin,

Kod: Tümünü seç

if StrToIntDef(edit1.text,0)>100 then showmessage('100 den büyük rakam girilemez');
if StrToIntDef(edit1.text,0)<0 then showmessage('0 dan küçük rakam girilemez');
Edit1.SetFocus;

[SimaWB]

Kod: Tümünü seç

uses 
  Math;

var 
  sonuc: boolean;

procedure TForm1.Edit1Change(Sender: TObject);
var
  i: integer;
begin
  sonuc := TryStrToInt(Edit1.Text, i) and InRange(i, 0, 100);
  // Edit1'e girilen değer 0 ile 100 arasında ise sonuç True, değilse False olur
end;