征求快速算法

Question

to colacoca
0A这个方法我做过,速度可以,但使用excel的数据透视表更快,我不知道其中的算法如何实现

Answer 1

你说的StringList是不是TListBox?procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
  i:=0;
  ListBox1.Sorted:=True;
  while not (i=ListBox1.Items.Count) do
  begin
    Try
      while ListBox1.Items[i]=ListBox1.Items[i+1] do
        ListBox1.Items.Delete(i+1);
    except
    end;
    i:=i+1;
  end;
end;

Answer 2

哈哈，不好意思
原来是TStringList啊