paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 12:19:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add IndexChar for widechar

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2023-01-06 12:02:00 +01:00 committed by Michaël Van Canneyt
parent 1671010086
commit f75f208992
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/system.inc
View File

@ -392,6 +392,13 @@ begin
end; end;
function IndexChar(const buf; len: SizeInt; b: widechar): SizeInt;
begin
IndexChar:=IndexWord(buf,len,Word(b));
end;
function CompareChar(Const buf1,buf2;len:SizeInt):SizeInt; function CompareChar(Const buf1,buf2;len:SizeInt):SizeInt;
begin begin
CompareChar:=CompareByte(buf1,buf2,len); CompareChar:=CompareByte(buf1,buf2,len);