如是ADO 用Modified是不能的。
function ThfADODataSet.RequireSave（ADataSet:TADODataSet）：Boolean;
var
PendCount, ConflictCount: Integer;
OldFilter: OLEVariant;
begin
Result:=false;
PendCount:=0;
ConflictCount:=0;
with ADataSet do
if Active then
begin
OldFilter:=Recordset.Filter;
try
CheckBrowseMode;
Recordset.Filter:=TOleEnum(adFilterPendingRecords);
PendCount:=Recordset.RecordCount;
Recordset.Filter:=TOleEnum(adFilterConflictingRecords);
ConflictCount:=Recordset.RecordCount;
finally
Result:=(PendCount + ConflictCount) > 0;
Recordset.Filter:=OldFilter;
end;
end;
end;
