在memo中查找字符串
functionSearchMemo(Memo:TCustomEdit;constSearchString:string;Options:TFindOptions):Boolean;
var
Buffer,P:PChar;
Size:Word;
begin
Result:=False;
ifLength(SearchString)=0then
Exit;
Size:=Memo.GetTextLen;
if(Size=0)then
Exit;
Buffer:=SysUtil
下载地址
用户评论
