* Add unicode AnsiLastChar overload

rtl/objpas/sysutils/sysstr.inc

@@ -546,6 +546,14 @@ begin
   Dec(Result);
 end ;
 
+function AnsiLastChar(const S: UnicodeString): PWideChar;
+
+begin
+  //!! No multibyte yet, so we return the last one.
+  result:=StrEnd(PWideChar(Pointer(S)));  // strend checks for nil
+  Dec(Result);
+end ;
+
 function AnsiStrLastChar(Str: PAnsiChar): PAnsiChar;
 begin
   //!! No multibyte yet, so we return the last one.

rtl/objpas/sysutils/sysstrh.inc

@@ -101,6 +101,7 @@ function AnsiStrLIComp(S1, S2: PAnsiChar; MaxLen: SizeUInt): Integer;{$ifdef SYS
 function AnsiStrLower(Str: PAnsiChar): PAnsiChar;{$ifdef SYSUTILSINLINE}inline;{$endif}
 function AnsiStrUpper(Str: PAnsiChar): PAnsiChar;{$ifdef SYSUTILSINLINE}inline;{$endif}
 function AnsiLastChar(const S: AnsiString): PAnsiChar;
+function AnsiLastChar(const S: UnicodeString): PWideChar;
 function AnsiStrLastChar(Str: PAnsiChar): PAnsiChar;
 
 function Trim(const S: ansistring): ansistring;