Question

object pascal (delphi) 数值怎么定义范围

在edit组件中可随意输入一个数，但是范围须在[-1024,1024]之间，否则要显示‘请输入在-1024~1024之间的整数’。急！非常感谢！

Answer 1

procedure TForm1.edt1Change(Sender: TObject);
begin
if not((StrToIntDef(edt1.Text, 0) >= -1024) and (StrToIntDef(edt1.Text, 0) <= 1024)) then
ShowMessage('请输入-1024 - 1024之间的数值');
end;

追问

哦！谢谢！ 那我后面还要用到edit1中输入的数 来计算后面的 是否要定义全局变量，而那个全局变量 跟这里的是没有关系的 是吧?

追答

不需要