table1.SetKey ;
table1.FieldByName('userid').asstring:=‘123’;
table1.fieldbyname('obj').asstring:=‘qwe’;
if not table1.GotoKey then
begin
table1.Edit;
table1.FieldByName('userid').asstring:=s;
table1.FieldByName('obj').asstring:=str;
table1.Post;
end;