在memo中查找字符串

时间:2023-01-03 04:27:13
【文件属性】:

文件名称:在memo中查找字符串

文件大小:531KB

文件格式:RAR

更新时间:2023-01-03 04:27:13

查找 memo 关键字

function SearchMemo(Memo: TCustomEdit; const SearchString: string; Options: TFindOptions): Boolean; var Buffer, P: PChar; Size: Word; begin Result := False; if Length(SearchString) = 0 then Exit; Size := Memo.GetTextLen; if (Size = 0) then Exit; Buffer := SysUtils.StrAlloc(Size + 1); try Memo.GetTextBuf(Buffer, Size + 1); if frDown in Options then P := SearchBuf(Buffer, Size, Memo.SelStart, Memo.SelLength,SearchString, [soDown]) else P := SearchBuf(Buffer, Size, Memo.SelStart, Memo.SelLength,SearchString, []);


【文件预览】:
Project1.dof
Unit1.dcu
Search.pas
Project1.exe
Unit1.dfm
Project1_Icon.ico
Project1.cfg
Project1.dpr
Search.dcu
Unit1.pas
Project1.identcache
Project1.res
Project1.dproj
Unit1.ddp
Project1.dproj.local
Project1.stat

网友评论