癫狂编程

摘要： unit YzDelphiFunc; interface uses ComCtrls, Forms, Windows, Classes, SysUtils, ComObj, ActiveX, ShlObj, Messages, Graphics, Registry, Dialogs, Controls, uProcess, uCpuUsage, StrUtils, CommCtrl,... 阅读全文

摘要： 一; delphi 快速导出excel uses ComObj,clipbrd; function ToExcel(sfilename:string; ADOQuery:TADOQuery):boolean; const xlNormal=-4143; var y : integer; tsList 阅读全文

摘要： SQL ROUND函数的使用 SQL ROUND函数是对数据进行制定精度的取值。 第一个参数是取值的数据，第二个参数是精度，第三个参数是数据取值模式（四舍五入还是截断），其中第三个参数是可选参数，默认是四舍五入模式。 从上面结果可以看出，数据并非只保留两位小数，而是保留两位有效小数。 从上面两次可以 阅读全文

摘要： 序： 对PHP一无所知的我，将从这里从零开始。 1.下载与安装 ThinkPHP的下载:　ThinkPHP中文站下载页面 有 核心版和完整版两种，由于不了解。所以我选择了完整版。 WampServer: 按照官方的推荐，使用集成开发环境WAMPServer （是一个集成了Apache、PHP和MyS 阅读全文

摘要： LTrim、RTrim与 Trim 函数 返回 Variant (String)，其中包含指定字符串的拷贝，没有前导空白 (LTrim)、尾随空白 (RTrim) 或前导和尾随空白 (Trim)。语法LTrim(string)RTrim(string)Trim(string)必要的 string 参 阅读全文

摘要： 在这里我必须承认自己的弱智，第一次使用phpMyAdmin竟然搞了10分钟才进去！！！ 要使用默认的用户名和密码： 用户名：root 密码：root 尼玛！坑爹啊！不说清楚让我百度了半天！！！！ 阅读全文

摘要： 由于在Windows安装了最近的更新(KB2982791, KB2970228)后，Delphi的IDE需要创建的一个文件%TEMP%\EditorLineEnds.ttr会被系统锁定，导致除非重新启动操作系统，否则Delphi 8~2010无法启动两次。 Delphi的IDE在启动时提取了一个字体 阅读全文

摘要： insert into的用法 1.一条insert into 可以插入多条记录 2.insert into 能判断主键是否冲突，和做出冲突处理 如果主键冲突的话会报错，还能写成如果冲突就更新的形式格式为 ： insert into 表名 （字段列表） values （字段值列表） on duplic 阅读全文

摘要： Delphi里使用TRichEdit，使用SetSelTextBuf时可以设置显示的字体格式，但是显示位置是在当前的插入光标后，如果人为改变插入光标的位置，比如在其他位置单，以后再插入的内容位置就没办法控制了。能不能限制每次新增加的内容都加到末尾？或者用其他的方式实现增加内容也可以，但是要能够控制这 阅读全文

摘要： int linecount=RichEdit1->Lines->Count; RichEdit1-> SelStart=SendMessage(RichEdit1-> Handle,EM_LINEINDEX,linecount,0); RichEdit1-> SelStart=RichEdit1->SelStart+linecount; 阅读全文

摘要： 急急急！！！！如何把焦点放在RichEdit的最后一行！！ 请高手指点，在线等！！！！当添加到出现滚动条时焦点就不会往下了，怎么把焦点移到最后一行 RichEdit-> Lines-> Add( "ADF "); 解决方案 添加完以后让RichEdit滚动一下： RichEdit1-> Lines- 阅读全文

摘要： ParentBackground := False; 阅读全文

摘要： if pagecontrol.activepage=TabSheet1 then是在当前显示页 解决方案 PageControl1.ActivePage 解决方案 case activepageindex 解决方案 PageControl1.TabIndex 也可以判断当前选项是第几项 解决方案 c 阅读全文

摘要： BDE打包发布实例操作步骤如下：使用软件：Setup Factory 7.0打包把C:\Program Files\Common Files\Borland Shared中的所有文件和你的开发的应用程序都加上把Borland Shared、Database Engine、DBD、DBExpress四 阅读全文

摘要： 恢复内容开始 Lazarus 使用 Free Pascal 的编译器，支持 Object Pascal 语言，与 Delphi 高度兼容，并看做后者的自由软件替代品。 Lazarus 下载与安装 我们先去 Lazarus 官网下载 http://www.lazarus-ide.org/ Window 阅读全文

摘要： Lazarus的设计目标是应用Free Pascal，所以所有凡是Free Pascal能运行的平台，Lazarus都可以运行。最新版本能运行于Linux，Win32和Mac OS。整个界面的外观和操作和Delphi IDE一样，因此，如果你会使用Delphi的话，用起Lazarus IDE来就一定 阅读全文

摘要： procedure TForm1.FormCreate(Sender: TObject); begin ADOQuery1.ExecuteOptions := [eoAsyncFetch];//设为异步读取 end; //ADOQuery的OnFetchProgress事件 procedure TF 阅读全文

摘要： 本例效果图: 代码文件: 窗体文件: 阅读全文

摘要： procedure SaveBmpAsIcon(const Bmp: TBitmap; const Icon: string; const SmallIcon: Boolean; const Transparent: Boolean; const X, Y: Integer); // Bmp : Bitmap图片 // Icon : 最终输出的icon文件全路径... 阅读全文

摘要： Delphi的高效不多说... 俗话说；真正的程序员用C语言，聪明的程序员用Delphi，一点都不假，和C++比它比C++更简单，更容易上手,功能丝毫不逊色C++，比起VB，毫无疑问比VB好多了，重要的是快，高效！ 高效的Pascal编译器，强大的数据库支持==....Delphi在进行计算量相当大 阅读全文