最新文章列表

删除cookies及上网历史记录(DELPHI代码完整版本)

//前面要加几个pas单元 uses Registry,ShellApi, WinInet,ShlObj,ComObj; procedure DelRegCache; var        reg:TRegistry; begin        reg:=Tregistry.create;        reg.RootKey:=HKEY_CURRENT_USER;        reg.De ...
ylilike 评论(0) 有3354人浏览 2012-12-29 14:39

关于delphiwebbrowser二次点击来路问题

webbrowser二次点击webb可以实现二次点击但是二次点击的来路为空。这里先说明一下为什么是没有来路的。二次点击的代码本质是2个内置浏览器webbrowser,webb1点击的网页的时候把新打开的网页地址赋值给webb2去打开。就相当于webb是从新打开了一个新的地址,来路当然是空的。下面的代码附上解决的办法。代码比较长 我把关键的地方标注一下var  curUrl:string;///定义的 ...
ylilike 评论(0) 有2973人浏览 2012-12-08 15:56

delphi返回一个汉字的Unicode编码

//机内码 -> 汉字Function MacCode2Chinese(AiUniCode : Integer) : String;Varch, cl : Integer;Begin  ch := AiUniCode Div 256;  cl := AiUniCode Mod 256;  Result := Chr(ch) + Chr(cl);end;//汉字 -> 机内码Functio ...
ylilike 评论(0) 有1757人浏览 2012-11-30 16:00

delphi第一讲——初学者参考

计算机语言一代一代地从机器语言发展到高级语言,从复杂到简单(其实也不简单),体现了计算机科学技术的发展。计算机语言越高级,就越抽象越人性化,与低层硬件的关系就越少,使用起来就越方便。但无论计算机语言如何高级,都是对操作系统层的抽象,因此我们总可以找出理解高级语言背后的规律,那就是:高级语言写的代码只是为了描述人们的需求,而这些代码要通过“翻译器”翻译成机器语言形式才能被机算机识别执行。所谓的翻 ...
慕容紫林1 评论(0) 有473人浏览 2012-11-15 19:42

Delphi 从外部拖拽文件

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ComCtrls, StdCtrls;   type   TForm1 = class(TForm)     ListView1: TListV ...
ylilike 评论(0) 有5269人浏览 2012-10-22 19:36

SuperObject Readme

  What is JSON ? JSON (JavaScript Object Notation) is a lightweight data-interchange format.It is easy for humans to read and write. It is easy for machines to parse and generate. It is based on ...
pascal4123 评论(0) 有863人浏览 2012-09-27 10:26

动态创建与压缩Access数据库(ZZ)

动态创建与压缩Access数据库 日期:2004年12月30日 作者: 人气:6987 查看:[大字体 中字体 小字体]  声明:这是前无古人,后无来者的解 ...
pascal4123 评论(0) 有875人浏览 2012-08-30 15:44

Delphi有关菜单的几个技巧(ZZ)

    学习使用Delphi中,遇到了一些关于菜单的编程问题,其中一些比较由代表性或比较实用,先把它从笔记中整理出来,与大家分享,请多多指教。 ...
pascal4123 评论(0) 有1180人浏览 2012-08-29 17:45

Show 与 ShowModal 区别

    最近遇到了问题,就是在form关闭时,需要判断一下是以哪种方式打开的然后分别处理,所已就看了一下ShowModal方法的源码,我截取了一段核心的 Show; try SendMessage(Handle, CM_ACTIVATE, 0, 0); ModalResult := 0; repeat Applicatio ...
shishangq 评论(0) 有10人浏览 2012-08-15 17:03

在 API 函数中使用 PChar 参数的几种方法(转载自万一博客)

//以 GetWindowsDirectory 为例: { 以静态数组做缓冲区 } procedure TForm1.Button1Click(Sender: TObject); var   buf: array[0..MAX_PATH-1] of Char; begin   GetWindowsDirectory(buf, SizeOf(buf));   ShowMessage(buf); { ...
pascal4123 评论(0) 有1148人浏览 2012-08-13 10:33

delphi 自动扫雷源码

//http://weibo.com/wqssyq unit frmMine; interface uses Windows, SysUtils, Classes, Forms, Grids, ImgList, ExtCtrls, StdCtrls, Controls, Buttons, Mask; const MineOri = 0; Mine_0 = 1; MineO ...
zwhc 评论(0) 有1567人浏览 2012-07-10 15:01

