From edd010c1bc823e227ea34a9c3fb6c460da15fb27 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Thu, 12 Apr 2018 18:29:11 +0000
Subject: [PATCH] * Add optional start index for Pos()

---
 packages/rtl/system.pas | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/packages/rtl/system.pas b/packages/rtl/system.pas
index ff572da..fa62e56 100644
--- a/packages/rtl/system.pas
+++ b/packages/rtl/system.pas
@@ -243,6 +243,7 @@ function Copy(const S: string; Index, Size: Integer): String; assembler; overloa
 function Copy(const S: string; Index: Integer): String; assembler; overload;
 procedure Delete(var S: String; Index, Size: Integer); assembler; overload;
 function Pos(const Search, InString: String): Integer; assembler; overload;
+function Pos(const Search, InString: String; StartAt : Integer): Integer; assembler; overload;
 procedure Insert(const Insertion: String; var Target: String; Index: Integer); overload;
 function upcase(c : char) : char; assembler;
 
@@ -364,6 +365,14 @@ asm
   return InString.indexOf(Search)+1;
 end;
 
+function Pos(const Search, InString: String; StartAt : Integer): Integer; assembler; overload;
+
+asm
+  return InString.indexOf(Search,StartAt-1)+1;
+end;
+
+
+
 procedure Insert(const Insertion: String; var Target: String; Index: Integer);
 var
   t: String;