问题描述:
比方说EDIT1.TEXT:='23',然后通过某个事件让它加1等于24呢?
问题解答:
太简单了
自增
Edit1.Text:=IntToStr(StrToInt(Edit1.Text)-1);
自减
Edit1.Text:=IntToStr(StrToInt(Edit1.Text)+1);
try
if edit1.text<>'' then
edit1.text:=inttostr(strtoint(edit1.text)+1);
except
showmessage('edit1内容必须为数字!');
end