どのように妥当性を検証するinno setupの数字とテキストのみを編集しますか？

Question

文字を数字に制限する方法はありますか？スペースを入れずに10にして、もう一度編集する方法はありますか？ それは電話番号のために、そして名前にスペースを必要としません、それをする方法を考えていません。実装するためのいくつかの方法を試しても、動作しないコードを見つけました ここに私が見つけたものは何ですか？スペースがないため

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin 
    if Key in ['0'..'9'] then 
    Key := #0; 
end; 

と、この：いけないためここでは

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin 
    if (Key in ['a'..'z']) or (Key in ['A'..'Z']) then 
    Key := #0; 
end; 

は、数字を許可

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

は、INNOで同様のものを実装することができますか？

Answer 1

あなたは

Edit1.MaxLength:=10;