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 xe5 for android 退出提示

Delphi读写文本文件 assignfile reset append

Delphi获取网卡mac地址的两种方法

Delphi反调试【初级】检测法

Delphi fmx getapppath 获取app路径

Delphi dos批命令打开应用程序同时关闭dos窗口本身

Delphi radiogroup 组件基本用法

Delphi stringgrid1读取加载excel文件

Delphi dbgrid适应宽度

Delphi datasnap传输流/文件问题

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

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