Hi.
My application follows an briefcase model.
The users often get this error “String list does not allow duplicates”
I have created an small test project that reproduce this issue.
Run the project and click on the “Trig error” button.
class procedure TDAFileBriefcase.InternalLoadTable(const aTable: TDADataTable;
const aStreamer: TDABin2DataStreamer);
var
i: integer;
begin
aStreamer.ReadDataset(aTable.LogicalName, aTable, True, True);
if aStreamer.FindDeltaIndex(aTable.LogicalName) <> -1 then aStreamer.ReadDelta(aTable);
if aTable.HasDelta then
For i:= 0 to aTable.Delta.Count-1 do
if aTable.CurrRecId <= aTable.Delta.Changes[i].RecID then
aTable.CurrRecId := aTable.Delta.Changes[i].RecID+1;
end;