在内存流（和多个字符串）中搜索字符串并返回 true 或 false 的最简单方法是什么？
var ms:TMemoryStream;
strS:TStringStream;
aStr:string;
aPos:integer;
found:boolean;
begin
ms:=TMemoryStream.Create;
ms.LoadFromFile('c:\aFile.txt');
strS:=TStringStream.Create;
strS.LoadFromStream(ms);
aPos:=pos(aStr,strS.dataString);
found:=aPos>0;
end;
TStringStream 是一个经常被遗忘但非常有用的工具 - 比搞乱 pChars 等更容易、更安全。
对于多个搜索，可以使用 pos、substring 等进行反向循环，也可以使用 RegEx。
这段代码在 Delphi XE 中运行良好，尽管 TStringStream 很旧 - 不确定它是否兼容 unicode。
（这个例子是有漏洞的 - 为了简洁起见，我省略了最终代码）
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
