小弟已經設計兩個Edit框，並通過 { if not (key in['0'..'9',#8]) then key:=#0; } 這樣的辦法限定暸輸入的內容。 小弟希望再設計兩個Edit框，其中一個應該隻能輸入全形字符（包括英文），另一個隻能輸入半形字符 但是我不知道應該怎么在語句中區分判斷全形字符和半形字符。 盼達人解惑！ ============================================================ 小弟本來把這一帖髮在輸入法那個區，可是看起來那邊實在荒涼……因此在這裏重髮一遍，如有違規，還望明示

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key > #128 then
   Key := #0
end;

但不能應對複製粘貼過來的內容 ---------------------------- 於Delphi K.Top之上 博采眾家之長, 奉獻綿薄之力 ---------------------------

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------

你好，h@visli 你的意思即是說，ASC碼大於128的即是全形字符？ 這裡也包括了全角狀態下輸入的英文字和數字嗎？ 另外，我記得也有人說漢字的ASC碼都為負，是因爲語言不同嗎？