function DataIsModified(CurrentDataSet:TadoTable):Boolean; //當前記錄數據是否被更改
var
x:Shortint;
begin
With CurrentDataSet do
begin
For x:=0 to CurrentDataSet.FieldCount - 1 do
begin
if 條件語句成立表示有改變
Result:=True;
Exit; //退出循環
end;
end;
end;
Result:=False; //沒有改變
End;