Delphi字符串、PChar与字符数组之间的转换

Delphi字符串、PChar与字符数组之间的转换 设有以下三个变量: var s:string; p:pchar; a:array[1..20] of char; 那么三者之间的转换如下: 1、字符串到PChar     p:=PChar(s); 2、PChar到字符串     s:=p; 3、PChar到字符数组     StrCopy(@a,p); 4、字符数组到PChar     PCha ...
pascal4123 评论(0) 有1584人浏览 2012-06-27 16:07

Delphi 判断一个字符串是否为数字

//函 数 名: IsDigit //返 回 值: boolean //日       期:2011-03-01 //参       数: String //功       能: 判断一个字符串是否为数字 //作       者:liubin //*********************************************************************** ...
ylilike 评论(1) 有7215人浏览 2012-06-13 16:32

解决EmbeddedWB弹出页面错误框的问题

使用EmbeddedWB控件的时候,发现有一些错误完全无法用try..except去接,这些错误的提示并非是通过Raize抛出的,而是通过Windows消息传递而来,因此要解决此问题,必须从消息下手。 在EmbeddedWB.pas中,找到重写消息的方法,即TEmbeddedWB.FormWndProc(),其中的代码即是消息的接收,而看其他码,它正是处理了WM_ACTIVATE消息,即有对话框弹 ...
ylilike 评论(0) 有1656人浏览 2012-06-07 13:34

Delphi ListView基本用法大全

Delphi ListView基本用法大全 //增加项或列(字段) ListView1.Clear;ListView1.Columns.Clear;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columns.Add;ListView1.Columns.Items[0].Caption:='id';ListView1.Columns. ...
xinzheng_wang 评论(0) 有1345人浏览 2011-08-22 17:27

Delphi、PChar和Char数组的比较

Delphi、PChar和Char数组的比较 string和Char数组都是一块内存, 其中存放连续的字符. string保存具体字符的内存对用户 是透明的, 由Delphi管理它的分配, 复制 ...
xinzheng_wang 评论(0) 有1252人浏览 2011-06-22 16:14

Delphi 分隔GSMModem接收到的短信字符串

Delphi 分隔GSMModem接收到的短信字符串   function TForm1.SplitStr(const SourceStr, SplitChar: AnsiString): TStringList;vartemp:AnsiString;i:Integer;cStr:AnsiString;beginResult:=TStringList.Create;//如果是空字符串则返回空列表 ...
xinzheng_wang 评论(0) 有1079人浏览 2011-06-20 10:37

Delphi编程中流的应用

  一、流的概念 流简单说是建立在面向对象基础上的一种抽象的处理数据的工具,它定义了一些处理数据的基本操作,如读取数据,写入数据等,程序员只需掌握对流进行操作,而不用关心流的另一头数据的真正流向。其实,流就是把整个对象转化为一个一个单字节数据,然后形成数据流,其形同把固体石块打碎成一颗颗细小的沙子一样,最后可以形成流沙。 二、流的主要功能 流的主要功能是对文件与非文件数据相互转换进行操作 ...
xinzheng_wang 评论(0) 有780人浏览 2011-05-25 11:19

Delphi中票据凭证的精确打印

一、概述  在银行,税务,邮政等行业的实际工作中,经常涉及到在印刷好具有固定格式的汇款单,储蓄凭证,税票等单据上的确定位置打印输出相关的信息。在此类需求中,精确地定位单据并打印相关信息,是解决问题]的关键。一般情况下,开发者都是通过在打印机上通过重复的测试来达到实际需求。那么,有没有简单有效而又灵活的方法实现上述功能呢?  二、基本思路  分析上述单据的特征,可以发现:此类打印输出的信息一般比较简短 ...
xinzheng_wang 评论(0) 有986人浏览 2011-04-06 15:13

最近博客热门TAG

Java(141745) C(73651) C++(68608) SQL(64571) C#(59609) XML(59133) .net(54785) 编程(39454) JSP(37542) 数据结构(36424) Eclipse(31254) PHP(29988) F#(26079) 算法(24867) 脚本(19840) J#(18922) JDBC(17888) ASP(17480) JDK(14881) JVM(14450)

博客人气排行榜

    博客电子书下载排行

      >>浏览更多下载

      相关资讯

      相关讨论

      Global site tag (gtag.js) - Google Analytics