大文字・小文字の変換

明解Ｃ言語 入門編 > 9. 文字列の基本 >

大文字・小文字の変換

Delphi

program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;
procedure str_toupper(var st:String);

begin

    st := UpperCase(st);

end;
procedure str_tolower(var st:String);

begin

    st := LowerCase(st);

end;
procedure main();

var

    str: String;

begin

    str := 'BohYoh';
    str_toupper(str);

    Writeln(Format('大文字：%s', [str]));
    str_tolower(str);

    Writeln(Format('小文字：%s', [str]));

end;
begin

    main;

end.

実行結果

S:\>lesson076\Project1.exe

大文字：BOHYOH

小文字：bohyoh