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 randomfrom 随机返回字符串数组avalues中的一个元素

Delphi 跳出循环的几种方法

学习使用Delphi for android 调用java类库

Delphi 打开文件夹并定位到一个文件

Delphi 获取系统托盘程序列表

Delphi获取系统安全软件信息

Delphi中clientdataset的用法小结

Delphi http远程屏幕源码

Delphi中单独编译pas生成dcu文件

Delphi 自动把combobox控件的内容里没有的内容加入列表中

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

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