Çıkarma işleminde hata alıyorum

[huseyin91]

Arkadaşlar veritanından gelen bir sayıdan , veritabanıyla ilgisi olmayan bir sayıyı çıkarıp yerine yazacağım ama sonuç olarak çok değişik bir cevap geliyor.Kodlar burda yardım edebilirmisiniz.

procedure TForm1.BitBtn5Click(Sender: TObject);
var
fark:Integer;
begin

SORGU.Edit;
SORGU.FieldByName('Kul_maks_izin').AsInteger:=fark;
SORGU.FieldByName('Kul_maks_izin').AsInteger:=fark-StrToInt(Edit1.Text);

[abdulkadir]

Arkadaşlar veritanından gelen bir sayıdan , veritabanıyla ilgisi olmayan bir sayıyı çıkarıp yerine yazacağım ama sonuç olarak çok değişik bir cevap geliyor.Kodlar burda yardım edebilirmisiniz.

Kod: Tümünü seç

procedure TForm1.BitBtn5Click(Sender: TObject);
var
fark:Integer;
begin
// fark a atama yapılmamış bir atama yapmanız lazım.
   SORGU.Edit;
   fark:=SORGU.FieldByName('Kul_maks_izin').AsInteger;

   SORGU.FieldByName('Kul_maks_izin').AsInteger:=fark  - StrToInt(Edit1.Text);
   SORGU.post;
end;