[原]九宫格数值分组

simonhehe

解答网友问题, 记录如下: 原始数据 11,38 11,36 11,37 11,39 11,40 12,34 12,35 12,36 12,37 12,38 12,40 13,33 13,34 13,35 13,36 13,40 14,32 14,33 14,34 14,35 14,40 15,31 15,32 15,33 15,34 15,40 16,30 16,31 16,32 16,39 17,29 1,1 2,0 2,1 2,3 2,4 3,1 处理代码 unit unit

2017-06-26 11:09:20  

[原]delphi 单例模式

simonhehe

单例模式简单示意, delphixe下测试通过 unit singleton; (* 单例模式适用于辅助类, 一般伴随于单元的生命周期 *) interface uses sysutils; type tsingleton = class public class function newinstance : tobject; override; class function getinstance : tsingleton; destructo

2017-06-26 11:09:20  

[原]修改cxgrid的分组标题

simonhehe

修改cxgrid的分组标题   delphi xe测试通过. 单元文件 unit unit15; interface uses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, cxgraphics, cxcontrols, cxlookandfeels, cxlookandfeelpainters, cxstyles, dxskinscore

2017-06-26 11:09:20  

[原]delphi实现执勤表

simonhehe

按周循环排班, 员工人数及值班人数可自定义. 单元文件 unit unit15; interface uses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; type tform15 = class(tform) mmo1: tmemo; cbb_month: tcombobox; pro

2017-06-26 11:09:20  

[原]floodfill用法记述

simonhehe

函数说明如下: {x,y:当前坐标 color:针对该色彩执行填充事件fillstyle:fsborder(从当前位置开始填充,直到遇到color),fssurface(当前底色和color相同时填充) }procedure tcanvas.floodfill(x, y: integer; color: tcolor; fillstyle: tfillstyle); 示例代码 procedure tform15.btn1click(sender: tobject); cons

2017-06-26 11:09:20  

[原]监控指定文件夹

simonhehe

该功能在delphi xe + xp 下测试通过 o2dirspy.pas    (该单元获取自网络) {====================================================================} { toxygendirectoryspy component, v1.6 c 2000-2001 oxygen software } {----------------------------------

2017-06-26 11:09:20  

[原]静态/动态调用dll封装窗体(模态/非模态)

simonhehe

看到有网友需要这样的例子,所以写了一个.   有不对或不合理的地方请跟帖指导. delph xe下测试通过. dll项目文件 library project10; uses sysutils, classes, forms, unit14 in 'unit14.pas' {form1}; {$r *.res} function edebtmoney(h: thandle): integer; begin application.handle :=

2017-06-26 11:09:20  

[原]jpeg图片压缩

simonhehe

一个压缩jpeg图片的过程 uses jpeg; procedure zipjpeg; var jpg: tjpegimage; bmp: tbitmap; begin jpg := tjpegimage.create; bmp := tbitmap.create; try jpg.loadfromfile('c:\a.jpg'); bmp.width := jpg.width; bmp.height := jpg.height;

2017-06-26 11:09:20  

[原]程序隐藏状态栏全屏显示

simonhehe

程序可以在隐藏状态栏全屏显示和原始状态显示之间切换 unit unit13; interface uses   windows, messages, sysutils, variants, classes, graphics, controls, forms,   dialogs, stdctrls; type   tform13 = class(tform)     btn1: tbutton;    

2017-06-26 11:09:20  

[原]oxygen directoryspy delphi版文件监控

simonhehe

下载了oxygen dir watcher, 需要安装控件, 直接改成单元引用了 上代码: o2dirspy.pas {====================================================================} { toxygendirectoryspy component, v1.6 c 2000-2001 oxygen software } {------------------------------------------

2017-06-26 11:09:20  

[转]jpeg文件编/解码详解

simonhehe

学习jpeg文件格式过程中看到的高质量博文, 转载过来, 谢谢博主 [我在这里wince/linux/android] 原文链接: jpeg文件编/解码详解 jpeg文件编/解码详解 cat_ng 猫猫 jpeg(joint photographic experts group)是联合图像专家小组的英文缩写。它由国际电话与电报咨询委员会ccitt(the international telegraph and telephone con

2017-06-26 11:09:20  

[转]exif格式分析

simonhehe

学习jpeg文件格式过程中看到的高质量博文, 转载过来, 谢谢博主 [lsiyun的专栏] 原文链接   目录(?)[-] jpeg格式和标志 exif中使用的标志exif数据结构 tiff头的格式ifd图像文件目录image file directory数据格式ifd数据结构 缩略图 jpeg格式缩略图tiff格式缩略图 exiftiff 中使用的标签号

2017-06-26 11:09:20  

[原]jfif格式的jpeg属性读取

simonhehe

jfif格式的jpeg属性读取, 读取了标准文件头, 其它内容结构需要逐项解析, 暂时没有做, 有感兴趣的朋友可以继续完善. procedure tjfif.readappn; var wrd, wrd2 : word; str : string; begin wrd := getword; while (wrd >= $ffe1) and (wrd <= $ffef) do begin wrd2 := getword -

2017-06-26 11:09:20  

[原]jpeg图片属性读取exif

simonhehe

jpeg图片属性读取 测试环境  delphi xe 主要功能代码获取自其他作者 单元文件 unit utjpeginfo; interface uses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; type tfrmjpeginfo = class(tform) btnopenjpeg: tbutt

2017-06-26 11:09:20  

[原]delphi读取webbrowse中的图片显示在image中

simonhehe

delphi读取webbrowse中的图片显示在image中 ================================================== aa.html 单元文件 unit unit11; interface uses windows, messages, sysutils, variants, classes, graphics, controls, forms

2017-06-26 11:09:20  

[原]delphi提取任意长度随机数

simonhehe

设定随机数范围, 返回数组长度, 得到一组不重复的随机数 unit unit11; interface uses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; type tform11 = class(tform) btn1: tbutton; procedure btn1click(sender: tobj

2017-06-26 11:09:20  

[原]delphi版ip地址与整型互转

simonhehe

直接上单元代码 unit unit11; interface uses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; type tform11 = class(tform) edt1: tedit; btn1: tbutton; edt2: tedit; btn2: tbutton;

2017-06-26 11:09:20  

[原]多个webbrowser的按键响应

simonhehe

使用场景: 多个webbrowser同时使用, 分别响应回车, 右键菜单等事件 已在delphi xe测试通过 //单元文件 unit unit11; interface uses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, olectrls, shdocvw, comctrls, activex; type tform11 =

2017-06-26 11:09:20  

[原]delphi仿ie浏览器标签页效果演示

simonhehe

看到有同学提问, 自己试炼了一把, 只为实现标签页效果, 未作细化和完善工作. 路过的同学多多指教 -------------------------------------------------------------- a.html <!doctype html public "-//w3c//dtd xhtml 1.0 transitional//en" "http://www.w3.org/tr/xhtml1/dtd/xhtml1-

2017-06-26 11:09:20  

[原]delphi代码创建bde别名示例

simonhehe

实际应用中可能需要程序自动创建bde别名 特试建 mssql和paradox数据库别名 //单元代码 unit unit11; interface uses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls, dbtables; type tform11 = class(tform) mmo1: tmemo; btn1

2017-06-26 11:09:20  

中国古代文学 Global world news developer online documents developer online toolset Global E-commerce Global world images