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

+ StrNextChar implemented

Browse Source 
git-svn-id: trunk@7803 -
This commit is contained in:
florian 2007-06-24 20:30:55 +00:00
parent 792f84a710
commit e1125c3f7f
2 changed files with 18 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2460,8 +2460,8 @@ begin
Result:=mbSingleByte; Result:=mbSingleByte;
end; end;
Function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType;
Function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType;
begin begin
Result:=mbSingleByte; Result:=mbSingleByte;
end; end;
@ -2473,6 +2473,12 @@ begin
end; end;
function StrNextChar(const Str: PChar): PChar;
begin
result:=Str+StrCharLength(Str);
end;
Function FindCmdLineSwitch(const Switch: string; const Chars: TSysCharSet;IgnoreCase: Boolean): Boolean; Function FindCmdLineSwitch(const Switch: string; const Chars: TSysCharSet;IgnoreCase: Boolean): Boolean;
Var Var

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

@ -218,6 +218,7 @@ Function ByteToCharLen(const S: string; MaxLen: Integer): Integer;
Function CharToByteLen(const S: string; MaxLen: Integer): Integer; Function CharToByteLen(const S: string; MaxLen: Integer): Integer;
Function ByteToCharIndex(const S: string; Index: Integer): Integer; Function ByteToCharIndex(const S: string; Index: Integer): Integer;
Function StrCharLength(const Str: PChar): Integer; Function StrCharLength(const Str: PChar): Integer;
function StrNextChar(const Str: PChar): PChar;
const const