Freeman/SDK
1
0
Fork 0
mirror of https://github.com/vapaamies/KolibriOS.git synced 2024-11-10 02:00:33 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

System.UpCase procedure added

Browse Source
This commit is contained in:
Владислав Джавадов 2020-06-21 23:02:21 +03:00
parent d9331d8235
commit fcc3c349b8
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
RTL/System.pas
View File

@ -149,6 +149,8 @@ procedure _Halt0;
procedure _HandleFinally; procedure _HandleFinally;
procedure _StartExe(InitTable: PPackageInfo); procedure _StartExe(InitTable: PPackageInfo);
function UpCase(Ch: KolibriChar): KolibriChar;
implementation implementation
uses uses
@ -215,4 +217,11 @@ begin
end; end;
end; end;
function UpCase(Ch: KolibriChar): KolibriChar;
begin
if Ch in ['a'..'z'] then
Dec(Ch, Ord('a') - Ord('A'));
Result := Ch;
end;
end. end.