TUpdateRecordTypes is not recognized, and thsee too: rtDeleted, rtModified, rtInserted
could you please tell me which are the new equivalents?
Thank you.
THe code where i am using this is the following (i made //* comments where i use it)
(refer to procedure TMSSavePoint.StoreCurrentData)
Code: Select all
type
TMSSavePoint = class(TComponent)
private
FMemDataSet: TMemDataSet;
FvtDeleted: TVirtualTable;
FvtUpdatedAppended: TVirtualTable;
[...]
end;
implementation
constructor TMSSavePoint.Create(aMemDataSet: TMemDataSet);
begin
FMemDataSet := aMemDataSet;
FvtDeleted := TVirtualTable.Create(Self);
FvtUpdatedAppended := TVirtualTable.Create(Self);
end;
procedure TMSSavePoint.StoreCurrentData;
var
oldUpdateRecordTypes: TUpdateRecordTypes; //*
begin
//savepoint using two TVirtualTable
oldUpdateRecordTypes := FMemDataSet.UpdateRecordTypes;
FMemDataSet.UpdateRecordTypes := [rtDeleted]; //*
FvtDeleted.Assign(FMemDataSet);
FMemDataSet.UpdateRecordTypes := [rtModified, rtInserted]; //*
FvtUpdatedAppended.Assign(FMemDataSet);
FMemDataSet.UpdateRecordTypes := oldUpdateRecordTypes;
end;