بالاستطاعة تعديل الكود
كود :
table1.DisableControls;
try
table1.First;
while not table1.eof do
begin
table1.Edit
if table1.FieldByName('check').AsBoolean=true then
table1.FieldByName('name').AsString:='done
table1.Post
table1.Next
end
Finally
table1.EnableControls;
end;

![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)