小文字を大文字に変換するには？
解決
理恵
2003-12-12 21:13:37
No:
6145
IP:
[192.*.*.*]
Tmemoなどで、小文字が入力されると
自動的に、大文字に変換されてTextに表示されるようにしたいのですが
ご教授お願いします。
編集
削除
通りすがり
2003-12-12 23:24:41
No:
6146
IP:
[192.*.*.*]
TMemoのKeyPressイベントあたりで小文字がきたら大文字に変換してはいかがでしょ？
編集
削除
Halbow
2003-12-12 23:27:55
No:
6147
IP:
[192.*.*.*]
Halbow です。
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['a'..'z'] then Key := Char(Ord(Key)-$20);
end;
編集
削除
理恵
2003-12-12 23:40:51
No:
6148
IP:
[192.*.*.*]
通りすがり さん、Halbowさん、大変ありがとうございます。
すんごく助かりました。
編集
削除