- 博客(70)
- 资源 (2)
- 收藏
- 关注
RSS订阅转载 Delphi 指针大全
Delphi 指针大全- 1 -目 录1 DELPHI 的指针-引用.................................................................................- 1 -2 delphi 的“引用/值”模型......................................................
2013-09-08 21:08:01
1351
转载 delphi内存映射与映射数据获取
时间:2011-5-26来源:yang 作者: peng点击: 32次delphi内存映射与映射数据获取1.定义数据结构type//外部接口结构 PBM_Interface = ^TBM_Interface; TBM_Interface = record UserID:Integer; //登陆用户ID
2013-09-07 11:20:20
1356
转载 用Delphi将数据导入到Excel并控制Excel
在日常办公中，用得最多的是Word和Excel，而Excel对数据报表的处理尤为方便（操作公式、打印格式等），如果我们将数据导入到Excel中后，再靠我们平时对Excel熟练的操作很快编辑好我们有用的数据（如领导报表等），通过对Excel的控制，我们可以自动编缉好我们想要的格式和外观。一、调用Excel的方法：一般情况下有两种方法调用Excel：1、 直接使用Delphi自带的组
2013-09-03 11:15:54
2091
转载 delphi7如何读取excel文件
用ole读excel：会读了后，你自己处理一下要读的数据就行了 var I, J: Integer; MaxRow, MaxCol: Integer; List, Strs: TStringList; ExcelApp, Sheet: Variant; OldTime: TDateTime; begin List := TStringList.Create; S
2013-09-03 09:00:32
6401
转载 delphi中OleObject调用excel
在delphi中调用excel有四种方式，我们选取其中的一种用OleObject来装载excel工作表的方式来谈delphi控制excel的重要属性和方法。 首先给出通过OLE创建的一些主要代码步进行简单说明： 创建OLE对象： Var olecon: TOleContainer; Olecon:= TOleContainer.Create(self);
2013-09-03 08:52:57
2269
转载 Delphi中使用ADO连接Excel有感
By panther666 今天在Delphi中使用ADO连接Excel(以前在一本书看过，复习一下-_-!!)，有所收获，不敢独享。 第一部分： 1. 设置ADOConnection的ConnectionString属性的OLE DB的提供者要选择Microsoft Jet 4.0 OLE DB Provider(这本来是用于连接Access数据库的驱动程序，但也可打开E
2013-09-02 20:44:12
937
转载 引用 Delphi操作EXCEL
引用 Delphi操作EXCEL2011-09-06 17:18Delphi 控制Excel(一) 使用动态创建的方法首先创建 Excel 对象，使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口：ExcelApp.V
2013-08-30 09:11:19
663
转载 如何在delphi中动态生成一个excel表
Delphi控制Excel的方法 1 创建Excel文件 要在Delphi中控制Excel，就必须用到OLE自动化。现在一般采用OLE2来创建OLE对象，当激活一个OLE对象时，服务器程序仅在容器程序内部激活，这就是所谓的“就地激活”（in-place activation）。创建Excel文件时，先创建一个OLE对象，然后在对象中建立工作表worksheet，如函数cre
2013-08-30 09:06:43
1451
转载 Delphi中使用ADO连接Excel有感
Delphi中使用ADO连接Excel有感 By panther666 今天在Delphi中使用ADO连接Excel(以前在一本书看过，复习一下-_-!!)，有所收获，不敢独享。 第一部分： 1. 设置ADOConnection的ConnectionString属性的OLE DB的提供者要选择Microsoft Jet 4.0 OLE DB Provider(
2013-08-30 08:57:57
670
转载 delphi form1调用form2 如何调用
delphi7 中文企业版 form1 form2 两个窗口 我在form1中创建一个按钮，想实现点击该按钮就会代开form2 请问如何实现 直接form2.show; 会报错！ 忘大家帮忙！！1、新建DELPHI工程2、在窗体FROM1中添加按钮（Button1）3、新建窗体（FROM2）;4、在单元文件UNIT1中
2013-08-29 21:13:11
2625
转载 Delphi 模拟鼠标点击网页上的按钮
Delphi code复制代码unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw;type TForm1 = class
2013-08-27 13:59:09
1362
转载 delphi 对网页自动操作
procedure TFrmmain.Act_BeginWrite;var myitem:Olevariant; i:integer; tmp:string; TemName:String; TemIniFile:TIniFile;begin Try myitem := WebBrowser1.Document; for i := 0
2013-08-24 21:17:43
1649
转载 用DELPHI实现网页的自动填充
基本格式如下：procedure TForm1.Button1Click(Sender: TObject);begin webBrowser.navigate('http://www.83925.com');end;procedure TForm1.WebBrowserDocumentComplete(Sender: TObject; const pDi
2013-08-24 17:45:53
2184
转载 JavaScript 编程起步
“Hello World！”程序 //源程序 1.1 ! DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN" "http://www.w3.org/TR/REC-html140/strict.dtd"> html> head> meta http-equ
2013-08-24 14:28:19
579
转载 input text 的事件及方法
事件 描述onactivate 当对象设置为活动元素时触发。onafterupdate 当成功更新数据源对象中的关联对象后在数据绑定对象上触发。onbeforeactivate 对象要被设置为当前元素前立即触发。onbeforecut 当选中区从文档中删除之前在源对象触发。onbeforedeactivate 在 activeElement 从当前对象变为父文档其它对象之前立即
2013-08-24 14:27:23
620
转载 js模拟用户点击
function doClick(linkId){ var obj = $(linkId)； if (document.createEvent) { var evObj = document.createEvent('MouseE
2013-08-24 14:25:53
975
转载 JavaScript中的event对象详细说明
window.evet 说明 event代表事件的状态，例如触发event对象的元素、鼠标的位置及状态、按下的键等等。event对象只在事件发生的过程中才有效。event的某些属性只对特定的事件有意义。比如，fromElement 和 toElement 属性只对 onmouseover 和 onmouseout 事件有意义。例子下面的例子检查鼠标是否在链接上单击，
2013-08-24 14:25:12
667
转载 javascript：用脚本模拟键盘事件
这段代码只能在IE和FF浏览器下运行，Webkit截止到现在的版本还不支持initKeyEvent函数。但是支持createEvent("KeyboardEvent")，注意这里是KeyboardEvent而不是KeyEvents，与FF有所区别。当然，在Webkit下可以使用UIEvent来模拟键盘事件。具体参考http://yui.lomoman.cn/docs/UserAction.js.h
2013-08-24 14:24:06
6645
转载 javascript：用脚本模拟鼠标事件
下面这段代码是关于initMouseEvent的样例程序，即用浏览器模拟鼠标点击等事件。前面那段代码是获取鼠标所在位置的样例程序，两段代码都兼容IE（Trident内核）、FF（Gecko）、Safari系列浏览器 cript'>var xPos;var yPos;window.document.onmousemove=function(evt){ evt=
2013-08-24 14:23:32
1013
转载 web网页模拟自动化操作代码汇总
分类：一、创建简单的WEB窗口（winform)web.form是一个类,其构造函数可以在现有窗口对象中插入浏览器控件.窗口对象可以是一个win.form对象,也可以是窗体上的控件,例如static控件.现版默认代码：//创建web窗体var wb = web.form( winform ,//可输
2013-08-24 14:22:36
1359
转载 待更新
JavaScript提供脚本语言的编程与C++非常相似，它只是去掉了Ｃ语言中有关指针等容易产生的错误，并提供了功能强大的类库。对于已经具备Ｃ++或Ｃ语言的人来说，学习JavaScript脚本语言是一件非常轻松愉快的事。 一、JavaScript代码的加入 JavaScript的脚本包括在HTML中，它成为HTML文档的一部分。与HTML标识相结合，构成了一个功能强大的Internet
2013-08-24 11:12:31
595
转载 学程序是很好玩的事情
（写程序挺好玩的！比做外贸好玩多了——火焱山）Internet时代，造就了我们新的工作和生活方式，其互联性、开放性和共享信息的模式，打破了传统信息传播方式的重重壁垒，为我们带来了新的机遇。随着计算机和信息时代的到来，人类社会前进的脚步在逐渐加快，每一天都有新的事情发生，每一天都在创造着奇迹。随着Internet技术的突飞猛进，各行各业都在加入Internet的行业中来。无论从管理方面，还是从商
2013-08-24 10:58:32
554
转载 向指定窗口发送键击消息Delphi
unit SendKeys;interfaceuses Windows, SysUtils;const SK_BKSP = #8; SK_TAB = #9; SK_ENTER = #13; SK_ESC = #27; SK_ADD = #107; SK_SUB = #109; SK_F1 = #
2013-08-22 14:06:33
2854
转载 Delphi 快捷键
分类快捷键解释备注组件设计类Escape选择当前组件容器 Shift + Click选择多个组件；选择窗体 Tab选择下一个组件 Shift + Tab选择上一个组件 方向键选择此方向的下一个组件
2013-08-22 14:04:06
606
转载 向Windows窗口发送Alt组合键的问题
关于向Windows窗口发送Alt组合键的问题,这个真是经典问题啊,在网上找了一下,问的人N多,方法差不多,但就是没有很好解决问题。之前找到一个能正确发送的code:(Alt+A)PostMessage(hWnd,WM_SYSKEYDOWN,VK_MENU,0);PostMessage(hWnd,WM_SYSKEYDOWN,0x41,0);Sleep(50)
2013-08-22 13:54:54
1231
转载 Memo控件
总行数Memo1.Lines.Count光标所在行i:=SendMessage(memo1.Handle, EM_LINEFROMCHAR, memo1.SelStart, 0);光标所在行的内容Memo1.Lines.Strings[i]更简单的方法i:=Memo1.CaretPos.Y;Memo1.Lines.Strings[i];
2013-08-21 16:55:39
618
转载 学用 TStringGrid [3] - Cols、Rows
须知: TStringGrid 的每行、每列都是一个 TStrings 对象.本例功能:1、分别按列与行修改;2、分别按列与行读取运行效果图://本例代码:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
2013-08-20 22:26:14
538
翻译 Delphi中or的使用
delphi中or，and 的优先级都比较高 要加上（）；if (xtd=q2) or (xtd=w2) or (xtd=e2) or (xtd=p2) or (xtd=t2) or (xtd=y2) or (xtd=u2) then...
2013-08-20 08:56:10
1596
转载 Timer的使用
定时运行这个问题其实老早就接触到了，不过在上次的程序中似乎没有很好的解决这个问题，并且没有深入下去。这次再次碰到同样的问题，在查找了网上的资料以后，对这一问题有了比较深的理解。在程序中实现定时运行的思路：由timer控件实现两个timer控件，其中timer1负责每一分钟检查一次系统时间和设定时间的差值，如果两者相差5分钟，则继续检查，直到当相差时间小于5分钟，触发timer2，timer
2013-08-19 21:33:45
534
转载 几种多线程的操作方式
在了解多线程之前我们先了解一下进程和线程的关系一个程序至少有一个主进程,一个进程至少有一个线程。为了保证线程的安全性请大家看看下面介绍 Delphi多线程同步的一些处理方案大家可以参考:http://www.cr173.com/html/16747_1.html主线程又程为UI线程。进程和线程的主要差别在于它们是不同的操作系统资源管理方式。进程有独立的地址空间，一个
2013-08-19 20:50:25
697
转载 日期相减 比较大小 过期时间函数
vardt1: TDate;dt2: TDate;begin//比较日期,//www.delphitop.com 花了5元购买的代码dt1 := StrToDate('2010/7/1'); //winxp 时间格式为 2011-8-4 win7下则是 2011/8/4dt2 := StrToDate('2011/8/12');if dt2>=dt1 then
2013-08-19 18:08:05
788
转载 如何在DELPHI中操作EXCEL电子表格
EXCEL电子表格作为办公软件OFFICE中的重要组成部份,是日常办公系统的主要助手,因此许多日常所需的业务方面的数据通常是通过电子表格存取。有时我们需要从日常工作中创建的EXCEL中取得数据进行操作、打印、查询,统计等工作。在这里我将介绍如何利用delphi完成EXCEL电子表格中数据的操作。一、新建一项目,从控件栏servers中分别选取控件:excelapplication、exce
2013-08-19 09:33:13
939
转载 delphi中如何判断是不是数字
如果是判断键盘输入是否数字，可以用上面的算法，很全面了。如果判断文本框或变量中的字符是否为合法数字，可以用下面这个方法：var i: LongInt; f: Double;begin if TryStrToInt(Edit1.Text,i) or TryStrToFloat(Edit1.Text, f) then ShowMessage('是数字')
2013-08-14 15:58:19
2734
翻译 Delphi时间函数
Date 传回目前的日期Unit SysUtils函数原型 function Date: TDateTime;范例 procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := 'Today is ' + DateToStr(Date); end;--------------
2013-08-14 14:51:36
722
转载 Delphi时间计算
procedure TForm1.Button1Click(Sender: TObject);varTimeStamp : TTimeStamp;time1, time2 : TDateTime;timeDiff : integer;begin time1 := strToTime(edit1.text); // 转换成时间格式 time2 := strToTime(edit2.
2013-08-14 14:48:36
1166
转载 function和procedure
Delphi把操作数据的方法分成了两种，一种是function，另一种是procedure，分别称为“函数”和“过程”，这二者最大的差别就是函数拥有返回值而过程没有，比如按钮的事件响应过程，这就是一个过程，因此它没有返回值；而一个简单的函数如求字符串长度的函数Length，它的函数原形为function Length(S:string):Integer;这个函数有一个参数S，是您要计算的字符串
2013-08-14 13:43:20
608
转载 Delphi中@,^,#,$特殊符号意义
概述： ^: 指针 @: 取址 #: 十进制符 $: 十六进制符@:取址运算符;var int:integer; p:^integer;begin new(P); int:=24; p:=@int; dispose(P);end;^:指针的引用解析操作符;var pint:^integer;
2013-08-14 09:21:27
705
转载 Char Pchar String的区别
Char是单个字符；PChar 就是指向一个以Null 结尾的每个字符为一个字节的字符串的指针。 (可以看成是一个字符串)String是字符数组，以字符#0结尾；Char只占一字节的空间，而Pchar保存的是一个指针，在现在32位的系统中占有1个指针字节的大小。type PChar=^Char; PChar类型是一个指向Char的指针,并使用Delphi的扩展语法.它也能够
2013-08-13 21:19:26
812
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人