Question

delphi edit文本限制输入正负数？

delphi edit文本限制输入正数，0，负数？ procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['0'..'9',#8]) then begin Application.MessageBox('请输入数字','提示信息',MB_ok); key:=#0; end else begin end; end; 上面是输入0到9这10个数字，'-'如何插在只能出现在edit文本的第一个字符中啊。

Answer 1

var a:string; begin a:=copy(edit2.Text,1,1); if a<>'-' then begin end else begin if not (key in ['0'..'9',#8]) then begin Application.MessageBox('请输入数字','提示信息',MB_ok); key:=#0; end else begin end; end; end;