一個Delphi問題，請幫幫忙

Question

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ((Key >= Ord('A'))and(Key <= Ord('Z'))) then
  begin
    Edit2.Text := Chr(Key + 32);
  end;
end;

Answer 1

唉，又来迟了CoolSlob(我心迷茫) 兄，你的分数不少了，何必和我们些基层人员争分数呢！！

Answer 2

ord 得到asicc，有没有通过asicc 得到字符串的函数？

Answer 3

不對，'A'與'a' 的KEY值相同，不能區分。

Answer 4

A的Key=65 a的key=65.大小定區分不開

Answer 5

建议：一个一个很麻烦，用LowCase(string);
================================================================曾经有一碗热辣辣的烧猪手面放在我面前，我没有珍惜，等到晾凉了之后才后悔莫及。

Answer 6

不管你輸入的A 還是a key都為65 你試一試，把小寫轉換成大寫

Answer 7

謝謝，不用lowcase,我要的是，在用戶輸入時，自動將小寫變成大寫，大寫不變，一個一個的即時變換。