Question

Delphi如何搜索控件里的内容？？

在edit键里写入关键字搜索memo键里的内容

求大神指点 ，最好有代码

Answer 1

没啥好办法 遍历所有行 获取String[i] 然后用pos判断是否存在这个字符

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
with Memo1 do begin
I:=pos(Edit1.Text,Text);
if I>0 then begin
SelStart:=I-1;
SelLength:=Length(Edit1.Text);
SetFocus;
end;
end;
end;