DBGrid'de seçili alana sayı eklemek

[darrenjones]

Böyle bir şey mümkün mü? Veritabanında StokAdedi olarak belirtilen alan "sayı" olarak kayıtlı.

ADOTable1.FieldByName('StokAdedi').Value:=StrToInt(DBGrid1.SelectedRows.Items[1])+StrToInt(Edit1.Text);

Kodu salladım ama bu mantıkta olacak. (Bu kodda List index out of bounds [1] hatası veriyor zaten)

Bir tane DBGrid bir tane edit1 bir tane de buton olacak. Butona tıkladığımızda edit e girdiğimiz sayıyı dbgridde seçili alanın üzerine ekleyecek. Örn alanın eski değeri 10 ise edit1'e 5 yazarsak seçili alan 15 olacak.

[omurolmez]

Kod: Tümünü seç

var
  ADeger :integer;
begin
  if TryStrToInt(Edit1.Text, ADeger) then begin
    ADOTable1.Edit;
    try
      ADOTable1.FieldByName('StokAdedi').AsInteger := ADOTable1.FieldByName('StokAdedi').AsInteger + ADeger;
      ADOTable1.Post;
    except
      ADOTable1.Cancel;
      raise;
    end;
  end //if
  else begin
    {sayısal olmayan değer};
  end;
end;