System.UpCase procedure added

This commit is contained in:
Владислав Джавадов 2020-06-21 23:02:21 +03:00
parent d9331d8235
commit fcc3c349b8

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.