3

使用 FreePascal(或 Delphi,如果没有 FP 示例),给定一个 2048 字节的缓冲区,它是一个“字节数组”,我如何在缓冲区中搜索“StringA”?

var
Buffer : array[1..2048] of byte;
...
  repeat
      i := 0;
      BlockRead(SrcFile, Buffer, SizeOf(Buffer), NumRead);      
      // Now I want to search the buffer for "StringA"? 
...

谢谢

4

2 回答 2

6

我认为这将在 fpc 中工作而无需额外的 Unicode/AnsiString 转换:

function Find(const buf : array of byte; const s : AnsiString) : integer;
//returns the 0-based index of the start of the first occurrence of S
//or -1 if there is no occurrence
var
  AnsiStr : AnsiString;
begin
  SetString(AnsiStr, PAnsiChar(@buf[0]), Length(buf));
  Result := Pos(s,AnsiStr) - 1;  // fpc has AnsiString overload for Pos()
end;
于 2012-04-04T21:08:56.457 回答
4

这是一种简单的方法,我们只需逐字节遍历缓冲区以查找所需的字符串。

function Find(const Buffer: array of Byte; const S: AnsiString): Integer;
//returns the 0-based index of the start of the first occurrence of S
//or -1 if there is no occurrence
var
  N: Integer;
begin
  N := Length(S);
  if N>0 then
    for Result := low(Buffer) to high(Buffer)-(N-1) do
      if CompareMem(@Buffer[Result], Pointer(S), N) then
        exit;
  Result := -1;
end;

我不使用 FPC,但我希望这将保持不变,如果不是,那么我相信你可以转换它。

于 2012-04-04T20:35:30.953 回答