default source problemi

[Uğur1982]

Evet, string , boş ya da float bir değer varsa yazdığın kod da hata verir...

[Asri]

Merhaba, aşağıdaki kodu yazabilir misiniz?

Kod: Tümünü seç

 if edit3.Text='' then DataModule1.IBDataSet1ALAN.AsInteger:=0
      else

  begin

        try

          DataModule1.IBDataSet1ALAN.AsInteger:=strtoint(edit3.text);
               except
                  on E: EConvertError do 
                      begin
                             ShowMessage('Rakam Girişi Yapılmamış.' );
                             edit3.SetFocus;
                       end;

      end;
   end;

Yanlız bunu exe leştirdiğin dosyada denemen lazım. Veya Tools /Debugger Options/Language Exception sayfasından Stop on Delphi Exception ın onay düğmesini silmen lazım. Yoksa Delphi hata verip programı kırıyor.

Bu kod ile edit3 te hiç bir şey yok ise ilgili alana 0 değerini veriyor. Ama edit3 ün textinde veri var ama sayısal değilse sayısal veri girmeye edit3.setfocus ile zorluyor.

Kolay Gelsin.

__________________
ofenX

[gercek_16]

çok teşekkür ederim gönderdiğiniz kod için eminim çalışacaktır. şimdilik husoeditle problemi aştım. zaman bulduğumda bu koduda test edicem.

[oguzozturk74]

Kusura bakmayın verilen cevapları tam okuyamadım.

Default degerler icin : Delphi tarafında ilgili Dataset in OnAfterInsert inde veya OnNewRecord unda istenilen değeri atamak gerekiyor .