Delphi查找重复字符串，不是指定的字符串，是要把所有的字符串都互相比较看有没有重复的解决办法
Delphi查找重复字符串，不是指定的字符串，是要把所有的字符串都互相比较看有没有重复的
R46,
R47,R48,
R10,R8,R6,
R2,
R9,R7,R5,
R4,
R30,R10,R25,
R3,
R8,R57,
Delphi查找重复字符串，不是指定的字符串，是要把所有的字符串都互相比较看有没有重复的
比如有上面这些数据，是在9行单元中的，换行就表示是另一个单元格里面了，现在就是要实现点一下查找自动就找出所有重复的数据。比如找出其中的R8，R10,不用手动指定要查找的字符串，查找出的字符串用加粗红色显示标注出来。
有没有高手来帮帮忙啊，谢谢了。
------解决方案--------------------
假设，你的这些数据放到Memo1中，下面的结果，把重复的串显示到Memo2中。
R46,
R47,R48,
R10,R8,R6,
R2,
R9,R7,R5,
R4,
R30,R10,R25,
R3,
R8,R57,
Delphi查找重复字符串，不是指定的字符串，是要把所有的字符串都互相比较看有没有重复的
比如有上面这些数据，是在9行单元中的，换行就表示是另一个单元格里面了，现在就是要实现点一下查找自动就找出所有重复的数据。比如找出其中的R8，R10,不用手动指定要查找的字符串，查找出的字符串用加粗红色显示标注出来。
有没有高手来帮帮忙啊，谢谢了。
------解决方案--------------------
假设，你的这些数据放到Memo1中，下面的结果，把重复的串显示到Memo2中。
- Delphi(Pascal) code
procedure TForm1.Button1Click(Sender: TObject);
var
strs:TStringList;
strTemp:string;
i:integer;
begin
strs:=TStringList.Create;
strs.DelimitedText:=Memo1.Lines.Text;
for i:=strs.Count-1 downto 0 do
begin
strTemp:=strs[i];
strs.Delete(i);
if strs.IndexOf(strTemp)>=0 then
Memo2.Lines.Add(strTemp);
end;
strs.Free;
end;