假设溢出位设定为8位。 procedure TForm1.Button1Click(Sender: TObject); begin edit1.text:=edit1.text+'1'; if(edit1.text='11111111') then showmessage('数据溢出'); if(edit1.Text>'11111111') then edit1.Text:='1111111'; end;