内容列表
- 优化代码，看看哪个执行速度更快!!!
- 优化代码，看看哪个执行速度更快!!!
最近我编写一个小程序，其用一个函数将 A,B 值互换，因为该函数调用频繁，于是对其优化，以下有三个版本，请试试看Rev1, Rev2, Rev3三个函数哪个执行速度更快。
// Delphi 代码如下:
unit Unit1;
// Created By
- 分类：Delphi 查阅全文
- 关于Borland，Delphi9的一些杂七杂八的感想
- 经历了Delphi8的失败后，可以看成是一个试验品。Borland在.Net平台上已经落后微软很多很多了，那么说来如果今年推出D9的话，他的功能最多也就相当于VS2003了，而微软已经推出了VS2005测试版了，明年推出正式版的时候，Borland在什么地方呢，马上推出D10么？这是不可能的，如此看来D9毕竟要加入新的元素，才可能和微软的开发工具一较高下。否则的话就用永远在微软的阴影下。
在Wi
- 分类：Delphi 查阅全文
- 取得当前目录的上一级目录
- Self.Edit2.Text := ExtractFilePath(Self.Edit1.Text + '\..');
- 分类：Delphi 查阅全文
- DELPHI7 如何在编写可视组件中传递一个事件到组件外部？
- 在编写组件中，常常有一些事件，其控件是在组件内，而其中的某一事件的代码要在组件外写。以一个按钮的OnClick事件为例：
在类中设置如下代码：
private FOnClick: TNotifyEvent; procedure ClickTransfer(Sender: TObject); { TNotifyE
- 分类：Delphi 查阅全文
- 先人的DELPHI基础开发技巧
- ◇[DELPHI]网络邻居复制文件uses shellapi;copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false);
◇[DELPHI]产生鼠标拖动效果通过MouseMove事件、DragOver事件、EndDrag事件实现，例如在PANEL上的LABEL：var xpanel,ypan
- 分类：Delphi 查阅全文
- [感悟共享软件]第一章 为什么我会开发TCAD组件
- 许多人问我，为什么你会开发TCAD呢？谁给你的点子呢？ 一说起这个问题，往往会让我想起许多在计算机面前的经历，有欢乐也有悲伤，有成功也有失败． TCAD的开发正是来自于我以前开发的软件的失败！也就是说我根本不是为了开发TCAD而开发的，而是开发另一个软件中，需要矢量绘图的功能．正是因为我在矢量绘图的功能上花的时间太多而导致那项目彻底的失败． 由于项目的失败，而且经常加夜班，透支生命，再加上一边
- 分类：Delphi 查阅全文
- QUICKREPORT SAVE AS
- When you save a file with TQRPrinter.Save, the resulting file is a .QRP file which can only be opened in a QuickReport Preview screen. You can export to other file formats though, using a TQRExportFil
- 分类：Delphi 查阅全文
- 生成GBK码表
-
program GenGBKCode;
{$APPTYPE CONSOLE}
uses
SysUtils;
Var
i, j: byte;
mFile: textfile;
begin
AssignFile(mFile, 'GBKCode.txt');
Rewrite(mFile);
{
GBK字符集范围
分区
- 分类：Delphi 查阅全文
- RSS 与 blog 阅读器：什么是 RSS 与 Atom ?
- 什么是RSS?RSS是站点用来和其他站点之间共享内容的一种简易方式（也叫聚合内容），通常被用于新闻和其他按顺序排列的网站，例如Blog。
一段项目的介绍可能包含新闻的全部介绍等。或者仅仅是额外的内容或者简短的介绍。这些项目的链接通常都能链接到全部的内容。网络用户可以在客户端借助于支持RSS的新闻聚合工具软件（例如SharpReader,NewzCrawler、FeedDemon），在不打开网站内
- 分类：Delphi 查阅全文
- 改变Windows的缺省打印机
- 如果你想要改变Windows的缺省打印机,你必须在Windows的WIN.INI中改变设备键。 发送一条 WM_WININICHANGE 消息：
var strIni: array[0..MAX_PATH] of Char; arrWindows: array[0..64] of Char;begin GetWindowsDirectory(strIni, S
- 分类：Delphi 查阅全文
- 流操作的语法
- 流操作的语法
Delphi在这两方面都做的相当出色。在Delphi的早期版本Turbo Pascal 中就曾有流(Stream)、群(Collection)和资源(Resource)等专门用于对象式数据管理的类。在Delphi中，这些功能得到了大大的加强。Delphi将对象式数据管理类归结为Stream对象(Stream)和Filer对象(Filer)，并将它们应用于可视部件类库
- 分类：Delphi 查阅全文
- 如何在Delphi中使用正则表达式
-
正则表达式最早是由数学家Stephen Kleene于1956年提出，他是在对自然语言的递增研究成果的基础上提出来的。具有完整语法的正则表达式使用 在字符的格式匹配方面上，后来被应用到熔融信息技术领域。 正则表达式并非一门专用语言，但它可用于在一个文件或字符里查
- 分类：Delphi 查阅全文
- 听说delphi9要出来了
- 据说是集成了建模、开发、测试、重构，并且同时支持delphi,c#,vb语言，可以生成win32与.net代码！有点吓人，不知道实际能做到什么样，只是希望ide的风格不要变化，不过很有可能使用bcbx的那种样子，看看吧。不过没听说加入运算符重载，可惜。
- 分类：Delphi 查阅全文
- delphi中的XML解析控件TXMLDocument的用法
- Delphi中TXMLDocument控件的用法
Delphi中对XML文件的解析做的很好，比直接使用MS的MSXML2_TLB中的接口要方便很多，现称述于下面。
在讲之前先给出一个XML实例，在讲某些部分是要结合实例比较容易理解。
1<?xml version="1.0" encoding="gb2312"?> <!--
- 分类：Delphi 查阅全文
- delphi中将UCS2编码的字符串转化为GB2312编码的简单方法
- 最近在做一个短信相关的项目。从联通网关deliver过来的短信都是ucs2编码的。
在网上找了些资料，找到一些使用java语言本身带的api转换的代码，但没有合适的delphi源码，所以经研究后自己写了一个，很简单的：
function Ucs2ToGBK(const InValue: string): string;var I: Integer;begin Resul
- 分类：Delphi 查阅全文
- 老文章——TWebBrowser编程简述
- 引 言
这篇文章最先发表于2000年07月25日，最后一次修改是在2001年02月07日。这里再次贴出的目的，一是作为前一阶段的完结，所以文章中的错误都不作修改；二是希望作为一个新的起点。我准备整理一下至今所积累的浏览器编程的知识，比较完整地写出来，与网友共勉。
TWebBrowser编程简述
摘要：Delphi 3开始有了TWebBrowser构件，不过那时是以ActiveX控件的形式
- 分类：Delphi 查阅全文
- VCL 与 OpenGL
- 先安装好opengl运行库，详见Step 1。
如果你用Borland产品：注意自带的头文件是OpenGL1.0的，不支持VertexArray等功能。用c:\oglsdk\include 下的相应文件替换之。或者用Visual C++5.0的头文件也行。
将c:\oglskd\bclib下的文件拷至$BCB\Lib下。
为便于编写代码，要将opengl的帮助文件加入搜索范围。在
- 分类：Delphi 查阅全文
- Delphi多层开发方案比较
-
方案->
Midas
DCOM
COM+
ASTA
RemoteObject
.NET
提供者
Borland
微软
微软
http://www.astatech.com
http://www.remobjects.com
微软
核心技术
COM
COM
COM
- 分类：Delphi 查阅全文
- DELPHI中动态获得SQLSERVER数据库名
- str:=Table1.Tablename;Query1.Close;Query1.SQL.Clear;Query1.SQL.Add(format('select * from %s',[Str]));Query1.Open;
- 分类：Delphi 查阅全文
- Command 程序示例，可以带参数运行
- program softInfo;
uses? Forms,? Windows,? Dialogs,? shellapi,? inifiles,? SysUtils ;
{$R *.res}? procedure install();? begin??? MessageDlg('install',mtWarning,[mbOK],0) ;? end;
? procedure uninstal
- 分类：Delphi 查阅全文