求算法，关于删除文本中重复的数据，在线等

Question

有个文本文件是：*adaptive variation
适应性变异
*adaptogenesis
[E7dAptE5dVenisis]
适应性状发生
*adaptogenesis
[E7dAptE5dVenisis]
适应性状发生
*adaptometer
[7AdAp5tCmitE]
适应测量仪
*adaptor
[E5dAptE(r)]
n.
<美>编剧者, 改编者
*adaptor hypothesis
连接物假说
*adaptor hypothesis
连接物假说
*ADAPTS
=Analogue-Digital-Analogue Process and Test System 模拟-数字-模拟处理与测试系统
*adar
[B:5dB:]
亚达月, (犹太历)六月Adar
[`eIdB:(r),B:`dB:(r)]
n.
(历法)阿达尔月(即犹太教历12月,犹太国历6月,在公历2、3月间,共29或30天)
*Adar
[`eIdB:(r),B:`dB:(r)]
n.
(历法)阿达尔月(即犹太教历12月,犹太国历6月,在公历2、3月间,共29或30天)adar
[B:5dB:]
亚达月, (犹太历)六月
*adarce
[E5dB:s]
泉渣, 石灰华, 钙华
*adarsa
[E5dB:sE]
高级印度薄纱
*ADAS
abbr.
Agricultural Development and Advisory Service(英国)农业发展与咨询服务处这文本中 每个单词或词组都会以*好开头，但是有些是重复的，比如adaptogenesis等重复了
怎么写个程序可以把重复的部分删除掉呢最好写源程序
谢谢

Answer 1

我把文本导入到memo控件中
怎么写个递归算法呢

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  with TStringList.Create do try
    //LoadFromFile('c:\temp.txt');
    Text := Memo1.Text;
    for I := Count - 1 downto 0 do
      if IndexOf(Strings[I]) <> I then
        Delete(I);
    //SaveToFile('c:\temp~.txt');
    Memo1.Text := Text;
  finally
    Free;
  end;
end;

Answer 3

使用TSTRINGS，每遇到一个单词就add并find，看情况删除。最后savetofile