![](https://img-blog.csdnimg.cn/20201014180756928.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
Vsun
这个作者很懒,什么都没留下…
展开
-
Base64编码delphi算法!
Base64编码delphi算法!学习Base64编码算法时写的procedure TForm1.Button1Click(Sender: TObject);var_1byte,_2byte:array of byte;strlen,i,j,jj:integer;str:string;constbasetable=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklm转载 2005-02-18 13:06:00 · 1903 阅读 · 0 评论 -
Try 的用法
procedure TForm1.Button1Click(Sender: TObject);var SqlBak: string;begin //备份Sql语句 SqlBak := ADOQuery1.SQL.Text; try with ADOQuery1.SQL do begin Clear; Add(insert test values(张三转载 2005-09-23 11:28:00 · 1590 阅读 · 0 评论 -
动态指定事件过程(比较精典)
默认情况下,Delphi的事件处理函数必须是一个类成员,不过可以通过以下的办法骗过系统,使用普通过程处理事件:procedure Test(dummy: Integer; Sender: TObject);begin ShowMessage(Hello, World!);end;procedure TForm1.FormCreate(Sender: TObject);var M : TMe转载 2005-09-23 10:20:00 · 1494 阅读 · 0 评论 -
Memo控件光标定位过程
procedure CursorPosition(Control: TMemo; col, row: integer);var Pos: integer;begin //检查行数是否超过了实际行数! 超过时即选最后一行 if Col>Control.Lines.Count then Col:=SendMessage(Control.Handle, EM_GETLINECOUNT, 0, 0)转载 2005-04-18 21:33:00 · 1359 阅读 · 0 评论 -
delphi中使用API时的一点注意之处
我们知道,很多情况下,Windows API函数都需要一个缓冲区,例如以获取临时目录的API GetTempPath为例,这个函数需要一个Buffer用来存放返回的目录名称,而很多人代码(包括许多高手和Borland的专家)是这样写的:function GetTempDirectory: String;var TempDir: array[0..255] of Char;begin GetTe转载 2005-04-12 13:46:00 · 1197 阅读 · 0 评论 -
DBGrid 应用全书
大富翁论坛版权所有 KeyLife富翁笔记 作者: archonwang标题: DBGrid 应用全书(全面修订正在进行时) 关键字: 分类: 开发经验 密级: 公开 (评分:★★★★ , 回复: 29, 阅读: 5682) ?? 在 Delphi 语言的数据库编程中,DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实,我们完全可以在转载 2005-04-10 21:19:00 · 1442 阅读 · 0 评论 -
delphi 函数手册
名称 类型 说明 ageIndex 属性 页索引 Pages 属性 页 ParamCount 函数 返回在命令行上传递给程序的参数数量 ParamStr 函数 返回指定的命令行参数 Pen 属性 画刷设置 Pi 函数 返回圆周率Pi Picture 属性 显示图象 PictureClosed 属性 设置Closed位图 PictureLeaf 属性 设置Leaf位图 PictureMinus 属性转载 2005-04-17 02:48:00 · 1185 阅读 · 0 评论 -
Delphi常用函数应用
得到WINDOWS的SYSTEM路径: 方法: var MySysPath : PCHAR ; begin GetMem(MySysPath,255); GetSystemDirectory(MySysPath,255);转载 2005-04-17 02:15:00 · 1280 阅读 · 0 评论 -
在exe文件中嵌入文件并释放
以前有不少文章也是关于这个问题的,不过这些老文章里讲述的方法通常让你需要做较多的工作,而其实并不需要这么工作,因为在Delphi5中的更加简便的方法。首先,我想给你介绍一下Delphi5自带的一个演示程序。这个程序叫"Resource Explorer",你可以在"Delphi5"目录下找到,这个程序的功能,也许你已经猜到了,就是浏览资源(Resource)。这是程序一个小巧而方便的工具,它可转载 2005-04-14 13:49:00 · 2324 阅读 · 0 评论 -
弹出数库联接窗口!
PromptDataSource(ParentHandle: THandle; InitialString: WideString): WideString;此函数就可以弹出数据库的联接窗口,可以让用户选择连接的数据库类型级数据库此函数在 ADODB 中转载 2005-04-25 11:40:00 · 1368 阅读 · 0 评论 -
delphi压宿Access数据库
uses dao97,dao2000;procedure CompactMdbDatabase(srcDbname,dstDbname,oldpwd,newpwd:string;bAccess97:boolean=true);var idbEngine:_dbEngine;begin if oldpwd if newpwd if bAccess97 then begin idbe转载 2005-04-25 22:10:00 · 1214 阅读 · 0 评论 -
控制toolbutton的状态
procedure TForm1.ToolButton1Click(Sender: TObject);begin // TToolButton(Sender).Down := not odd(TToolButton(Sender).Tag); // TToolButton(Sender).Tag := TToolButton(Sender).Tag + 1; TToolBut原创 2012-12-15 22:18:58 · 930 阅读 · 0 评论 -
在TBitBtn钮上单击鼠标,然后放开鼠标,按钮能保持按下状态,再次单击,能恢复成弹起状态?
论坛上看到能人提这个问题,就试着做了做,重载了TBitBtnunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Form原创 2011-10-16 22:03:50 · 840 阅读 · 0 评论 -
Delphi - 关于钩子函数HOOK(来自别人的BLOG)
本身我书上也有这样的教程,并且更详细更多,但这个更容易读懂,所以摘下来了。 Delphi - 关于钩子函数HOOK (1)基本概念钩子(Hook),是Windows消息处理机制的一个平台,应用程序可以在上面设置子程以监视指定窗口的某种消息,而且所监视的窗口可以是其他进程所创建的转载 2006-03-09 08:44:00 · 5633 阅读 · 0 评论 -
VCL开发时实现按任意键继续
昨天群里有人问起了这个问题,一下子自己也意识到,这是个有意思的问题,所以就开始想了想。在DOS程序下都可以很容易实现,可是在VCL状态 下呢,找了找资料Delphi自身不提共这样的功能,所有,只好自己写吧,应该很容易吧。反正From上有FormKeyPress等键盘事件处理过程呢。啊,慢着,记得前段时间不知道学习什么程序时,如果光标处在可编辑控件时,这些按键消息是不会传给From的啊,那F转载 2006-03-09 15:10:00 · 1675 阅读 · 0 评论 -
Delphi中的类和对象--转自CSDN
谈谈Delphi中的类和对象1.登不了大雅之堂地理解几个概念 说到类和对象,我们不能不提及这样几个概念:类,对象,实例。就我个人觉得可以这样来理解:对象指的是泛称,自然界的任何实体都可以看成一个对象;而类则是以这些对象某些特征而分成的一系列的种类;实例则是特指属于某一个类的一个对象。好啦,这些大道理我就不用多说了。不如来一个“背道而驰”的作法,我们用Delphicode 来阐述这些外国人提出的转载 2005-06-10 09:17:00 · 1317 阅读 · 0 评论 -
Delphi中的WideString类型学习
运行以下代码,便可以发现WideString的好处。var S: string;begin S := Test测试; ShowMessage(IntToStr(Length(S))); //返回的值为 8 ShowMessage(IntToStr(Length(WideString(S)))); //返回的值为 6 ShowMessage(Copy(S,4,2)); //返回的是转载 2005-11-18 12:45:00 · 6579 阅读 · 1 评论 -
Delphi与Excel的编程学习
昨天下午,群里有个朋友问了这么一个问题。问题:如何用Delphi来对Excel中某个单元格中的部分字符进行格式化。此类的资料几乎在网上绝种,反正我是没有找到,MSDN,各大论坛都是没有找到,从昨天下午找这类资料一直到现在(不包括睡觉3小时,打游戏8小时,看电影4.5小时,HOHO,看得偶真得把这该死的游戏放一放了),就是没有找到一要点儿关于此问题的资料,无意中,进了百度的VBA贴吧,看到了转载 2005-11-17 11:36:00 · 2219 阅读 · 0 评论 -
Delphi中的动态数组!
var MyBuff1:array of string; //动态一维数组 MyBuff2:Array of Array String; //动态二维数组begin SetLength(MyBuff1,5); SetLength(MyBuff2,5,5);end;转载 2005-11-04 16:41:00 · 2422 阅读 · 0 评论 -
二进制转十进制
var s :string; i, j : integer; n : integer; begin s := 01100001; j := length(s); n := 0; for i := 1 to j do begin n := n + strtoint(s[i]) shl (j -i);转载 2005-04-16 20:20:00 · 1044 阅读 · 0 评论 -
Delphi之数组
Delphi之数组Object Pascal中可以建立丰富的数据类型。数组毫无疑问也是众多自定义数据类型中的一种。TypeTA = array[0..9] of Integer;...varA : TA;和下面这段代码通常效果是相同的(不同的地方在类型篇再说)varA : Array [0..9] of Integer;这相当于C中的in转载 2005-04-13 11:50:00 · 1436 阅读 · 0 评论 -
调出 Internet 选项
WinExec(RunDLL32.exe Shell32.dll,Control_RunDLL InetCpl.cpl,,0, SW_SHOWNORMAL);转载 2005-07-10 12:39:00 · 1251 阅读 · 0 评论 -
Delphi源码排列
用于对齐delphi的源代码。安装到Delphi的IDE环境中,按一下热键即可把Delphi的源代码排列得整整齐齐,看起来很舒服。有多种排列风格可供选择,并可由你自己设定排列风格!支持Delphi5-7。 下载页面: http://www.skycn.com/soft/14775.html下载地址: http://jlth-http.downloadsky.com:8080转载 2005-03-21 11:33:00 · 1117 阅读 · 0 评论 -
Delphi 嵌入汇编学习
Function H32ToLow(Sdigit:LongWord):LongWord; Asm MOV EAX,Sdigit BSWAP EAX Mov Sdigit,AX End; Function H16ToLow(Sdigit:Word):Word; Asm MOV AX,Sdigit ROR AX,8 Mov Sdigit,AX End; Function转载 2005-07-07 15:00:00 · 1421 阅读 · 0 评论 -
Delphi调节音量
一、调节全部音量 1.先在窗体中添加一个trackbar控件,可通过改变它的位置来调节音量,在trackbar1的属性中,我们把Max属性修改成255,改成这个值是为了便于进行二进制的音量调节操作。 2.为了调用一个Windows函数,在uses子句里加上Mmsystem。 3.为trackbar1的Onchange事件编写如下代码: procedure Tform1.TrackBar1c转载 2005-07-04 18:41:00 · 2300 阅读 · 0 评论 -
在Delphi中使用ZLib的最新版本
ZLib(http://www.zlib.net)是现在使用最广泛的一套开源的通用无损压缩代码集了。它是LZ77 ((Lempel-Ziv 1977)的一个变种分支。它的代码是线程安全的,数据格式可以参见RFCs(Request for Comments) 1950 到1952(http://www.ietf.org/rfc/rfc1950.txt (zlib format), rfc1951.转载 2005-06-30 15:01:00 · 8161 阅读 · 0 评论 -
Delphi--Stream和Variant的转化
网上广为流传的两个函数,确实好用。记录一下procedure VariantToStream (const v : OleVariant; Stream : TMemoryStream); var p : pointer; begin Stream.Position := 0; Stream.Size := VarArrayHighBound (v, 1) - VarArrayLowB转载 2005-06-28 10:04:00 · 2054 阅读 · 0 评论 -
用Delphi为Asp开发文件上载组件的原理和具体实现过程
ASP(Active Server Page)是微软公司的产品,由于它编程很容易上手,能快速开发功能强大的动态网站,现在很多网站(特别是Intranet/Extranet内部网)采用了NT+IIS+ASP的模式,使得ASP成为目前较为流行的网站开发脚本语言。在WEB服务中,文件上载服务是一个很常见的功能,而WIN9X下的PWS没有提供相关组件;NT下的IIS提供了一个Post Acceptor组件转载 2005-02-18 13:25:00 · 999 阅读 · 0 评论 -
为delphi补充函数!
下面的代码是如何将10进制的数字转为 n 进制的数字。 unit BaseFunctions; interface uses SysUtils; function Dec_To_Base(nBase, nDec_Value, Lead_Zeros:integer; cOmit:string):string; // 10 进制 -> n 进制 function Base_To_Dec转载 2005-02-18 13:07:00 · 1314 阅读 · 0 评论 -
使代码简洁的五条忠告--Delphi园地
写代码是一种艺术。使用Delphi,任何人都可以轻而易举地开发出某种软件、完成某些任务。而完美的代码则只有真正的高手才能写出。除了正确的缩进、大小写、命名规则之外,请时刻牢记爱因斯坦的名言--简单就是美。下面将谈及的五个代码问题,可能是初学者、甚至一些老鸟都会犯的错误。忠告一布尔型变量的赋值操作应该是直接的。例如,在一个if/then/else语句中,if子句将布尔型变量赋值为True,而else转载 2005-03-20 01:57:00 · 1042 阅读 · 0 评论 -
DELPHI中的快捷方式一览
1.SHIFT+鼠标左键 先选中任一控件,按键后可选中窗体(选中控件后按Esc效果一样) 2.Shift+F8 调试时弹出CPU窗口。 3.Shift+F10 等于鼠标右键(Windows快捷键)。 4.Shitf+箭头 选择 5.shift +F12 快速查找窗体并打开 6.F7 (步进式调试同时追踪转载 2005-03-20 01:47:00 · 963 阅读 · 0 评论 -
DELPHI的编译指令
DELPHI的编译指令{$IFDEF WIN32} -- 这可不是批注喔! 对于Delphi来说﹐左右大括号之间的内容是批注﹐然而「{$」(左括号后紧接着货币符号)对于Compiler(编译器)而言并不是批注﹐而是写给Compiler看的特别指示。 应用时机与场合 Delphi中有许许多多的Compiler Directives(编译器指令)﹐这些编译指令对于我们的程序发展有何影响呢? 它们又能帮转载 2005-04-13 11:44:00 · 1373 阅读 · 0 评论 -
delphi 编码转换 unicode gbk big5
以下代码在DELPHI 7上调试通过,主要使用了api函数中MultiByteToWidechar function UnicodeEncode(Str:string;CodePage:integer):WideString;var Len:integer;begin Len:=Length(Str)+1; SetLength(Result,Len); Len:=MultiByteToWi转载 2005-04-09 04:15:00 · 1704 阅读 · 0 评论 -
Delphi代码优化(字符处理)
delphi有三种字符串类型:短字符串(string[n],n=1..255)存储区为静态分配,大小在编译时确定,这是继承于bp for dos的类型;字符数组(pchar)主要是为了兼容各类api,在bp7中已经出现,如今在delphi中更加应用广泛,其存储区可以用字符数组静态分配,也可用getmem手动分配;而长字符串(ansistring)是delphi独有的,其存储区在运行时动态分配,最灵转载 2005-04-08 09:49:00 · 1600 阅读 · 1 评论 -
让你的delphi程序支持外部参数
procedure TForm1.FormCreate(Sender: TObject);vari: Integer;for i := 1 to ParamCount dobeginif LowerCase(ParamStr(i)) = beep thenBeepelse if LowerCase(ParamStr(i)) = exit thenApplication.Terminate;转载 2005-04-05 11:21:00 · 1380 阅读 · 0 评论 -
将数字转换成为大写金额!
这也只是一个学习的例子function MoneySwap(money: real): string;const moneyunit = 分角元拾百千万拾百千亿拾百千万; moneyvalue = 零壹贰叁肆伍陆柒捌玖拾;var NewMoney, Smoney: string; i: integer;begin money := int(money * 100); Smone转载 2005-04-06 11:37:00 · 1480 阅读 · 0 评论 -
手工创建显示主窗体
首先要让编释器知道不需要自动来创建你的主窗体 Ctrl+Shift+F11,然后在,Project1(application)中加入如下代码!form1:=Tform1.Create(nil);form1.ShowModal;转载 2005-04-05 11:23:00 · 1395 阅读 · 0 评论 -
delphi真接用COM组件连接数据库学习
此例子需在User中引入ComObjunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComObj, StdCtrls;type TForm1 = class(TForm) Button1: TButton; pr转载 2005-03-29 16:00:00 · 1599 阅读 · 0 评论 -
学习笔记
Sent: GET /basic/article/api/fun/showapi.asp?API_ID=1 HTTP/1.0Sent: Host: www.zytnet.com>Sent: Accept: text/html, */*Sent: User-Agent: Mozilla/3.0 (compatible; Indy Library)Sent:转载 2005-04-08 08:49:00 · 1195 阅读 · 0 评论 -
delphi对复杂泛型排序学习笔记
procedure TForm1.Button1Click(Sender: TObject);type TPerson = record Name: String; Age: Integer; end;var List: TList; Comparer: TComparer; OutList, TPerson1, TPerson2, TPe原创 2012-12-15 22:34:05 · 1330 阅读 · 0 评论