Delphi Inc () 计数用法

本文整理自网络，侵删。

 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
  Inc (nClicks);
  Label1.Text := nClicks.ToString;
end;

function TForm1.GetClicks: Integer;
begin
  Result := nClicks;
end;

 

相关阅读 >>

Delphi 顺序查找与二分查找

Delphi 在消息窗口中显示进度条

Delphi 如何判断字符串是否是有效email地址

Delphi xe 跨平台（windows、android安卓、苹果macos、苹果ios）写法

Delphi获取进程pid

Delphi 语言字符集

Delphi 执行一个外部程序，当外部程序结束后言主程序立即响应

Delphi 获取文件大小方法

Delphi d10.x 安卓app开发中创建密钥库文件

Delphi 2010 复制整个文件夹(当然包括嵌套文件夹)

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

转载请注明出处：木庄网络博客 » Delphi Inc () 计数用法