每条纪录有个序号，序号有一定层次性，如3.2.1(或4.3,最多3层),既有三个层次数据或两层或一层。要求实现下述功能：如下数据 3.2.1 .... 3.2.2 .... 3.2.3 .... 3.2.4 .... 3.2.5 .... 当删除某条纪录时，其序号自动跟上。如删除3.2.3后,其下一条纪录（3.2.4）的序号变为3.2.3。 Try my best!

------
Try my best!

1. Assign a weight to sequence number Assume the max number of digits for all layers is 2 (can be 1,3,...,n) '3.2.1' -> '03.02.01' '3.2.13' -> '03.02.13' '3.10.7' -> '03.10.07' '4.3' -> '04.03.00' '2' -> '02.00.00' 2. Load records into TStringList and sort lst.AddObject(SeqWeight(rec.Seq), rec); lst.Sort; 3. Delete record 'x.y.z' weight := SeqWeight('x.y.z); if lst.Find(weight, i) then begin for k := lst.Count-1 downto i 1 do TRecord(lst.Objects[k]).Seq := TRecord(lst.Objects[k-1]).Seq; TRecord(lst.Objects[i]).Free; lst.Delete(i); end; 4. To do it in database, just add a temp field 'weight' to the affected table. Load records with TTable or TADOTable, sort them by weight, then go through step 3.