library PigLatinDll; uses Windows, SysUtils, Classes, HookTextUnit in ''''HookTextUnit.pas''''; function PigLatinWord(s: String): String; Var start: String; Capitalize, AllCapitals: Boolean; i: Integer; begin Result:=s; if length(s)=1 then exit; Cap...

2008-04-10 02:58:30

用DELPHI设计代理服务器程序摘自《天极网学习中心》 (文/万雪勇) 用Delphi开发串口通信软件一般有两种方法：一是利用Windows的通信API函数，另一种是采用Microsoft的MSComm控件。利用API编写串口通信程序较为复杂，需要掌握大量通信知识，其优点是可实现的功能更强大，...

2008-04-10 02:58:28

本人倾精力，时间使用DELPHI开发了一套报表处理组件，适合各种软件系统复杂的 报表处理功能，尤其是其提供的报表编辑，打印预览及数据导入接口等功能可以迅 速满足客户提出的有关报表处理的各种需求。 1.设计原则： 1.1 由抽象到具体的类层次管理简化报表处理对象的复...

2008-04-10 02:58:27

一、序言 二、通用源代码格式规则 2.1 缩格 2.2 页边空格 2.3 Begin…End 配对 三、 Object Pascal 3.1 括号 3.2 保留字和关键字 3.3 过程和函数（例程） 3.3.1 命名/格式化 3.3.2 形式参数 3.3.2.1 格式化 3.3.2.2 命名 3.3.2.3 参数的排序 3.3.2.4 常量参数 3.3.2.5...

2008-04-10 02:58:26

代码示例:你是真的对Delphi很了解么？ Procedure StepEditor( strgrid: TStringGrid; Step: TStep ); var sValue, sField: string; EditorClass: TStepEditorClass; Editor: TStepEditor; begin sField := strgrid.Cells[0, strgrid.Selection.Top]; sValue := strgrid...

2008-04-10 02:58:24

!--StartFragment--谈Delphi编程中“流”的利用 陈经韬 什么是流？流,简单来说就是建立在面向对象基础上的一种抽象的处理数据 的工具。在流中，定义了一些处理数据的基本操作，如读取数据，写入数据等， 程序员是对流进行所有操作的，而不用关心流的另一头数据的真正流...

2008-04-10 02:58:24

1．调用API函数 procedure CopyFile(FromFileName,ToFileName:string); var f1,f2:file; Begin AssignFile(f1,FromFileName); //指定源文件名 AssignFile(f2,ToFileName); //指定目标文件名 Reset(f1); Try Rewrite(f2); Try If Lzcopy(TfileRec(f1).handle,TfileRec(f...

2008-04-10 02:58:23

( 《将面向对象的思想贯穿始终 - 谈 Delphi 开发》之第三篇 ) 前两篇讨论的是有关封装性的话题。这里，想和您说说关于继承和多态。 继承和多态是密切相关的。 Object Pascal 引入了一种多态的机制，叫重载 (Overload) ，它的思想与面向对象关系不大，这里不作讨论。与...

2008-04-10 02:58:22

unit hdid; interface uses Windows, Controls,SysUtils,Forms; //, Graphics, Dialogs, Classes, Messages,StdCtrls; type TSrbIoControl = packed record HeaderLength : ULONG; Signature : Array[0..7] of Char; Timeout : ULONG; ControlCode : ULONG; ReturnCode...

2008-04-10 02:58:21

确定在uses子句中增加DDEMan。 uses windows, ddeman, ...... function Get_URL(Servicio: string): String; var Cliente_DDE: TDDEClientConv; temp:PChar; file://---------------- 这是新的 begin Result := ''''''''; Cliente_DDE:= TDDEClientConv.Create( nil );...

2008-04-10 02:58:20