Zobrazení zdroje stránky UpCase

Převede znak na velké písmeno

;Deklarace
 function UpCase(Ch: Char): Char;

;Režim
:Windows, Reálný, Chráněný

;Poznámky
:Ch je výraz typu [[Char]]. Výsledkem typu [[Char]] je Ch, převedený na velké písmeno. Znakové hodnoty mimo rozsah a..z zůstávají nezměněny.


Vzorový příklad

 {UpCase.PAS}
 {Vzorový příklad pro funkci UpCase.}
 { Pro Windows: }
 { uses WinCrt; }
  var
    s : string;
    i : Integer;
  begin
    Write('Vlož řetězec: ');
    Readln(s);
    for i := 1 to Length(s) do
      s[i] := UpCase(s[i]);
    WriteLn('Zde je ve velkých písmenech: ',s);
  end.

[[Category:Pascal]]
[[Category:System]]
[[Category:Funkce System]]