论坛 › Delphi交流 › delphi重复的只留下一个要怎么做？

823600568 发表于 2020-5-5 14:54:34

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

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

老八秘制 发表于 2020-5-5 14:57:04

猜   谜   游   戏

823600568 发表于 2020-5-5 15:02:07

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

啥意思

永恒的蓝色梦想 发表于 2020-5-5 15:08:38

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

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

823600568 发表于 2020-5-5 15:10:47

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

emm 你懂吗 能大概讲一下吗

永恒的蓝色梦想 发表于 2020-5-5 15:12:02

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

我不会delphi

823600568 发表于 2020-5-5 15:14:45

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

emm 谢谢，打扰了

823600568 发表于 2020-5-5 17:46:33

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';
fori:=0 to length(m)-1 do
begin
    ifpos('/',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 发表于 2020-5-5 19:58:54

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
fori:=0 to length(m)-1 do
begin
    ifpos('/',m)>0 then
    begin
      a:=copy(m,1,pos('/',m)-1);
      for j:=0to ListBox1.Items.Count-1 do
      begin
      if a=ListBox1.Items.Strings 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写出来了

查看完整版本: delphi重复的只留下一个要怎么做？