如果类的一个成员函数的返回值是string类型，需要注意一个问题 其返回值可能是错误的 例如函数的实现如下 function GetString( s: string ): string;begin Result := Result + s;end; 调用方式如下： procedure test() Read More
posted @ 2017-07-24 20:04
findumars
Views(1002)
Comments(0)
Diggs(0)
也是看别人写的，但是不容易找到，就转发一篇delphi版本的 function GetLine(X, Y: integer): TPoint;var OldFont : HFont; Hand : THandle; TM : TTextMetric; Rect : TRect;begin Hand Read More
posted @ 2017-07-24 20:00
findumars
Views(926)
Comments(0)
Diggs(0)
惭愧，编了这么多年程序，还没用过拖拽功能 这次同事要实现图标互换的功能，让我帮忙看一下，于是趁机研究了一下拖拽事件，发现还是比较简单的 参考了http://topic.csdn.net/u/20081015/14/98eef84c-0d2f-43a7-aa82-eef7028ef4f7.html里3 Read More
posted @ 2017-07-24 19:58
findumars
Views(2627)
Comments(0)
Diggs(0)
Delphi中的线程类 - TThread详解 2011年06月27日 星期一 20:28 Delphi中有一个线程类TThread是用来实现多线程编程的，这个绝大多数Delphi书藉都有说到，但基本上都是对TThread类的几个成员作一简单介绍，再说明一下Execute的实现和Synchroniz Read More
posted @ 2017-07-24 19:57
findumars
Views(2155)
Comments(0)
Diggs(0)
第一种：比较简单，根据标题，找到窗口，再找到进程，杀死进程 [delphi] view plain copy procedure KillProgram(WindowTitle : string); const PROCESS_TERMINATE = $0001; var ProcessHandle Read More
posted @ 2017-07-24 19:55
findumars
Views(2448)
Comments(0)
Diggs(0)
线程的释放方式有两种：一种是线程在运行完成后自动释放，一种是手动释放。 无论是那种释放，都应该在线程停止后进行释放。 然而线程的停止也有两种情况：一种是不需要设置标志位，直接完成；一种是由于execute方法中做了循环，需要设置标志位才能停止。 如果线程已经停止并且自动释放，再去手动停止，就会报错。 Read More
posted @ 2017-07-24 19:55
findumars
Views(2862)
Comments(0)
Diggs(0)
看了季世平老兄的C++代码后翻译过来的 [delphi] view plain copy unit clipbak; interface uses SysUtils, Classes, Clipbrd, Windows, Contnrs; type TClipData = class Format: Read More
posted @ 2017-07-24 19:54
findumars
Views(509)
Comments(0)
Diggs(0)
找了几个，终于找到一个好用的 function GetDLLFileExports( szFileName: PChar; mStrings: TStrings): Boolean;var hFile: THANDLE; hFileMapping: THANDLE; lpFileBase: Poin Read More
posted @ 2017-07-24 19:50
findumars
Views(2061)
Comments(0)
Diggs(0)
Log4d是apache下的一个delphi开源子项目，它的设计思想来源于Log4j，但并不是Log4j的子项目，主要目标是开发环境与生产环境下的日志输出。 一、下载https://sourceforge.net/project/showfiles.php?group_id=145326二、安装将源 Read More
posted @ 2017-07-24 19:50
findumars
Views(1268)
Comments(0)
Diggs(0)
以前好多次遇到了activex无法调试的问题，一直没搞清楚原因，最近终于搞清楚了，原来是IE由单线程变成了多线程。 下面就说说调试activex的方法 一、简单的方式，这种方式只适用于浏览器为单线程的情况： 在delphi的run菜单里的parameter里设置host application和pa Read More
posted @ 2017-07-24 19:49
findumars
Views(692)
Comments(0)
Diggs(0)
最近实现一个功能，使用delphi2009以TCP调用Java端的接口，接口要求先发送字符串的长度，然后再发送字符串内容，并且字符串要求是utf8格式的 调试了好长时间，才终于发现解决办法，或者说发现问题所在 我用了utf8encode方法，然后调用一个函数，在这个函数中将字符串转换为tidbyte Read More
posted @ 2017-07-24 19:47
findumars
Views(769)
Comments(0)
Diggs(0)
在combobox所在的窗口的Formshow事件里调用即可 [delphi] view plain copy procedure SetComboBoxListWidth( AComboBox: TComboBox ); var i: Integer; nMaxLen, nMinWidth: in Read More
posted @ 2017-07-24 19:46
findumars
Views(1875)
Comments(0)
Diggs(0)
原文地址：http://hi.baidu.com/rarnu/blog/item/4ec80608022766d663d986ea.html 在js中，有一个比较特殊的对象，即window.external，用它可以调用浏览器提供的外部方法一个很简单的例子就是将当前页添加到收藏夹window.ext Read More
posted @ 2017-07-24 19:45
findumars
Views(1242)
Comments(0)
Diggs(0)
这段时间在做一个delphi界面打开网页的功能，且此网页所在窗口可完整显示，可缩小到另一个窗口的panel上显示 可是在改变网页所在窗口时，WebBrowser控件变成了空白 上网google了半天，终于在csdn上查到了解决方案： 原帖地址：http://bbs.csdn.NET/topics/2 Read More
posted @ 2017-07-24 19:44
findumars
Views(857)
Comments(0)
Diggs(0)
前言： 几个月前接到一个任务：将一后台程序访问数据库的方式从BDE改为ADO，原因是由于业务量的增加，通过BDE不论是向数据库写入数据还是从数据库中读出数据的速度都变得无法忍受，大家都知道ADO在数据库访问速度方面比BDE要快的多了（我写了一个测试程序使用ADO比使用BDE快了近100倍!）。这个任 Read More
posted @ 2017-07-24 19:41
findumars
Views(1845)
Comments(1)
Diggs(2)
30岁以前，这个时间段，应该是人学习和积累的时间段，这个时间段，就是努力学习的时间段。这个时间段，你一定要把时间花在解决问题的技能上。就是说，你一定要练就成的技能是——你能解决大多数人不能解决的问题。使蛮力埋头加班苦干，当一个搬砖老黄牛的是肯定没有前途的。如果你不幸呆在了一个搬砖的地方，天天被业务压 Read More
posted @ 2017-07-24 05:42
findumars
Views(795)
Comments(0)
Diggs(0)
浙公网安备 33010602011771号