Question

delphi中在edit输入一个句子，再与一个string匹配。类似查找功能

例如输入“我是中国人”，与“中国”匹配。
有则提示此句子是所需句子
否则进入下个界面
若再和其他词匹配呢，
例如中央，中间等等

Answer 1

if (Pos('中国',Edit1.Text)>0) or (Pos('中央',Edit1.Text)>0) or (Pos('中间',Edit1.Text)>0) then begin
ShowMessage(Edit1.Text+'是所需句子!');
end else begin
// 进入下个界面
end;