Lasombra

文字较多，请耐心看完。解释得详细点总是比一笔带过的好。有说的不清楚或错误之处，欢迎拍砖。[color=blue]--2010.10.15更新[/color] 补充一点，Delphi5加载了模块后要调试dll，别忘了将project->project option->Linker底下的Exe and Dll options中，Include TD32 debug info 与 ...

{从字符串中提取单词的函数}procedure StrToWordList(str: string; var List: TStringList);var p: PChar; i: Integer;begin if List = nil then List := TStringList.Create; List.Clear; {去除重复} Lis...

版本是Delphi6，连接数据库ORACLE，使用ADOConnection，ADOQuery 情况是这样的，我写的一个小软件中有个MEMO控件是供用户输入SQL语句的，输入的SQL语句直接提交到ADOQuery控件的SQL中然后提交 在测试的时候，我写了一条短语句，加不加分号都是可以的，比如 select * from hr_rpt; --...

在你选择构件时按住shift键再点击构件，就可连续地在程序中画出构件，不用时就点击构件栏的箭头标记即可取消。当你画构件时，按住Alt键可精确地画出你所需要的大小，同样，按住Alt键然后移动构件可精确地移动了。 在代码框中，按住ctrl健并点击函数，就可以看到这个函数的定义方法(一般情况下)。高级些的就是查找法：把这个API的函数名复制下来，然后用查找文件的方法，查找包...

[code="delphi"]var: key: string; //加解密关键字 percent1: Double; //加解密转换百分比，与关键字一同构成一个加密解密算法//移位解密函数function TfrmCryptograph.DeCode(aCryptograph, aKey: string): string;var i,k...

做了一个百叶窗小程序碰到了几个问题，比如说两个用到LoadFromFile函数的地方第一次可以识别相对路径而如果我更改了其中一个的路径使其变为硬盘上某个绝对路径那另外一个LoadFromFile就不能识别原先的相对路径了，很奇怪我采取了加判断绕过这个问题的方法先上代码，主要的是shutter单元，是作为一个组件来编写的另外还写了个测试单元。主要针对Shutter的某些属性进...

万老师的博客里对TStringList这个类做了简明实用的描述，大家可以去看一下。http://www.cnblogs.com/del/archive/2009/03/08/990040.html而我写这个短篇的意图在于补充。TStringList的Sorted属性是可以自动排序的，但是，它的排序是逐位比较的。例子如下：链表： aList:TStringList;...

碰到了这个问题，数据库中某字段，比如l_id类型是number(10)IDE:delphi5；数据库连接方式：BDE数据库：oracle 10.2.0问题出现在添加字段的时候，l_id是number(10)照理说add fields应该对应TIntegerField可是选出来的结果是TFloatField。手动修改pas和dfm文件中字段类型后，将TQuery置为tru...

之前做了一个对将数据导出到Excel的性能优化。原有程序对格式的控制比较精致，但是缺点在于它是逐cell写数据的，效率是在是太低了，200万数据导了三个小时。但好处是这样子进度比较好跟踪。要注意，excel每页最大允许记录数是65536行，列为256列，所以最好要定义个全局常量来限制。一般来说列是不会超过256的，行是很容易超过。目前我所找到的最快的方法有两种1.利用O...