怎麼樣子才可以讓使用者在輸入到TEdit時可以作檢查. 請各位大大幫個忙... 現在我有一個TEdit只允許使用者輸入數字,不能輸入其他的字元,下面是我的作法,雖然在使用者輸入其他字元時他會跳出警告視窗,不過在取消警告視窗後,使用者所按的那個錯誤字元還是會出現在TEdit上,不曉得有沒有什麼辦法可以把那個字元消除掉,或者有更好用的辦法!? procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var num : boolean; begin num := false; if (ord(key) > 47) and (ord(key) < 58) or (ord(key) = 8) or (ord(key) = 13) then num := true; if not num then messagedlg('請輸入數字0-9',mtwarning,[mbcancel],0); if (ord(key) = 13) then button1.Click; end;

unisabilly 你好

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (ord(key) = 13) then
    button1.Click;
  if Not ((ord(key) > 47) and (ord(key) < 58) or (ord(key) = 8) ) then begin
    messagedlg('請輸入數字0-9',mtwarning,[mbcancel],0);
    Key := 0 ; 
  End;
end;
 

_______________________________________ 深藍的魚，祝您好運..........連連

引言: unisabilly 你好

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (ord(key) = 13) then
    button1.Click;
  if Not ((ord(key) > 47) and (ord(key) < 58) or (ord(key) = 8) ) then begin
    messagedlg('請輸入數字0-9',mtwarning,[mbcancel],0);
    Key := 0 ; 
  End;
end;
 

_______________________________________ 深藍的魚，祝您好運..........連連

Key := 0; // [Error] main.pas(330): Incompatible types: 'Char' and 'Integer'... 謝謝藍魚的幫忙,但是我直接把整個Code Copy上去後出現了上列錯誤訊息,另外就是 key := 0 的作用是?? ~~ 新手上路.衝.衝.衝.

unisabilly 你好    Sorry! 改成如下    Key := Chr(0);// 或是Char(0); 都試試吧    另外就是 key := Chr(0) 的作用是??    chr(0)表示沒按任何鍵,等於把按鍵值吃掉,程式就不知有這個按鍵值了。    _______________________________________ 深藍的魚，祝您好運..........連連 發表人 - chance36 於 2004/08/06 21:20:22

可以用了....非常感謝 ~  ~~ 新手上路.衝.衝.衝.