میتونید از یه کوئری در یک حلقه استفاده نمایید و چک کنید که اگه مقدار صفره صفر رو نمایش بده در غیر اینصورت مقدار 1 . ولی به نظر من این کار شما صحیح نیست .شما میتونید یه فیلد از نوع منطقی (Boolean) در جدول بسازید و زمانی که کاربر مقدار رو برای فیلد عددی شما وارد میکنه چک کنه که اگه صفره مقدار صفر در غیر اینصورت مقدار 1 رو برگردونه . به هر حال من کد روش اول رو برای شما مینویسم
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to ADOTable1.RecordCount do
begin
ADOTable1.Edit;
if ADOTable1id.AsInteger=0 then
ADOTable1my_number.AsInteger:=0
else
ADOTable1my_number.AsInteger:=1;
ADOTable1.Next;
end;
end;
موفق باشید