掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
小文字を大文字に変換するには？ (ID：6147)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Halbow です。 procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char); begin if Key in ['a'..'z'] then Key := Char(Ord(Key)-$20); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.