Delphi查找重复字符串，不是指定的字符串，是要把所有的字符串都互相比较看有没有重复的

Question

R46,
R47,R48,
R10,R8,R6,
R2,
R9,R7,R5,
R4,
R30,R10,R25,
R3,
R8,R57,Delphi查找重复字符串，不是指定的字符串，是要把所有的字符串都互相比较看有没有重复的
比如有上面这些数据，是在9行单元中的，换行就表示是另一个单元格里面了，现在就是要实现点一下查找自动就找出所有重复的数据。比如找出其中的R8，R10,不用手动指定要查找的字符串，查找出的字符串用加粗红色显示标注出来。有没有高手来帮帮忙啊，谢谢了。

Answer 1

唉，这年头，CSDN水平高升了不少，一般问题我都看不懂了

Answer 2

假设，你的这些数据放到Memo1中，下面的结果，把重复的串显示到Memo2中。
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;