遇到TDate与TTime合并为TDateTime的问题,想想应该很容易,没想到发现一个百思不得其解的问题,在这里跟大家分享并求教。
比如有两个组件DateTimePicker1和DateTimePicker2,Kind属性分别为dtkDate和dtkTime,一个用来定义TDate值,一个用来定义TTime值,现在要将TDate与TTime合并为TDateTime,我首先想到的方法是以下语句:
NewDateTime: TDateTime;
...
NewDateTime := Int(DateTimePicker1.Date) + Frac(DateTimePic...
Delphi阅读全文
http://www.bergsoft.net/ 版本:5.5 时间:Nov 20 2011
一、组件安装及32-bit Debug库编译
1、解压组件,文件夹名称为NextSuite;
2、拷贝至Delphi根文件夹下,如:C:\Program Files\Embarcadero;
3、用Delphi载入:Delphi XE 2.groupproj;
4、Tools->Options...->Environment Options.Delphi Options.Library右侧选择平台32-bit Windows,在Library Path和Debug DCU Path中加入路径:C:\Program Files\Embarcadero\...
BergSoft, Delphi, 编程阅读全文
一、为编译通过修改的内容
1、RzBorder.pas(for 32-bit and 64-bit)
查找:
TRzLEDValidChars = Chr( 32 )..Chr( 255 );//' '..' ';
修改为:
TRzLEDValidChars = Chr( 32 )..Chr( 156 );//' '..' ';
注:32-bit和64-bit均须修改。以上修改导致TRzLEDDisplay组件可能会有问题。
2、RzGrafx.pas(for 64-bit)
查找所有(64-bit编译报错位置):
asm
MOV EAX,C
MOV AH,GreenDWord.Color
MOV AL,RedDWord...
Delphi, Raize, 编程阅读全文