dbedit alanım string verilerileri içeriyor.Ve bu alana harflerden oluşan değerler(tek bir harf) yada sayılardan oluşan değerler giriliyor veya Null olarak kalıyor.Sayı ve rakmadan oluşan değerler girilmiyor.
Sorum şu
Bu alana Integer bir değer girildiğini nasıl anlayabilirim.
Yapmak istediğim şu
if komutu ile bir sorgulama yaptırmak istiyorum bu alana sayısal değer girilmiş ise şu işlemi yap komutu vereceğim.Eğer string (yani harfden oluşan)bir değer ise başka bir işlem yaptırmak istiyorum.
Kod: Tümünü seç
if IBDataSet1.FieldByName('PZT').AsString='S' then
begin
IBDataSet1.Edit;
IBDataSet1.FieldByName('SEVKPZTTOP').AsInteger:=Form1.Datasetalttop.FieldByName('PZTE').AsInteger+Form1.Datasetalttop.FieldByName('PZTM').AsInteger;
IBDataSet1.FieldByName('INTPZT').AsInteger:=0;
edit1.Text:=Inttostr(strtoInt(edit1.Text)+1);
IBDataSet1.post;
end;
if IBDataSet1.FieldByName('PZT').IsNull then
Begin
IBDataSet1.Edit;
IBDataSet1.FieldByName('INTPZT').AsInteger:=0;
IBDataSet1.post;
end;