DELPHI不过期了...
Delphi 2010只剩下六天的试用期了,15天的试用期过得真快.百度了很久也依旧未搜索到破解补丁,看来这版本的防盗版工作做得确实不错.无奈之下只好自己对它做做手脚了.
测试了一下,delphi只有在启动程序的时候把时间记录给更新到当前日期,系统内并不驻留相应的监视进程,而且只针对日期而非时刻来判断.这样就很好办了.只要写一个自动修改系统时间的软件,让时间定格于2010-1-29日,这样DELPHI就可以永不过期了...而我也可以放心地下载他的更新补丁包了. 本来想把这程序扔到网上的,不过想想,能写代码的人这几行代码绝不是问题,无谓多此一举了...
呵.不过用盗版终究不是好事,等哪天他把编译器降价到4位数我再购买吧...
相关文档：
DELPHI用得不太多，加上脑筋不好使，就记一下最常用对开发效率很有帮助的几个：
Ctrl+鼠标左键：查找定义
Ctrl+Shift+↑：上一操作与其正好相反，由定义查找实现
Ctrl+Shift+空格：在一个函数没有输入参数的括号内按下此快捷键时会出现函数相关参数的提示信息，包括重载的所有函数的信息 ......
Chr 将一个有序数据转换为一个ANSI字符
Ord 将一个有序类型值转换为它的序号
Round 转换一个实型值为四舍五入后的整型值
Trunc 转换一个实型值为小数截断后的整型值
Int 返回浮点数的整数部分
IntToStr 将数值转换为字� ......
近来发现一个Delphi莫名其妙的bug，当使用SetOptionalParam时，不能使用一连串数字的字符串，如'101'，注意，是带引号的。在SaveToFile时，就会出现'Invalid field type'的异常，真是百思不得其解！连'001'这种串也不行，去掉引号，直接按数字赋值，则正常。
procedure TForm1.Button1Click(Sender: TObject);
var
......
delphi中的realAudio ActiveX控件的使用
作者:seeker 日期:2009-04-26
1：{=====================打开=========================}
procedure TRealOneFrm.OpenBtnClick(Sender: TObject);
begin
if OpenRMDlg.Execute then
begin
RealAudio1.SetSource(RealOneFrm.OpenRMDlg.FileName);
RealAudio1.DoPlay;
EndPos ......
Delphi中实现全角转半角
function SbctoDbc(s:string):string;
var
nlength,i:integer;
str,ctmp,c1,c2:string;
{
在windows中，中文和全角字符都占两个字节，
并且使用了ascii chart 2
(codes 128 - 255
)。
全角字符的第一个字节总是 ......
