追

原文作者整理了大量用FPC开发的应用，或者入门示例，值得学习。

(一) 使用动态创建的方法首先创建 Excel 对象，使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( ''Excel.Application'' );1) 显示当前窗口：ExcelApp.Visible := True;2) 更改 Excel 标题栏：ExcelApp.Caption := ''应用

/// 全部的请参看 Excel9.OLB 文件 ,下面只是一些常量定义！Excel; // Microsoft Excel 9.0 Object LibraryEnum Constants;  xlAll = $FFFFEFF8;  xlAutomatic = $FFFFEFF7;  xlBoth = 1;  xlCenter = $FFFFEFF4;  xlCh

compoment——import compoment，micorsoft excel

---------------------------------------------------------------字符串替换：var ss,s: string;begin ss := '2007-2008'; s := StringReplace(ss,'00','x',[rfReplaceAll]); ShowMessage(s); //2x7-

1、运行Installer\EhLibInstaller.exe。install。2、ide下，打开Embarcadero\RAD Studio\9.0\Components\EhLib\Lib\EhLibProjGroup160.groupproj，运行 project/build all project。此处如果xe2安装不完全，会出现编译错误提示。比如ibexpress编译错误提示，是因

1、DBGridEh1-->OptionsEh-->dghAutoSortMarking   设置为True。2：DBGridEh1-->Columns-->Title-->TitleButton        设置为True。3、根据自己使用的数据库连接组件，USE中加入相应单元。EhlibAdo或者EhlibBDE、EhlibCDS。4、但只能对查询类进行排序，table类是不行的

function TFormMain.SmallTOBig(small:real):string;var  S1,B1,w1,qw1:string;  qw,dwz,q:integer;begin  s1 :=formatfloat('0.00',small);     //格式化字符串  dwz:=pos('.',s1);                  //求小数点位

珠海西门子表计公司 汪永荣 ---- Delphi 4.0对Internet编程提供了强大的支持，Delphi 4.0编写CGI非常容易， Delphi 4.0本身提供了例程。但是笔者在实践中遇到需要CGI程序根据数据库动态 返回图象的情况，很多文章推进使用Cgi-Expert或有关的OCX控件，使用控件不仅 带来额外的开销，且缺乏灵活性，那么能否不使用这些控件自己编写代码实现，现 推荐一

想检查一个数是否2的n次幂，网上没找到现成的delphi函数，自己写一个，这里记录一下。顺便庆祝一下五四节，各位，节日快乐！// 判断一个数字是否2的n次方幂function is2nPower(num: integer):boolean;begin Result := false; if (num mod 2 <> 0) then Result := ...

1、显示所有窗口的标题2、根据关键字查询窗口3、某一窗口内的所有控件及其内容 .unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Con

原文：http://blog.youkuaiyun.com/iseekcode/article/details/4740168    原文的代码可能适用于delphi7，我修改了一下，使它可以在delphi xe2下运行，效果还不错。 代码：unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System

将中文名称通过AnsiToUtf8转换为utf，生成如下sql:update `dev_columns` set `column_cn_name` = "鐢ㄦ埛鍚?,`column_show` = 1 where `id` = 8 出现如下错误提示SQL Error: You have an error in your SQL syntax; check the manual that corre

 在mysql数据库的连接参数设置中，使用以下下划线部分设置：    ZConnectionJise.Protocol := ssVersion;    ZConnectionJise.Database := ssDbName;    ZConnectionJise.Port := strToInt(ssPort);    ZConnectionJise.HostName := ssHost;  

数据库中，将对应的字段类型设置为整形双击dhGrid，在弹出的列编辑器中，选定对应的字段名称，该字段属性编辑相关属性为：1、checkBoxes: true2、keyList:  

服务及对应端口　　　 　　　　　　服务及对应端口　　　Echo（7）　　　　　　　　　　　　　　　　　FTP（21）Ssh（22）　　　　　　　　　　　　　　　　　Telnet（23）SMTP（25）　　　　　　　　　　　　　　　　 DNS（53）HTTP（80）　　　　　　　　　　　　　　　　 MTA-X.400 over TCP/IP（102）pop3（110）　　　　　　　　　　　　　　　　

用#9查找tab符号：ipos := pos(#9,sTmp)

 本文整理自http://www.myispace.cn/clips/42270fae94e64fe6b92e2c6dca0fa301.htm 安装： Vista下安装delphi7，出现了错误提示"this program has known compatibility issues"   点击"Run program"，执行安装，直到安装完毕，不会出现任

delphi7 下载ODAC.5.70.0.30.FS.rar。 解压缩，并安装该控件:ReadMeSrc.txt介绍了两种方法。我们用make方法：1、修改Source/Delphi7下make.bat,C:/Program Files/Borland/Delphi7,运行2、运行Delphi7 操作Component->Install Packages->add dcl

unit UnitMain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, StrUtils, ComCtrls;type TForm1 = class(TForm) Memo1:

HAAL-DANSGN-FZR5AG-M3BSJAAL-SCDKV6-ETH2SG-KBAN安装好后，1、将“rs2010arch.slip”WinXP复制到“C:\Program Files\Embarcadero\RAD Studio\7.0\Licens

原文出处：http://blog.youkuaiyun.com/htiscold/article/details/3962817    在delphi xe2下调试运行成功。 代码： unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,

     mysql中，utf8字段内容显示在grid中是乱码，可以通过计算字段来解决。    首先启动目标数据集控件的字段编辑器以新增计算字段，右键-new fields，定义好name:ansiCn,type:string,size:50,选calculated类型，ok按钮退出。    在目标数据集控件的onCalcFields事件处理函数中撰写如下的程序代码ZTableFields