Alternative zu PosEx

[Amateurprofi]

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

Oh mein Gott, bin ich blöd.
Stevie schieb 64bit und ich teste 32bit.
Bei 64bit auch bei mir 12 statt 7.

Werde den Fehler suchen und korrigieren.