type userarray=array of string;function split(s:string;dot:char):userarray; var str:userarray; i,j:integer; begin i:=1; j:=0; SetLength(str, 255); whi Read More
posted @ 2017-07-10 20:59 findumars Views(305) Comments(0) Diggs(0)
IdTCPClient属性1 : IOHandler 如果有相应的输入/输出操作,那么IOHandler相对应的组件或接口将提供一个虚拟/抽象的输入/输出接口给相应的网络连接2 : Intercept 如果有一个网络连接正在使用,那么Intercept 提供的组件或接口将可以拦截相应的网络数据流中的 Read More
posted @ 2017-07-10 20:58 findumars Views(1932) Comments(0) Diggs(0)
很多朋友一直都在问CreateThread如何传递多个参数,CreateThread传递参数的方式是指针传递的,所以这里也可以利用指针来做!Demo 关键代码如下: type TfrmTestThread = class(TForm) Button1: TButton; procedure Butt Read More
posted @ 2017-07-10 20:56 findumars Views(2411) Comments(0) Diggs(0)
The following are the Windows API (and former DOS) IO errors, which are also the IO errors often returned by Delphi programs, and which are generally Read More
posted @ 2017-07-10 20:51 findumars Views(3042) Comments(0) Diggs(0)
以下设置可实现窗体无最大化,并且不能拖大拖小BorderIcon 设为 biMax[False] biHelp [False]BorderStyle 设为 bsSingle 参考 可以通过设置窗体的属性以及编程的方法,限制和控制窗体的变化。如让窗体不能最小化、最大化. 1.通过属性设置方法使用For Read More
posted @ 2017-07-10 20:49 findumars Views(1547) Comments(0) Diggs(0)