Char型で半角英小文字を半角英大文字に変換するには？

解決

マーセラス 2005-06-09 11:36:44 No: 15470

初心者です。KeyPressイベント等で、半角英小文字が入力された場合に、半角英大文字に内部変換をかけたいのですが、方法がわかりません。どのようにやるのがいいのでしょうか？

アッパーカット ☆α==(・・#) 2005-06-09 12:30:58 No: 15471

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Key := UpperCase(Key)[1]
end;

ん？ 2005-06-09 12:58:24 No: 15472

Editであれば、CharCaseプロパティをecUpperCase とする。

マーセラス 2005-06-09 14:44:48 No: 15473

ありがとうございます！
デザイン時のコンポーネントプロパティでもできるんですね。
勉強になりました。ありがとうございました。