Delphi：在内存流中搜索字符串的最简单方法

Question

在内存流（和多个字符串）中搜索字符串并返回真或假的最简单方法是什么？

Answer 1

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 等进行 ackwardly 循环，要么使用 RegEx。

此代码在 Delphi XE 中运行良好，尽管 TStringStream 非常旧 - 不确定它是否兼容 unicode。

（示例有漏洞 - 为了简洁起见，我省略了最终代码）