2013年11月27日
字符串函数_比较字符串与字符串集合
摘要： 引用StrUntil.pas单元里面有两个函数可以比较字符串与字符串集合，判断是否字符串在字符串集合中。函数 function AnsiMatchStr(const AText: string; const AValues: array of string): Boolean; $[StrUtils... 阅读全文
posted @ 2013-11-27 23:52 胡伟峰 阅读(293) 评论(0) 推荐(0) 编辑
TClientDataSet中关于TField、TFieldDef动态创立字段的应用
摘要： //使用　TFieldDef　建表: begin with　ClientDataSet1.FieldDefs　do begin Add('Name'　,　ftString,　12,　True);　{　True　表示是必填字段　} Add('Age',　ftInteger); end;... 阅读全文
posted @ 2013-11-27 22:12 胡伟峰 阅读(443) 评论(0) 推荐(0) 编辑
2013年11月22日
Dll学习一_Dll 创建并动态引用窗体且释放窗体Demo
摘要： 1、新建Dll工程2、Dll工程全部代码library SubMain;{ Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND y... 阅读全文
posted @ 2013-11-22 15:10 胡伟峰 阅读(433) 评论(0) 推荐(0) 编辑
2013年11月20日
DevExpress12.2.6 安装顺序记录
摘要： 环境DelphiXE，实测DevExpress手工安装顺序：1、ExpressCore Library2、XP Theme Manager3、ExpressGDI+ Library4、ExpressLibrary5、ExpressCommon Library6、ExpressDataControll... 阅读全文
posted @ 2013-11-20 21:32 胡伟峰 阅读(467) 评论(0) 推荐(0) 编辑
2011年11月2日
ClientDataSet 心得
摘要： 1. 与TTable、TQuery一样，TClientDataSet也是从TDataSet继承下来的，它通常用于多层体系结构的客户端。很多数据库应用程序都用了BDE，BDE往往给发布带来很大的不便，因而TClientDataSet最大的特点是它不依赖于BDE(Borland Database Eng... 阅读全文
posted @ 2011-11-02 11:23 胡伟峰 阅读(417) 评论(0) 推荐(0) 编辑
2011年10月25日
批处理比较数值大小
摘要： EQU - 等于 NEQ - 不等于 LSS - 小于 LEQ - 小于或等于 GTR - 大于 GEQ - 大于或等于 阅读全文
posted @ 2011-10-25 15:39 胡伟峰 阅读(800) 评论(0) 推荐(0) 编辑
部分系统路径
摘要： 当前系统盘符%systemdrive%或 %HOMEDRIVE%C:\ 当前系统目录%systemroot%或 %Windir%C:\WINDOWS 当前用户文件夹%UserProfile%或 %HOMEPATH%C:\Documents and Settings\Administrat... 阅读全文
posted @ 2011-10-25 15:19 胡伟峰 阅读(88) 评论(0) 推荐(0) 编辑
改变标题字体，菜单字体(未测试)
摘要： varncm: TNonClientMetrics;beginncm.cbSize := SizeOf(TNonClientMetrics);{get old non client metrics}SystemParametersInfo(SPI_GETNONCLIENTMETRICS, SizeO... 阅读全文
posted @ 2011-10-25 12:51 胡伟峰 阅读(282) 评论(0) 推荐(0) 编辑
获取系统字体列表
摘要： Uses Forms,........implementation{$R *.dfm}procedure TForm1.Btn_1Click(Sender: TObject);begin Mmo_1.Clear; Mmo_1.Lines := Screen.Fonts;end; 阅读全文
posted @ 2011-10-25 12:27 胡伟峰 阅读(268) 评论(0) 推荐(0) 编辑
添加字体
摘要： for /f %%a in ('dir *.ttf /x /b') do (dir %windir%\fonts\%%a>nul 2>nul||(copy %%a %windir%\fonts>nul 2>nul&rundll32.exe gdi32.dll,AddFontResourceA %wi... 阅读全文
posted @ 2011-10-25 08:51 胡伟峰 阅读(137) 评论(0) 推荐(0) 编辑