Delphi查找文本的问题
procedure TForm1.Button1Click(Sender: TObject);//查找文本
var
f: TextFile;
s: string;
list:Tstringlist;
begin
AssignFile(f, 'D:\3.txt');
reset(F);
while not eof(F) do
begin
Readln(F, s);
list:=Tstringlist.Create;
list.Delimiter:=':';
list.DelimitedText:=s;

if list.strings[0]=edit1.text then
begin
edit2.text:= list.strings[1];
break;//终止
end ;
end;
CloseFile(f);
end;
以上运行正常，我想增加文本中不存在该字符的判断,不知道如何写/谢谢!!!


[解决办法]
设一个变量，开始是false，如果找到了，就为true，循环完毕后，判断这个变量，如何还为false，怎为没找到