孤舟残月浅笑嫣然

摘要： 本例效果图:代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); end;var Form1: TForm1;implem... 阅读全文

摘要： procedure TForm1.Memo1Click(Sender: TObject);begin Text := Format('当前列:%d, 当前行:%d', [Memo1.CaretPos.X, Memo1.CaretPos.Y]);end;//用 API 实现procedure TForm1.Memo1Click(Sender: TObject);var LineY,LineX: Integer;begin LineY := SendMessage(Memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0); LineX := Se 阅读全文

该文被密码保护。 阅读全文

摘要： Delphi中字符串的操作很简单，但幕后情况却相当复杂。Pascal传统的字符串操作方法与Windows不同，Windows吸取了C语言的字符串操作方法。32位Delphi中增加了长字符串类型，该类型功能强大，是Delphi缺省的字符串类型。 字符串类型在Borland公司的TurboPascal和16位Delphi中，传统的字符串类型是一个字符序列，序列的头部是一个长度字节，指示当前字符串的长度。由于只用一个字节来表示字符串的长度，所以字符串不能超过255个字符。这一长度限制为字符串操作带来不便，因为每个字符串必须定长（确省最大值为255），当然你也可以声明更短的字符串以节约存储空间。 字符 阅读全文

摘要： 在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以改变 DBGrid 的表头、网格、网格线的前景色和背景色，以及相关的字体的大小和风格。 以下的示例程序演示了对 DBGrid 各属性的设置，使 Delphi 显示的表格就像网页中的表格一样漂亮美观。 示例程序的运行： 在 Form1 上放置 DBGrid1、Query1、DataSource1 三个数据库组件，设置相关的属性，使 DBGrid1 能显示表中的数据。然... 阅读全文

摘要： 1.提取字符串中指定子字符串前的字符串 FunctionBefore(Src:string;S:string):string; Var F:Word; begin F:=POS(Src,S); ifF=0then Before:=S else Before:=COPY(S,1,F-1); end; eg:Before('123','helloworld_123')返回结果：helloworld_ 2.提取字符串中指定子字符串后的字符串 functionAfter(Src:string;S:string):string; var F:Word; begin F:. 阅读全文

摘要： 一、流的概念流简单说是建立在面向对象基础上的一种抽象的处理数据的工具，它定义了一些处理数据的基本操作，如读取数据，写入数据等，程序员只需掌握对流进行操作，而不用关心流的另一头数据的真正流向。其实，流就是把整个对象转化为一个一个单字节数据，然后形成数据流，其形同把固体石块打碎成一颗颗细小的沙子一样，最后可以形成流沙。二、流的主要功能流的主要功能是对文件与非文件数据相互转换进行操作(即它们之间的I/O操作)。如将图片文件保存到数据库，那么数据库中的图片数据就变成非文件数据了，它只属于某记录某字段的数据。而诸如网络上传输的数据、内存中的存储的数据等也都属于非文件数据，这些数据要转变成文件也需要流操作 阅读全文

摘要： {在网上看到个这个例子感觉还不错，将它移到自己的博客里没事的时候看看；TRect作用：保存一个矩形的左上角和右下角的坐标值；声明：type TRect = packed recordcase integer of0:(Left, Top, Right, Botton:Integer);1:(TopLeft, BottonRight:TPoint);end;由上面的TRect可知，TRect是一个记录类型（TRect），保存了矩形的左上角右下角两个点，4个坐标或2个点的值。这个声明是Record类型使用Case子句的典型的例子。当我们通TopLeft和BottonRight两个点创建矩形时，可以 阅读全文

摘要： AbortDoc终止一项打印作业 是 是 是AbortPath 终止或取消DC中的一切路径否 是 是AbortPrinter 删除打印机缓冲文件 否 是 是AbortSystemShutdowna 停止系统工作 否 是 是AccessCheck 检验客户访问权限 否 是 是AccessCheckAndAuditAlarm 检验访问，产生声音或警报 否 是 是ActivateKeyboardLayout 激活一个新的键盘设备 否 是 是AddAccessAllowedAce 将ACCESS_ALLOWED_ACE加入ACL 否 是 是AddAccessDeniedAce 将ACCESS_DE.. 阅读全文

摘要： Delphi遍历文件夹及子文件夹{-------------------------------------------------------------------------------过程名:MakeFileList 遍历文件夹及子文件夹作者:SWGWEB日期:2007.11.25参数:Path,FileExt:string1.需要遍历的目录 2.要遍历的文件扩展名返回值:TStringListEg：ListBox1.Items:= MakeFileList( 'E:\极品飞车','.exe') ;ListBox1.Items:= MakeFileLis 阅读全文