[fpc-devel] StrPos giving a access violation

[Graeme Geldenhuys]

Hi,

The 3rd unit test fails due to StrPos giving a access violation.  I ran 
this same unit test under Delphi 7 and it passed as StrPos returned a 
nil value when passing two '' param values.

Has this been reported as a bug yet?


-----------------  CUT  -------------------
var
   lFrom: string;
   lSearch: string;
   lResult: PChar;
begin
   lFrom   := 'abc';
   lSearch := 'b';
   lResult := StrPos(Pointer(lFrom), Pointer(lSearch));
   AssertEquals('Failing on 1', 'bc', string(lResult));

   lSearch := 'x';
   lResult := StrPos(Pointer(lFrom), Pointer(lSearch));
   AssertEquals('Failing on 2', '', string(lResult));

   lFrom   := '';
   lSearch := '';
   lResult := StrPos(Pointer(lFrom), Pointer(lSearch));
   AssertEquals('Failing on 3', '', string(lResult));

-----------------  END  -------------------


Regards,
   - Graeme -