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实现阿里云印刷文字识别_身份证识别

Delphi tms web core 复制内容到剪切板

Delphi xe 编译开关-一套代码不同平台编译

Delphi idpop3收邮件

Delphi计算两个时间差

高手谈做程序员的8大基本原则

Delphi判断某一个点是否在一个区域内

Delphi setwindowshookex - 设置钩子 unhookwindowshookex - 卸掉钩子

Delphi idhttp 获取链接连通状态

print documents from Delphi - print pdf, doc, xls, html, rtf, docx, txt

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

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