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

* Char -> AnsiChar

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2022-12-22 15:18:17 +01:00 committed by Pierre Muller
parent 72f74d06e3
commit 893373e934
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/objpas/fpwidestring.pp
View File

@ -747,7 +747,7 @@ begin
Result:=CompareStrAnsiString(a,b);
end;
function StrCompAnsiString(S1, S2: PChar): PtrInt;
function StrCompAnsiString(S1, S2: PAnsiChar): PtrInt;
var
l1,l2 : PtrInt;
begin
@ -758,7 +758,7 @@ begin
Result := InternalCompareStrAnsiString(S1,S2,l1,l2);
end;
function StrLICompAnsiString(S1, S2: PChar; MaxLen: PtrUInt): PtrInt;
function StrLICompAnsiString(S1, S2: PAnsiChar; MaxLen: PtrUInt): PtrInt;
var
a, b: ansistring;
begin
@ -771,12 +771,12 @@ begin
Result:=CompareTextAnsiString(a,b);
end;
function StrICompAnsiString(S1, S2: PChar): PtrInt;
function StrICompAnsiString(S1, S2: PAnsiChar): PtrInt;
begin
Result:=CompareTextAnsiString(ansistring(s1),ansistring(s2));
end;
function StrLowerAnsiString(Str: PChar): PChar;
function StrLowerAnsiString(Str: PAnsiChar): PAnsiChar;
var
temp: ansistring;
begin
@ -784,7 +784,7 @@ begin
ansi2pchar(temp,str,result);
end;
function StrUpperAnsiString(Str: PChar): PChar;
function StrUpperAnsiString(Str: PAnsiChar): PAnsiChar;
var
temp: ansistring;
begin