delphi重复的只留下一个要怎么做？

823600568

edit1里面是D-2/D-2/D-2/A-1/A-1/A-1，
我如何做才能点击让edit2里面只显示D-2/A-1。

老八秘制

猜     谜     游     戏

823600568

老八秘制 发表于 2020-5-5 14:57
猜     谜     游     戏

啥意思

永恒的蓝色梦想

823600568 发表于 2020-5-5 15:02
啥意思

他根本就不知道你问的什么

823600568

永恒的蓝色梦想 发表于 2020-5-5 15:08
他根本就不知道你问的什么

emm 你懂吗 能大概讲一下吗

永恒的蓝色梦想

823600568 发表于 2020-5-5 15:10
emm 你懂吗 能大概讲一下吗

我不会delphi

823600568

永恒的蓝色梦想 发表于 2020-5-5 15:12
我不会delphi

emm 谢谢，打扰了

823600568

procedure TForm1.Button1Click(Sender: TObject);
var m,s,a:string;
    i:integer;
begin
  m:='D-2/D-2/D-2/A-1/A-1/A-1';
  for  i:=0 to length(m)-1 do
  begin
    if  pos('/',m)>0 then
    begin
      a:=copy(m,1,pos('/',m)-1);
      ListBox1.Items.Add(a);
      m:=copy(m,pos('/',m)+1,length(m));

    end;



  end;
  ListBox1.Items.Add(m);



end;

我这样做完要怎么才能把重复的只留下一个啊大佬们有知道的吗？

823600568

var m,s,a:string;
    i,j:integer;
    flag:Boolean;
begin
  m:='D-2/D-2/D-2/A-1/A-1/A-1';
//  bcdebcfghk
  for  i:=0 to length(m)-1 do
  begin
    if  pos('/',m)>0 then
    begin
      a:=copy(m,1,pos('/',m)-1);
      for j:=0  to ListBox1.Items.Count-1 do
      begin
        if a=ListBox1.Items.Strings[j] then
        begin
          flag:=true;
        end;
      end;
      if flag=false then
      ListBox1.Items.Add(a);
      m:=copy(m,pos('/',m)+1,length(m));
    end;
  end;
  ListBox1.Items.Add(m);
  Edit1.Text:=s;
end;
emm  写出来了