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 �c 如何使用datasnap获取作为标头传递的标记？

Delphi删除只读文件

Delphi 获取系统的硬盘分区及使用信息

Delphi trayicon1如何把窗体关闭到系统托盘

Delphi调试服务程序的两种方法

Delphi xe8 用httpclient下载文件

Delphi检测android mock位置

Delphi设置光标在edit右边

Delphi获取内存及cpu信息的函数

Delphi 进程程序多开调用单元

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

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