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中。

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;