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;
以上运行正常，我想增加文本中不存在该字符的判断,不知道如何写/谢谢!!!