一个delphi的基础问题

Question

请问如何使用TFindDialog组件查找mome1的内容？
按了form1.Button1之后就弹出FindDialog1的窗口，要查找的是form1.mome1的内容，请问要在Button1怎么写代码？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  if finddialog1.Execute then
  begin
    //finddialog1.FindText和memo1.Lines比较
  end;
end;

Answer 2

if strpos(pchar(memo1.Lines),pchar(finddialog1.FindText))=nil then
showmessage('找不到');

Answer 3

if strpos(pchar(memo1.Lines),pchar(finddialog1.FindText))=nil then
showmessage('找不到');

Answer 4

不知道不要乱说，楼主应该在查找事件OnFind中进行，即
procedure TForm1.FindDialog1Find(Sender: TObject);
beginend;00000000000000

Answer 5

procedure TForm1.FindDialog1Find(Sender: TObject); 
begin 
  if strpos(pchar(memo1.Text),pchar(finddialog1.FindText))=nil then 
  showmessage('找不到');
end;
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  finddialog1.Execute
end;