delphi 组件值实现增减

本文整理自网络，侵删。

 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := inttostr(strtoint(Label1.Caption) + 1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Label1.Caption := inttostr(strtoint(Label1.Caption) - 1);
end;
 

相关阅读 >>

Delphi开启和关闭windows xp 防火墙

Delphi 使控件变成圆角的方法

Delphi android 获取通�记录

Delphi self-delete程序

Delphi中怎样得到系统当前“输入法”名称？

Delphi ticon保存ico文件时失真的解决办法

Delphi listview 与数据库连接

手动创建和部署一个classes.dex 查看更多关于 classes.dex 的文章 文件

Delphi通过post传递参数给php

Delphi application.restore不起作用了,该如何处理

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 组件值实现增减