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

[hksl]

有个文本文件是：

*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等重复了
怎么写个程序可以把重复的部分删除掉呢

最好写源程序
谢谢

[hksl]

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

[王集鹄]

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;

[hksl]

这样也不行呀
可能存在不同的英语单词有相同的中文意思
那这样不就全部删除了

[hksl]

你的意思是删除字数相同的
那样不行
很可能有相同的

[dashi]

up

[rcyboom]

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

[hksl]

可以说具体点吗

[hksl]

问题我解决了
我把所有记录分块导入到数据库中，中数据库中进行修改

[spirit_sheng]

你的文本文件中对于单词或词组是不是排过序的?

[hksl]

是的