摘要:
对那个10-2进制转换的程序,我很高兴很多朋友都提供了比我要简洁的好方法,这是看到一位朋友的blog后,写的10-16的转换,一开始我还写错了,呵呵,现在将正确的留在网志,他要求是自己写转换而不是利用类似format(integer %0:d in hex is %0:.8x, [value]);当然,有简单方法我们要用简单方法哦接着介绍自己的方法var hexarr: array[1..15]......
摘要:
最近一直为自己制作的相册软件(http://www.tonixsoft.com/ultraalbum/index.php?lang=chs)打开大文件时速度慢而郁闷,我以前的做法是先用tfilestream打开一个文件,然后在其中找到其中的数据段,把其中内容复制给一个tmemorystream,之所以要再将它复制给一个独立的tmemorystream是因为,后续处理的一个文件型数据库组件必须接受......
如何显示子线程的当前状态
如何显示子线程的当前状态
刚刚完成的一个小程序是分析使用竖向排列的24针打印头打印一个数据文件,分析每根针的出针次数等一些参数,给机械开发部门做寿命分析等等. 【程序编程相关:
列出本机所有的Ip】
【推荐阅读:
delphi "for&quo】
由于数据文件可能很大,分析时间会比较长,因此要能够显示分析进度,否则让比人以为程序死掉了那不是人生一大憾事. 【扩展信息:
浅谈Delphi如何控制Excel操作】
因此,分析工作放在子线程中进行,通过产生“状态改变事件”与“分析结束事件”来通知主线程更新状态.线程定义如下:
//==================================
// mythread.pas
//===================================//
tstatuschangedevent = procedure (percent: integer) of object; //状态改变事件
tfinishedevent = procedure of object; // 分析结束事件
tmythread = class(tthread)
private
fonstatuschanged: tstatuschangedevent;
fonfinished: tfinishedevent;
protected
procedure execute; override;
public
onstatuschanged: tstatuschangedevent read fonstatuschanged write fonstatuschanged;
onfinished: tfinishedevent read fonfinished write fonfinished;...
下一页 摘要:
发现delphi" >delphi 2005的几个小bug这两天没事,又拿d2005试用了几次,总的感觉是:可能以前我对d2005的期望太高了!下面是发现的几个小bug:1、孪生的visual 新建一个vcl application, 在form上放置一个imagelist1组件,选中imagelist1,在object inspector中,把visual属性集折叠多次,你就会发现出现两个了&......