TStringList.Sort可以返回排序后的索引吗？

Question

使用TStringList.Sort在free pascal中对字符串集合进行排序，我需要记住初始顺序。有没有可能返回排序后的索引？ 如果不是，这怎么能有效地完成？

Answer 1

您可以使用object属性来存储该项目的原始索引。

所以，你可以用这种方式

SL.AddObject('Item 1', TObject(SL.Count)); 
SL.AddObject('Item 2', TObject(SL.Count)); 

插入您的项目，并恢复原始索引后的排序TStringList中

Index := Integer(SL.Objects[i]); 

Answer 2

有点晚，但由于字符串上写副本，你可以只需将tstringlist分配给第二个tstringlist使用

t2.assign(t1); 

这不会重复s trings。由于写入行为的副本，tstringlist就像字符串的索引。