delphi判断文本是否存在

var
j:integer;
begin
memo1.Lines.LoadFromFile('edit1.text');
j:=pos('你指定的内容',memo1.text);
if j<>0 then
showmessage('找到') else showmessage('未找到')
end;

你要加入一个memo1作为辅助工具。

if Pos('指定文本',Trim(Edit1.Text)) = 0 then ShowMessage('没有');