广州市多春鱼软件工作室

2017-1-27

2016-7-13 Delphi

用于增减变量的并不是常用的Inc/Dec过程，而是用了InterlockedIncrement/InterlockedDecrement这一对过程，它们实现的功能完全一样，都是对变量加一或减一。但它们有一个最大的区别，那就是InterlockedIncrement/Interlo...

2016-4-9 Delphi

procedure TFrmMain.ClearControls(AParent: TWinControl); var i: Integer; begin for i := AParent.ControlCount - 1 downto 0 do begin ...

2016-3-8 Delphi

// 字串含中文 by Aone function IsIncludeChinese(Str: String): Boolean; var i: Integer; UCS4Str: UCS4String; begin ...

2016-2-5 Delphi

unit DateUtils; interface uses SysUtils, Math, Types; // 把完整时间分解成日期和时间两部分 function DateOf(const AValue: TDateTime): TDateTime; ...

2016-1-1 Delphi

type TShutdownAction = (saLogoff, saReboot, saPoweroff); function Shutdown(Action: TShutdownAction; AForce: Boolean): Boolean; &...

2015-9-1 Delphi

Delphi XE UP1 还没有预热，RAD Studio 10 Seattle又来了，快得就像玩版本号变化一样。 ISO光盘镜像网盘下载地址（请各位下载后检查MD5）版本：23.0.20618.2753 大小： 7,717,953,536 ...

2015-8-10 Delphi

Function MoneyConvert(mmje:real): string; const s1: string = '零壹贰叁肆伍陆柒捌玖'; s2: string = '分角元拾佰仟万拾佰仟亿拾佰仟万'; Function StrTran(const ...

2015-8-6 Android

Google被和谐了，连Android SDK下载也麻烦了，想升级SDK怎么办？直接到这里就可以一次性满足你。下载地址：http://www.cnblogs.com/bjzhanghao/archive/2012/11/14/android-platform-sdk-downlo...

2015-7-24

玩了一个小时，感觉还不错，界面有不少变化，值得拥有。