delphi - 排序的 TStringList 错误 - 排序列表上不允许进行操作

Question

我收到以下错误 - “排序列表上不允许操作”

Idx:= Customers.IndexOfName(ListView1.Selected.Caption);
Customers[idx]:= Edit1.Text + '=' + Edit2.Text + ',' + Edit3.Text //error occurs here 

有什么办法可以解决这个问题吗？除了编写自己的例程来获取索引值

谢谢

Answer 1

编写自己的例程来获取索引值显然没有帮助，因为这不是问题所在。不允许您直接修改排序列表的元素，因为这样做可能会使排序顺序无效。

从列表中删除该项目并插入新项目。

Customers.Delete(idx);
Customers.Add(Edit1.Text + '=' + Edit2.Text + ',' + Edit3.Text);

或者，设置Sorted := False。