文本中寻找数据的有关问题

文本中寻找数据的问题
我的文本时这样
AAAAAA
BBBBBB
CCCCCC
DDDDDD


现在我要往文本写入数据先在文本中查找是否有存在相同数据
这个函数怎么写呢，查找相同数据这个函数

[解决办法]
比如你要写入BBBBBB, 如果连续写入的话,自己改成循环

Delphi(Pascal) code

const _file:='d:\1.txt';var  s:string;begin  s:='BBBBBB';  with TStringList.Create do  begin    LoadFromFile(_file);    if IndexOf(s)=-1 then       Add(s);    SaveToFile(_file);    Free;  end;end;
[解决办法]
TStringList读取所有行，然后遍历写到另外一个 TStringList，写之前先判断IndexOf
或者
自己用文件流，逐字符的遍历文件流，遇到换行符#10#13就取出之前的内容， 写到 TStringList中，写之前先判断IndexOf
[解决办法]
噢。。。我那个with TStringList.Create do是简写方法，是把变量省去了
不熟悉的话，先定义一个变量，然后使用此变量，不能每句都是TStringList.Create的
參照這樣:

Delphi(Pascal) code
const _file:='d:\1.txt';var  s:string;  sList:TStringList;begin  s:='BBBBBB';  sList:=TStringList.Create;  sList.LoadFromFile(_file);  if sList.IndexOf(s)=-1 then     sList.Add(s);  sList.SaveToFile(_file);  sList.Free;end;