delphi edit用法？

来源：百度知道 编辑：UC知道 时间：2024/06/22 01:12:14
用button控制 Edit的内容

按一下 显示 ABC 然后按再按一下就+30、
、、怎么实现？

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text='' then
Edit1.Text:='ABC'
else
Edit1.Text:=Edit1.Text+'+30';
end;

写个递增函数；然后在button的单击事件中调用此函数即可

你这个＋30是要从ascll码上加还是显示个‘＋30’的字符串就行了？

写个递增函数就可以了