Alternative zu PosEx

[Michael II]

Zitat von 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
---------------------------

Bei mir mit 64 Bit Code aus #13 und deinem Test PROCEDURE TMain.Test; auch Output: 12.
Delphi 11U2, Win11pro, Intel i7-11800H .