Question

delphi listbox 如何快速删除重复？

Answer 1

可以将ListBox的Sorted属性设置为True,进行排序
然后一个循环就可以解决
for i := ListBox1.Items.Count - 1 downto 1 do
begin
if ListBox1.Items[i] = ListBox1.Items[i-1] then
ListBox1.Items.Delete(i);
end;

Answer 2

with data_m.ADO_aaa do
begin
close;
sql.Clear;
sql.add('delete from aaa where ddd=''dd''');
execsql;
end;
单引号在编译的时候 如果是一个的话 编译器认为他是字符串开始从字符单引号之后的那个字符开始才是字符串的内容；

Answer 3

使用For循环对比数据

Answer 4

见楼上

排序后去重最快

Answer 5

这个回答，太简单了吧，但是满足需求吗？