TEdit 숫자만 입력받기

TEdit 숫자만 입력받기

 

 

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

// #8 is Backspace

if not (Key in [#8, '0'..'9']) then begin

ShowMessage('Invalid key');

// Discard the key

Key := #0;

end;

end;

 

If you also want numbers with a decimal fraction, you must allow a POINT or a COMMA, but only once. For an

international version that looks at the correct decimal separator, he code could be as follows:

 

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if not (Key in [#8, '0'..'9', DecimalSeparator]) then begin

ShowMessage('Invalid key: ' + Key);

Key := #0;

end

else if (Key = DecimalSeparator) and

(Pos(Key, Edit1.Text) > 0) then begin

ShowMessage('Invalid Key: twice ' + Key);

Key := #0;

end;

end;

 

And here's a full blown version of the event handler, accepting a decimal separator and negative numbers (the minus

sign is only accepted once and it has to be the first character):

 

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if not (Key in [#8, '0'..'9', '-', DecimalSeparator]) then

ShowMessage('Invalid key: ' + Key);

Key := #0;

end

else if ((Key = DecimalSeparator) or (Key = '-')) and 

(Pos(Key, Edit1.Text) > 0) then begin

ShowMessage('Invalid Key: twice ' + Key);

Key := #0;

end

else if (Key = '-') and 

(Edit1.SelStart <> 0) then begin

ShowMessage('Only allowed at beginning of number: ' + Key);

Key := #0;

end;

end;