本文整理自网络,侵删。
unit Unit1;
interface
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type TForm1 = class(TForm) Memo1: TMemo; Memo2: TMemo; Button1: TButton; Memo3: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
function Check_keyword(const txt: string;keywordlist:tstringlist): Boolean;var I: Integer;begin Result :=false; keywordlist.beginUpdate;for I := 0 to keywordlist.Count-1 dobeginif pos(keywordlist.Strings[I],txt)>0 thenbeginResult :=true;Break;end;end;keywordlist.endUpdate;end;
procedure TForm1.Button1Click(Sender: TObject);varkey:tstringlist;beginkey:=tstringlist.Create;key.Text:=Memo1.Text;
Memo3.Clear;
if Check_keyword(Memo2.Text,key) thenbeginMemo3.Lines.Add('存在');endelsebeginMemo3.Lines.Add('不存在');end;
end;
end.
相关阅读 >>
Delphi 实现卸载windows应用程序(类似360软件管家-卸载程序)
pos、ansipos、fillchar在Delphi2010中unicode的问题
Delphi xe 使用savestate保存firemonkey状态的示例
更多相关阅读请进入《Delphi》频道 >>