在自己编写文本文件读取函数的时候，你首先会遇到的第一个问题就是：对于给定的一个文件名，怎么知道它所代表磁盘文件的确是文本文件？这里有一个很简单的方法：把给定的那个文件看作是无类型的二进制文件，然后顺序地读出这个文件的每一个字节，如果文件里有一个字节的值等于0，那么这个文件就不是文本文件；反之，如果这个文件中没有一个字节的值是0的话，就可以判定这个文件是文本文件了。这是原理，下面看看在Delphi 中怎样编程来实现它－－[code]function IsTextFile(FileName:string):boolean; var Fs:TFileStrea...

本实例要在窗体上直接绘制正弦曲线，为了防止窗口切换的过程中会输出不完整的图形，因此绘制图形的关键代码都放在了窗体的OnPaint过程中，代码如下：procedure TForm1.FormPaint(Sender: TObject);var　x: Integer;　y,a: Double;begin　Canvas.Pen.Width:=3;　Canvas.MoveTo(0,Trunc(self.ClientHeight/2));　for x := 0 to self.ClientWidth do...

插件结构的编程需要一个插件容器来控制各DLL的运行情况，将划分好的每个子系统安排到一个DLL库文件中。对每个DLL程序需要为容器预留接口函数，一般接口函数包括：启动调用DLL库的函数、关闭DLL库的函数。通过接口函数，插件容器可以向DLL模块传递参数实现动态控制。具体实现细节我将在下文说明并给出响应代码。　　您可能需要先了解一下DELPHI中UNIT的结构，工程的结构。本文没有深入讨论DLL编程的理论细节，只是演示了一些实用的代码，我当时学习的是刘艺老师的《DELPHI深入编程》一书。　　我也处于DELPHI的入门阶段，只是觉得这次的DLL开发有一些值得讨论的地方，所以写这篇文章，希望各位能对...

这个例子还是比较好理解的， 所以只给出代码.unit pattern;interfaceuses Dialogs;type  TAudioPlayer = class;  TCommand = class  public    procedure execute; virtual; abstract;  end;  TPlayCommand =&n...

以下是我的原代码：==========================================================================================DPR  单元代码program Mdiform;uses  Forms,  UMdiform in ´UMdiform.pas´ {Mainform},  UDM in ´UDM.pas´ {Globa...

unit untDllManager;interfaceuses  Windows, Classes, SysUtils, Forms;type  EDllError = Class(Exception);  TDllClass = Class of TDll;  TDll = Class;  TDllEvent = procedure(Sender:&nb...

插件技术的出发点主要是为了使软件能够灵活地进行扩展功能，而不需要对主程序（框架程序）进行重新编译和发布。它的原理相当简单。软件的功能由框架程序和插件来决定。在框架程序和插件之间具有一个特定的接口，它们两者须通过这个接口来传递数据或控制信息，以实现软件功能。因此，只要符合该接口的程序（或其他功能实体），就称为该框架程序的插件。插件实体一般分为两种，一种是包含逻辑的程序，比如动态库、Exe程序等；另一种则是一组配置信息。前一种方式多见于作图软件，媒体播放软件，适合实现复杂的功能；后一种方式多用于实现软件的Skin（皮肤）功能，以及其他一些不需要进行复杂运算的功能模块（有许多游戏软件的关卡也是采用此...

一、有必要了解INI文件的结构：;注释[小节名]关键字=值...INI文件允许有多个小节，每个小节又允许有多个关键字， “=”后面是该关键字的值。 值的类型有三种：字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号，布尔真值用1表示，布尔假值用0表示。 注释以分号“;”开头。 二、定义1、在Interface的Uses节增加IniFiles； 2、在Var变量定义部分增加一行： myinifile:Tinifile;然后，就可以对变量myinifile进行创建、打开、读取、写入等操作了。 三、打开INI文件my...

从.INI文件中获取字符串varstrResult:pchar;beginGetPrivateProfileString(´windows´, // []中标题的名字´NullPort´, // =号前的名字´NIL´, // 如果没有找到字符串时，返回的默认值strResult, //存放取得字符100, //取得字符的允许最大长度´c:\forwin95\win.ini´ // 调用的文件名);e...

从.INI文件中获取字符串　　var　　strResult:pchar;　　begin　　GetPrivateProfileString(　　´windows´, // []中标题的名字　　´NullPort´, // =号前的名字　　´NIL´, // 如果没有找到字符串时，返回的默认值　　strResult, //存放取得字符　　100, //取得字符的允许最大长度　　´c:\forwin95\win.ini´&nb...

本实例演示如何在数据库中存取图像文件。向窗体上添加一个TListBox组件、一个TImage组件和一个TTable组件，设计完成的主界面如图1所示。图1主界面本系统中需要设计一个新的基于Paradox7的数据库Image.db，图2为设计完成的Image.db数据库。图2设计完成的数据库为了方便测试程序，Image.db数据库存储在实例程序所在的路径下。设置TTable组件的TableName属性为Image.db，Active属性为True。在程序运行初期，首先会判断Image.db数据库中是否存在记录，如果没有记录存在，那么就执行以下代码向Image.db数据库中添加“鸟.bmp”文件：p...