paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 10:49:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add unicode AnsiLastChar overload

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-14 10:26:49 +01:00
parent ea63bfb32f
commit 45021498cf
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/sysutils/sysstr.inc
View File

@ -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.

1
rtl/objpas/sysutils/sysstrh.inc
View File

@ -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;