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 unigui 获取files路径

Delphi system.sysutils.tmarshaller 与 system.tmarshal

Delphi gif 动画建立

Delphi中使用自定义字体

Delphi 蜂鸣器发声

Delphi 控制台 输入输出实例代码

Delphi提取网页中的所有链接、点击第n个链接

Delphi tms web core 获取url 参数

Delphi xe5 for android 地理定位gps

Delphi 网卡工作状态检测

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

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