var
strList: TStringList;
iStart: Integer;
begin
DataSet.Disablecontrols;
DataSet.First;
strList := TStringList.Create;
iStart := 0;
//逐条记录遍历
While not DataSet.Eof do
begin
//取出Memo字段的内容,并查找字符串
strList ;= Dataset.FieldByName( 'Memo' ).AsString;
iStart := Pos(strFind, strList.Text);
//若有含有想查找的字符串,则推出
if iStart > 0 then Break;
next;
end;
DataSet.EnableControls;
if iStart > 0 then
begin
DBMemo.SelStart := iStart;
DBMemo.SelLength ;= Length(strFind);
end;