可以。
一个for循环,然后SQL语句更新。
cSql:='update 表 set read='+QuotedStr(str[i])+'  where id='+IntToStr(i);