Question

Delphi中，怎么查找richtext内字符串？

Delphi中form1上放一个richtext一个edit一个command和一个listbox
怎么在edit中输入关键字查找richtext内带有关键字的句子，然后把带关键字的所以句子一行一行显示到listbox里呢，谁会的帮我写段代码，十分感谢！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to RichEdit1.Lines.Count-1 do
begin
if AnsiPos(Edit1.Text,RichEdit1.Lines[i])>0 then
ListBox1.Items.Add(RichEdit1.Lines[i]);
end;
end;