OPF.OID

var Inv: TInvoices;
I1, I2, I3: IItem;
begin

Inv := TInvoice.Create;

I1 := Inv.Items[3]; (OID: 3005)

I2 := Inv.Items[4]; (OID: 3008)
I2.Qty := 30;
( - Search Index of I2.OID, Index = 3
- Dataset.RecNo := 3,
DataSet.Findfield('qty').value := 30)

Inv.Items.Remove(3);
i := I2.Qty; (must be 30)

[ if IItem.OID <> Items.currentItem.OID then
raise Exception.Create('Coding got problem'); ]


// Swaping
I1 := Inv.Items[3];
I2 := Inv.Items[4000];

s := I1.Seq;
I1.Seq := I2.Seq;
I2.Seq := s;
end;


Items.PropStore.Remove(3);

Dataset.RecNo := 3;
DataSet.Delete;

Grid.DataController.Delete(3);


1. 3000
2. 3005
3. 3008
4. 3006
5. 3002
6. 3004
7. 3007
8. 3001
9. 3009