删除重复的字符串行

编程问题：如何在一个文本文件(如txt)中，比较n行字符,   删除重复的字符串行，请见示例：    
  this   is   a   test.  
  this   is   a   test.  
  this   is   another   test.  
  this   is   another   test.  
  this   is   another   test.  
  this   is   a   test.  
  this   is   a   test.  
  this   is   another   test.  
   
  删除其中重复的内容，变成：  
  this   is   a   test.  
  this   is   another   test.

• · 推荐参考文章：
• SNW：用户需求带动存储新技术发展
• 华山论剑：存储厂商汇聚SNW春季大会(1)
• 2006年CDP市场处转型变革之中
• IDC：可携式存储装置将越来越个人化
• 51CTO存储专访：基于交换层的存储管理(1)
• 2005存储软件89亿美元入帐 需求持续增长
• 存储CTO关于数据安全问题之争
• 博科发布全新iSCSI网关解决方案
• Infortrend发布新品　1U,4盘位盘阵
• 微软为“BitVault”做好准备

· 网友精彩回答：

procedure   tform1.button1click(sender:   tobject);  
  var  
      sw:boolean;  
      i,cou:integer;  
      s:string;  
      fulltxt,newfulltxt:tstringlist;  
   
  begin  
      fulltxt   :=   tstringlist.create;  
      newfulltxt   :=   tstringlist.create;  
      fulltxt.loadfromfile(abc.txt);  
   
      for   i   :=0   to   fulltxt.count-1   do  
          begin  
                      sw:=false;  
                      s:=   fulltxt.strings[i];  
                      if   i=0   then  
                        begin  
                          newfulltxt.add(s);  
                          continue;  
                        end;  
   
                      for   cou   :=   0   to   newfulltxt.count-1   do  
                        if   ansisamestr(s,newfulltxt.strings[cou])   then  
                              sw   :=   true;  
   
                      if   not   sw   then  
                          newfulltxt.add(s);  
   
          end;  
   
   
      newfulltxt.savetofile(abc.txt);  
  end;