本月博客排行
-
第1名
龙儿筝 -
第2名
johnsmith9th -
第3名
wy_19921005 - zysnba
- sgqt
- lemonhandsome
年度博客排行
-
第1名
宏天软件 -
第2名
青否云后端云 -
第3名
龙儿筝 - gashero
- wallimn
- vipbooks
- benladeng5225
- wy_19921005
- fantaxy025025
- e_e
- zysnba
- ssydxa219
- sam123456gz
- javashop
- arpenker
- tanling8334
- kaizi1992
- xpenxpen
- wiseboyloves
- xiangjie88
- ranbuijj
- ganxueyun
- sichunli_030
- xyuma
- wangchen.ily
- jh108020
- lemonhandsome
- zxq_2017
- jbosscn
- Xeden
- luxurioust
- lzyfn123
- zhanjia
- johnsmith9th
- forestqqqq
- ajinn
- nychen2000
- wjianwei666
- hanbaohong
- daizj
- 喧嚣求静
- silverend
- mwhgJava
- kingwell.leng
- lchb139128
- lich0079
- kristy_yy
- jveqi
- java-007
- sunj
最新文章列表
关于delphiwebbrowser二次点击来路问题
webbrowser二次点击webb可以实现二次点击但是二次点击的来路为空。这里先说明一下为什么是没有来路的。二次点击的代码本质是2个内置浏览器webbrowser,webb1点击的网页的时候把新打开的网页地址赋值给webb2去打开。就相当于webb是从新打开了一个新的地址,来路当然是空的。下面的代码附上解决的办法。代码比较长 我把关键的地方标注一下var curUrl:string;///定义的 ...
delphi第一讲——初学者参考
计算机语言一代一代地从机器语言发展到高级语言,从复杂到简单(其实也不简单),体现了计算机科学技术的发展。计算机语言越高级,就越抽象越人性化,与低层硬件的关系就越少,使用起来就越方便。但无论计算机语言如何高级,都是对操作系统层的抽象,因此我们总可以找出理解高级语言背后的规律,那就是:高级语言写的代码只是为了描述人们的需求,而这些代码要通过“翻译器”翻译成机器语言形式才能被机算机识别执行。所谓的翻 ...
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 ...
Show 与 ShowModal 区别
最近遇到了问题,就是在form关闭时,需要判断一下是以哪种方式打开的然后分别处理,所已就看了一下ShowModal方法的源码,我截取了一段核心的
Show;
try
SendMessage(Handle, CM_ACTIVATE, 0, 0);
ModalResult := 0;
repeat
Applicatio ...
在 API 函数中使用 PChar 参数的几种方法(转载自万一博客)
//以 GetWindowsDirectory 为例:
{ 以静态数组做缓冲区 }
procedure TForm1.Button1Click(Sender: TObject);
var
buf: array[0..MAX_PATH-1] of Char;
begin
GetWindowsDirectory(buf, SizeOf(buf));
ShowMessage(buf); { ...
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 ...
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 ...
解决EmbeddedWB弹出页面错误框的问题
使用EmbeddedWB控件的时候,发现有一些错误完全无法用try..except去接,这些错误的提示并非是通过Raize抛出的,而是通过Windows消息传递而来,因此要解决此问题,必须从消息下手。
在EmbeddedWB.pas中,找到重写消息的方法,即TEmbeddedWB.FormWndProc(),其中的代码即是消息的接收,而看其他码,它正是处理了WM_ACTIVATE消息,即有对话框弹 ...
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. ...
Delphi、PChar和Char数组的比较
Delphi、PChar和Char数组的比较
string和Char数组都是一块内存, 其中存放连续的字符. string保存具体字符的内存对用户 是透明的, 由Delphi管理它的分配, 复制 ...
Delphi 分隔GSMModem接收到的短信字符串
Delphi 分隔GSMModem接收到的短信字符串
function TForm1.SplitStr(const SourceStr, SplitChar: AnsiString): TStringList;vartemp:AnsiString;i:Integer;cStr:AnsiString;beginResult:=TStringList.Create;//如果是空字符串则返回空列表 ...
Delphi编程中流的应用
一、流的概念
流简单说是建立在面向对象基础上的一种抽象的处理数据的工具,它定义了一些处理数据的基本操作,如读取数据,写入数据等,程序员只需掌握对流进行操作,而不用关心流的另一头数据的真正流向。其实,流就是把整个对象转化为一个一个单字节数据,然后形成数据流,其形同把固体石块打碎成一颗颗细小的沙子一样,最后可以形成流沙。
二、流的主要功能
流的主要功能是对文件与非文件数据相互转换进行操作 ...
Delphi中票据凭证的精确打印
一、概述 在银行,税务,邮政等行业的实际工作中,经常涉及到在印刷好具有固定格式的汇款单,储蓄凭证,税票等单据上的确定位置打印输出相关的信息。在此类需求中,精确地定位单据并打印相关信息,是解决问题]的关键。一般情况下,开发者都是通过在打印机上通过重复的测试来达到实际需求。那么,有没有简单有效而又灵活的方法实现上述功能呢? 二、基本思路 分析上述单据的特征,可以发现:此类打印输出的信息一般比较简短 ...