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

+ Optimizations for lower/uppercase functions

Browse Source 
git-svn-id: trunk@380 -
This commit is contained in:
michael 2005-06-11 13:14:59 +00:00
parent 000e67d182
commit 7fb254755d
1 changed files with 32 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -63,30 +63,44 @@ end ;
{ UpperCase returns a copy of S where all lowercase characters ( from a to z ) { UpperCase returns a copy of S where all lowercase characters ( from a to z )
have been converted to uppercase } have been converted to uppercase }
function UpperCase(const S: string): string;
var i: integer;
begin
result := S;
i := Length(S);
while i <> 0 do begin
if (result[i] in ['a'..'z']) then result[i] := char(byte(result[i]) - 32);
Dec(i);
end;
end;
Function UpperCase(Const S : String) : String;
Var
i : Integer;
P : PChar;
begin
Result := S;
UniqueString(Result);
P:=Pchar(Result);
for i := 1 to Length(Result) do
begin
if (P^ in ['a'..'z']) then P^ := char(byte(p^) - 32);
Inc(P);
end;
end;
{ LowerCase returns a copy of S where all uppercase characters ( from A to Z ) { LowerCase returns a copy of S where all uppercase characters ( from A to Z )
have been converted to lowercase } have been converted to lowercase }
function LowerCase(const S: string): string; Function Lowercase(Const S : String) : String;
var i: integer;
Var
i : Integer;
P : PChar;
begin begin
result := S; Result := S;
i := Length(result); UniqueString(Result);
while i <> 0 do begin P:=Pchar(Result);
if (result[i] in ['A'..'Z']) then result[i] := char(byte(result[i]) + 32); for i := 1 to Length(Result) do
dec(i); begin
end; if (P^ in ['A'..'Z']) then P^ := char(byte(p^) + 32);
Inc(P);
end;
end; end;
{ CompareStr compares S1 and S2, the result is the based on { CompareStr compares S1 and S2, the result is the based on
substraction of the ascii values of the characters in S1 and S2 substraction of the ascii values of the characters in S1 and S2