Delphi中StrUtils的SearchBuf函数为何表现异常？

本文共计286个文字，预计阅读时间需要2分钟。

我正在整理过时使用FastStrings的代码，并且实现了PosAnyCase的新例程。它应该与Pos操作类似。我希望SearchBuf在两个字符串上调用UpperCase更高效。

function PosAnyCase(const A: string):

我正在整理过去使用FastStrings的旧代码,并且我已经实现了我的’PosAnyCase’的旧例程,它应该像’Pos’一样操作. (我希望SearchBuf比在两个字符串上调用UpperCase更好).

function PosAnyCase( const AFindStr, AStr : string ) : integer; // Returns the position of this substring within a string ignoring case

我正在使用SearchBuf如下：

function PosAnyCase( const AFindStr, AStr : string ) : integer; // Returns the position of this substring within a string ignoring case var Start, ResultPos : PChar; begin Start := PChar( AStr ); ResultPos := SearchBuf( Start, ByteLength( AStr ), 0, 0, AFindStr, [soDown] ); if ResultPos = nil then Result := 0 else Result := ResultPos-Start+1; end;

当我从单元测试中调用此例程时,以下测试通过：

Check( PosAnyCase( '', '123' ) = 0 ); Check( PosAnyCase( '2', '123' ) = 2 ); Check( PosAnyCase( 'A', 'ABC' ) = 1 ); Check( PosAnyCase( 'a', 'ABC' ) = 1 ); Check( PosAnyCase( 'the', 'hellot there' ) = 8 ); Check( PosAnyCase( 'THE', 'hellot there' ) = 8 );

但是这个测试失败了：

Check( PosAnyCase( 'nice', 'does not have n i c e' ) = 0 );

我做错了什么？ SearchBuf上的文档非常有限….
谢谢

对ByteLength的调用不正确.虽然 documentation明确声明参数是以字节为单位的长度,但事实并非如此.你应该使用Length代替,因为函数实际上需要char的单位而不是byte的单位.