From 154b9bdd11684c41564f613498c9b8d5394a0fe8 Mon Sep 17 00:00:00 2001 From: michael Date: Mon, 31 Aug 2015 19:34:15 +0000 Subject: [PATCH] * Correct signature of pos git-svn-id: trunk@31467 - --- rtl/inc/wstringh.inc | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/rtl/inc/wstringh.inc b/rtl/inc/wstringh.inc index fde3bf756a..38eb418cf0 100644 --- a/rtl/inc/wstringh.inc +++ b/rtl/inc/wstringh.inc @@ -16,13 +16,13 @@ Procedure UniqueString (Var S : WideString);external name 'FPC_WIDESTR_UNIQUE'; -Function Pos (Const Substr : WideString; Const Source : WideString) : SizeInt; -Function Pos (c : Char; Const s : WideString) : SizeInt; -Function Pos (c : WideChar; Const s : WideString) : SizeInt; -Function Pos (c : WideChar; Const s : RawByteString) : SizeInt; -Function Pos (const c : RawByteString; Const s : WideString) : SizeInt; -Function Pos (const c : WideString; Const s : RawByteString) : SizeInt; -Function Pos (const c : ShortString; Const s : WideString) : SizeInt; +Function Pos (Const Substr : WideString; Const Source : WideString; Offset : SizeInt = 1) : SizeInt; +Function Pos (c : Char; Const s : WideString; Offset : SizeInt = 1) : SizeInt; +Function Pos (c : WideChar; Const s : WideString; Offset : SizeInt = 1) : SizeInt; +Function Pos (c : WideChar; Const s : RawByteString; Offset : SizeInt = 1) : SizeInt; +Function Pos (const c : RawByteString; Const s : WideString; Offset : SizeInt = 1) : SizeInt; +Function Pos (const c : WideString; Const s : RawByteString; Offset : SizeInt = 1) : SizeInt; +Function Pos (const c : ShortString; Const s : WideString; Offset : SizeInt = 1) : SizeInt; Function UpCase(const s : WideString) : WideString;