Alternative zu PosEx

[Amateurprofi]

Zitat von Stevie:

64bit StrPos ist defekt.

Teste selbst: StrPos('world', 'hello world', 0, 11) liefert 12 und nicht 7

Bei mir nicht.

Delphi-Quellcode:

PROCEDURE TMain.Test;
var N:Integer;
begin
   //Teste selbst: StrPos('world', 'hello world', 0, 11) liefert 12 und nicht 7
   N:=StrPos('world', 'hello world', 0, 11);
   ShowMessage(IntToStr(N));
end;

Code:

---------------------------
Mersenne
---------------------------
7
---------------------------
OK
---------------------------