在memo中查找字符串
function SearchMemo(Memo: TCustomEdit; const SearchString: string; Options: TFindOptions): Boolean;r varr Buffer, P: PChar;r Size: Word;r beginr Result := False;r if Length(SearchString) = 0 thenr Exit;r r Size := Memo.GetTextLen;r if (Size = 0) thenr Exit;r r Buffer := SysUtils.StrAlloc(Size + 1);r tryr Memo.GetTextBuf(Buffer, Size + 1);r r if frDown in Options thenr P := SearchBuf(Buffer, Size, Memo.SelStart, Memo.SelLength,SearchString, [soDown])r r elser P := SearchBuf(Buffer, Size, Memo.SelStart, Memo.SelLength,SearchString, []);
文件大小：530.72KB
评论区