بخصوص الدالة PosEx

[لؤي]

لدي وظيفة مجربة على D6

PHP كود :

function PosEx(const SubStr, S: string; Offset: Integer = 1): Integer;
begin
  Result := 0;
  if (Offset < 1) or (Offset > Length(S)) then
    Exit;
 
  Result := Pos(SubStr, Copy(S, Offset, MaxInt));
  if Result > 0 then
    Inc(Result, Offset - 1);
end; 


لا تنسى StrUtils إلى uses

بالتوفيق