Question

DELPHI 如何能让EDIT里的数字自增或者自减

比方说EDIT1.TEXT:='23',然后通过某个事件让它加1等于24呢?

Answer 1

太简单了

自增
Edit1.Text:=IntToStr(StrToInt(Edit1.Text)-1);
自减
Edit1.Text:=IntToStr(StrToInt(Edit1.Text)+1);

Answer 2

try
if edit1.text<>'' then
edit1.text:=inttostr(strtoint(edit1.text)+1);
except
showmessage('edit1内容必须为数字！');
end