小文字を大文字に変換するには？

解決

理恵 2003-12-12 21:13:37 No: 6145

Tmemoなどで、小文字が入力されると
自動的に、大文字に変換されてTextに表示されるようにしたいのですが
ご教授お願いします。

通りすがり 2003-12-12 23:24:41 No: 6146

TMemoのKeyPressイベントあたりで小文字がきたら大文字に変換してはいかがでしょ？

Halbow 2003-12-12 23:27:55 No: 6147

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

通りすがりさん、Halbowさん、大変ありがとうございます。
すんごく助かりました。