【文件属性】:
文件名称:在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