内容列表
- INI文件的读写
- function readInifile(fileName,section,Ident:string):string;? //读取配置文件var? ini:tinifile;begin? ini:=tinifile.Create(fileName);? result:=ini.ReadString(section,ident,'');? ini.Free;end;
procedure write
- 分类：Delphi 查阅全文
- 精确计算PI小数点后800位小数
- 近来，在网上发现一个能精确计算PI后面数百位的C程序，不敢独享，把其翻译成PASCAL版，供大家参考，该函数写的非常精巧，仅用了三行代码，就能精确计算出PI后800位小数。小弟不才，对数学造诣不深，不明白他算法的原理是什么，如果有懂的请不吝赐规教。下面将该函数的C版和PASCAL版一并贴出，供大家参考。
///
- 分类：Delphi 查阅全文
- Pascal精要笔记
- Pascal精要笔记
Pascal语言的大小写不敏感特性有一个例外：控件包中的Register 过程必须以大写字母R开始，因为需要与C++Builder 兼容。
，编译器不编译代码中的空格、空行和Tab键空格，这些元素通称为空白，它们只用来提高代码的可读性，不影响编译过程。(也就是说： = 这样的写法没有问题，我原来还以为由问题那！)
记住要用代码模板（方便开发）快捷键：Ctrl+J
Ab
- 分类：Delphi 查阅全文
- WANT的心得
- WANT的心得
由于资料缺乏，以下内容由WANT的配置文件及对比Java的Ant所得，不足之处请参阅WANT的want.xml配置文件及其他相关文件。
WANT的功能：
1． 对Delphi的源文件的编译功能，可将编译产生的文件分发到指定路径。
仅可对以下几种文件进行分发：
<exeoutput path=" " />
- 分类：Delphi 查阅全文
- Delphi的编码规范
- 1．规范简介
本规范主要规定Delphi源程序在书写过程中所应遵循的规则及注意事项。编写该规范的目的是使公司软件开发人员的源代码书写习惯保持一致。这样做可以使每一个组员都可以理解其它组员的代码，以便于源代码的二次开发记忆系统的维护。
2．单元的格式
2．1 基本要求
2.1.1 缩进
缩进就是在当源程序的级改变时为增加
- 分类：Delphi 查阅全文
- 利用Delphi中的画布画树
- 一直都听说delphi中画布使用简单方便。现在我就利用画布实现一个简单的树机构的图形表示。系统支持节点选择、移动、保存树、打开树等。为了实现的方便用到了递归与指针，虽然效率有点问题但是在快速解决问题还是蛮好的。
程序写的比较乱，欢迎交流：[email protected]
源代码如下：
uni
- 分类：Delphi 查阅全文
- 注册文件类型，设置文件图标
- {------------------------------------------------------------------------------- @过程名: slpert -> TFm_main.SetAssociatedExec @作者: Gavin&nb
- 分类：Delphi 查阅全文
- 自定义DataSet，并写入数据
- 新建一 DataSet , 并加入数据 : prepareTablefunction TFrm_Print.CreateTableInMemory(const AFieldDefs:TFieldDefs):TDataSet;var TempTable:TClientDataSet;begin TempTable:=nil; Result:=nil;
- 分类：Delphi 查阅全文
- String 和 VariantArray
- function StringToVariantArray(const S: string): OleVariant;var P: Pointer;begin Result := NULL; if Length(S) > 0 then begin Result := VarArrayCreate([0, Le
- 分类：Delphi 查阅全文
- 创建不规则窗口
- // 方法一 ：利用不规则图片
(1)procedure TForm1.FormCreate(Sender: TObject);begin self.ClientWidth := HotImage1.Width ; self.ClientHeight := HotImage1.Height ; brush.style:=bsClear;end;
(2)把Fo
- 分类：Delphi 查阅全文
- 比 FastPos 还要快 Pos 函数
- 相信字符串处理中用的最多的就是 Pos 函数了。但是如果要搜索一个字符串中第二次或者第三次出现的子字符串的，就没有现成的 DELPHI 标准函数了。所以我就自己写了一个。同时和网上比较流行的 FastStrings.SmartPos() 和 JVCL.NPos() 做了比较，速度更快，而且兼容 Unicode(WideString/WideChar)。注：代码可能有人会觉得不太舒服，但作为最常用的
- 分类：Delphi 查阅全文
- 字符串分割扩展 SplitEx[Delphi]
- Didi.04-9-10 教师节function SplitEx(const Str {需要拆分的文章}, Delimiters {拆分关键字,回车.?!等}: string): TStringList;
var
ss: WideString;
i, St: integer;
function IsDelimiter(const Delimiters, c: string):
- 分类：Delphi 查阅全文
- Action 造成cpu占用过多的奇怪问题
- 问题说明：为了维护程序的结构，我在程序中大量使用Action。其优点大家都知道，我可以让MenuItem对应某个Action，同时让工具栏上的Toolbutton也对于相同的Action。这样我只需要对Action进行编程，而MenuItem和ToolButton都可以相关到这个事件。不过我发现了一个非常奇怪的问题。当我在程序中创建了4个工具栏。然后初始化程序时动态创建ToolButton(大约4
- 分类：Delphi 查阅全文
- 命令行参数，程序参数
-
If system.ParamCount > 0 Then Begin filename := system.paramstr(1); OpenFile(filename); End;
- 分类：Delphi 查阅全文
- qq2004hack
- 感谢 sforever 提供帮助 hookkey: string; hHook: integer; Creeper,creeper1:TextFile; ahwnd,comboboxh:thandle; //句柄 qqformid:HWND; user:array[0..254] of char; Send
- 分类：Delphi 查阅全文
- 2个不错的通配符比较函数
- 近日在和朋友讨论 MaskMatch 时偶得2个不错的算法。函数1 只支持'*','?'模糊匹配。速度比采用递归算法的快近2倍，比TMask方法快很多。函数2 完全支持正规表达式。速度于之前的相同。(不会正规表达式的朋友慎用) // ===========================// Funtion 1// ===========================// Check if th
- 分类：Delphi 查阅全文
- 用Delphi 压缩Access数据库
- uses dao97,dao2000;
procedure CompactMdbDatabase(srcDbname,dstDbname,oldpwd,newpwd:string;bAccess97:boolean=true);var idbEngine:_dbEngine;begin if oldpwd <>'' then oldpwd := ';pwd='+oldpw
- 分类：Delphi 查阅全文
- 编译资源进入可执行程序
- 做一个.rc的文件，里面是文本格式，内容如下：
资源名 类型 资源在windows中的文件件 mycur1 cursor 28.cur //加入光标mycur2 cursor 29.cur //加入光标mycur3 cursor 30.cur //加入光标myIco1 ICON ico.ICO //加入图标bmp1 Bi
- 分类：Delphi 查阅全文
- 拖拉打开文件
- Procedure DragDropFiles(Var message: TMessage); Message WM_DropFiles;
Procedure Tfm_main.DragDropFiles(Var message: TMessage);Var p: Array[0..254] Of char; i: word;Begin Inherited;&
- 分类：Delphi 查阅全文
- Delphi 消息机制学习笔记
- 最近几天又将李维《Inside VCl》书中关于 Delphi 中 Windows 消息机制的实现看了一遍，这是第二遍了，本来看第一遍时已经完全看懂了，但没做笔记，害得我又看了一遍，这回下定决心写一个笔记。与此同时，我在网上游荡时幸运地看到了两篇论述 Delphi 消息框架的文章，某些部分分析
- 分类：Delphi 查阅全文