UpCase
Verze z 5. 10. 2012, 17:49, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (1 revízia: Unit System)
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.
