快乐江米-CSDN博客

原创自编控件：带数据感知的listview控件！

unit ListView1;interfaceuses Windows,Messages,Dialogs,SysUtils, Classes, Controls, ComCtrls,DB,DBCtrls;type TdbListView = class(TListView) private FDataLinkDIR,FDatalinkFILE:TFieldDataLink; // function Getdatasource: TDataSource; // procedure Set

2011-03-20 14:07:00 538

原创搜集的函数：listview中根据扩展名获得图标

function Tmainfrm.GetFileIconByExE(const ExEName:string;SmallIcon:boolean):HICON; var sinfo: SHFILEINFO; sFlag: INTEGER; begin // if copy(ExEname,1,1)<>'.' then ExEName:='.'+exEName; //必须有"."，比如 .doc, .xls,

2011-03-20 14:02:00 382

原创搜集的函数：获得treeview节点路径

Function Tmainfrm.NodePath(Value:TTreeNode):String; begin if Value.Level=0 then Result:=Value.Text + '/ ' else Result:=NodePath(Value.Parent)+Value.Text + '/ '; end;

2011-03-20 13:58:00 476

原创郁闷！

飞秋在我们单位使用的非常好！最近老一说如果能有发送离线文件的功能就更好了。于是想到了飞秋的第二次开发。一看c，我晕。d都是自学的，现在重新开始自学c++。如果哪位高人有更好的办法，请赐教。或者提供一些解决局域网离线文件的传送的方案。在下感激不尽！

2009-12-08 11:16:00 349

原创用D制作计时器，原理，三位数减三位数。

1、变量声明：var h1,m1,s1,h2,m2,s2,h3,m3,s3:integer; time1,time2:string; ptime1,ptime2:pchar; timelist1,timelist2:tStringList;2、在计时开始按钮单击事件中，获得当前时间，并分割出时、分、秒。 time1:=timetostr(time);

2008-08-25 10:04:00 637

乒乓球计分器

1、计分，语音播报比分和选手名称。 2、左键点击比分加分，右键点击比分减分。 3、随时换场地，换发球。 4、比分记录。11球制。需要源代码请联系我。

2015-12-19

16进制颜色值转RGB数值（0-255）

本小品纯属原创，能把16进制的颜色值转成RGB数值（0-255）。如：bfbfbf=>191,191,191 使用时请输入格式为：#bfbfbf，位数小于7位将不做分析。如果只有六位颜色值，请手动在前加上“#“。改进中：自动补充到7位，前自动加#。

2013-04-26

查看ip mac 计算机名硬盘序列号工具

点击鼠标查看本机ip mac 计算机名硬盘序列号等信息。

2009-12-08

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

原创 自编控件：带数据感知的listview控件！

原创 搜集的函数：listview中根据扩展名获得图标

原创 搜集的函数：获得treeview节点路径

原创 郁闷！

原创 用D制作计时器，原理，三位数减三位数。