我一直感觉 Delphi 下的Bit操作不是很好使, 所以一直屏蔽着这方面的学习.不过最近收集整理了一下代码. 原因是这样的. 由于某个需求被分解成 在 0~n(不定) 中,有几个数字被置换成了“true” 由于我自己写了一个类来管理某个Record,而这个Record是用Variant来作为参数.(类似TDataSet). 开始的时候,我想着吧,用 array of Boolean,可惜Variant 中怎么 v:=VarCreateVariant([0,n],varBoolean) 不会操作

Delphi操作Excel大全 DELPHI操作excel(转)(一) 使用动态创建的方法 首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' ); 1) 显示当前窗口:ExcelApp.Visible := True; 2) 更改 Excel 标题栏:ExcelApp.Caption := '应用程序调用 Microsoft Excel'; 3) 添加新工作簿

用DELPHI操作EXCEL 在DELPHI中显示EXCEL文件,可用以下简单代码做到.但要实用,则需进一步完善. var  Form1: TForm1;  EApp:variant;implementationuses ComObj, OleServer,Excel2000;{$R *.dfm} procedure TForm1.Button1Click(Sender: TObject);begin     EApp:=CreateOleObject('Excel.Application');

delphi操作文本文件的方法简介减小字体 增大字体 作者佚名来源不详发布时间2008-5-31 10:31:16发布人xuedelphi1 文件类型和标准过程       Delphi同Object Pascal一样支持三种文件类型,即:文本文件.记录文件.无类型文件.1.1文本文件        文本文件类型的变量用如下方法声明:varTextFileVar: Text ;         文本文件是以行为单位进行读.写操作的.由于每一行长度不一定相同,不能计算出给定行在文件中的确切位置,因

Delphi操作XML Delphi操作XMl,只要使用 NativeXml.我是用的版本是4..NativeXML的使用方法比较简单,但是功能很强大. XE2的话,要在simdesign.inc后面加上: // Delphi XE2 / {$ifdef VER230} {$define D7UP} {$define D10UP} {$define D15UP} {$endif} 一.使用 ) Copy the NativeXml files from the NativeXml directo

Delphi操作XMl,只要使用 NativeXml.我是用的版本是4..NativeXML的使用方法比较简单,但是功能很强大. XE2的话,要在simdesign.inc后面加上: // Delphi XE2 / 16 {$ifdef VER230} {$define D7UP} {$define D10UP} {$define D15UP} {$endif} 一.使用 ) Copy the NativeXml files from the NativeXml directory into y

Delphi 对XML的支持---TXMLDocument类       Delphi7 支持对XML文档的操作,可以通过TXMLDocument类来实现对XML文档的读写.可以利用TXMLDocument把XML文档读到内存中,从而可以进行编辑.保存操作.TXMLDocument类是通过DOM(文档对象模型)接口来访问XML文档中的各个元素的.对于DOM接口的实现有多种方式,Delphi支持的方式有:1)微软的MSXML SDK,这种方式是通过COM对象来实现:2) Apache 的Xerce

参考:http://www.delphifans.com/InfoView/Article_850.html Delphi 7支持对XML文档的操作,可以通过 TXMLDocument类来实现对XML文档的读写.可以利用TXMLDocument把XML文档读到内存中,从而可以进行编辑.保存操作.TXMLDocument类是通过DOM(文档对象模型)接口来访问XML文档中的各个元素的.对于DOM接口的实现有多种方式,Delphi 支持的方式有 1)微软的MSXML SDK,这种方式是通过COM对象

************************************************************** Delphi快捷键-全-高手用-南山古桃(新手)-同学共进 ************************************************************** Ctrl+PageUp 将光标移至本屏的第一行,屏幕不滚动. Ctrl+PageDown 将光标移至本屏的最后一行,屏幕不滚动. Ctrl+↓ 向下滚动屏幕,光标跟随滚动不出本屏. Ctr

版本:DELPHI XE8 操作交通银行信用卡申请表单(2016-03-23),网址如下: https://creditcardapp.bankcomm.com/applynew/front/apply/new/identity.html 本次操作的难点是“省份”与“城市”这两个<select>标签,当选择了“省份”时,“城市”会自动变更. 但,用普通的方法去改变“省份”的值,不能触发“城市”自动更新事件. 经过尝试,发现用JQUERY脚本可以达到效果.代码如下: var BDoc: IHTM

Windows使用剪贴板观察器和观察链.剪贴板观察器是一个显示剪贴板当前内容的窗口.            通常它应该至少能显示三种普通格式的内容:文字CF_TEXT.位图CF_BITMAP.元文件CF_MET            AFILEPICT.剪贴板观察链是一系列相互独立的剪贴板观察窗口,它们都能够接受当前发送            到剪贴板的内容.我们大致按照以下步骤在窗口中处理有关剪贴板的内容.                            首先,使用SetClipboar

Delphi提供了一个TInifile类,使我们可以非常灵活的处理INI文件 一．INI文件的结构[小节名]ini文件       关键字1＝值1       关键子2＝值2INI文件允许有多个小节,每个小节又允许有多个关键字,“=”后面是该关键字的值.值的类型有三种:字符串.整型数值和布尔值.其中字符串存贮在INI文件中时没有引号,布尔真值用1表示,布尔假值用0表示. 二.定义 1.           在Interface的Uses节增加IniFiles:2.           在Var变

SQLite SQLite是一个老牌的轻量级别的本地文件数据库,完全免费且开源,不需要安装,无须任何配置,当然,这样管理功能就不是很强大了,但是它的主要应用也是在本地数据库,可以说是最简单好用的嵌入式本地数据库了. SQLite只要一个DLL就可以实现全部功能.SQLite不需要数据库引擎,只有一个数据文件,占用系统资源非常少,很适合做Demo或小型应用. 同时,SQLite也是关系型数据库,支持大部分SQL语句.它支持事务机制和blob数据类型,支持大部分SQL92标准,最大支持数据库到2T.

1.DELPHI中操作access数据库(建立.mdb文件,压缩数据库)以下代码在WIN2K,D6,MDAC2.6下测试通过,编译好的程序在WIN98第二版无ACCESS环境下运行成功.//在之前uses ComObj,ActiveX//声明连接字符串Const SConnectionString = 'PRovider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;' +'Jet OLEDB:Database PassWord=%s;'; //=========

http://www.cnblogs.com/devcjq/articles/2906224.html Flash是Macromedia公司出品的,用在互联网上动态的.可互动的shockwave.它的 优点是体积小,可边下载边播放,这样就避免了用户长时间的等待. FLASH可以用其生成动画,还可在网页中加入声音.这样你就能生成多媒体的图形和界面,而使文件的体积却很小. FLASH虽然不可以象一门语言一样进行编程,但用其内置的语句并结合 javaSCRipE,您也可作出互动性很强的主页来. FLA

    uses  ComObj,word2000   procedure TForm1.ExportWord(); var FWord :Variant; FDoc :Variant; i,Row:Integer; nodeString:Tstringlist; nodeList:TList; Tables,TablesSub:Variant; sTableName,sUserName:string; CfCversions,oReadOnly,AddToRctFiles, PswDocume

var wordApp, WordDoc, WrdSelection, wrdtable: variant; strAdd: string; wdPar,wdRange:OleVariant; iCol, iRow, I, J: Integer; begin try wordApp := CreateOleObject('Word.Application'); except Application.MessageBox('Word没有安装', '提示信息', MB_OK+MB_ICONASTER

Delphi SQLite 简明无废话上手指南SQLite下载http://www.sqlite.org/download.html SQLite FAQhttp://www.sqlitecn.org/faq.html SQLite中文论坛http://sqlite.com.cn/bbs/index.asp SQLite入门与分析http://www.cnblogs.com/hustcat/archive/2009/02/12/1389448.html GUI 管理工具SQLite Databa

最近在使用Usb摄像头做了个项目,其中写了一个操作usb摄像头类分享给大家 {*******************************************************} { } { 操作USB摄像头类 } { } { 作者:lqen } { 日期:2015.05.18 } { } {*******************************************************} unit untUsbCamera; interface uses Window

Use ComObj: procedure TorderMore1.BitBtn2Click(Sender: TObject);var  xlsFile:WideString;  var ExcelApp: Variant;begin  SaveDialog1.FileName:= MyQuery3.FieldValues['orderno'] + '.xls';  if SaveDialog1.Execute then  begin    xlsFile:=ExtractFilePath(ap

自:http://www.delphibbs.com/keylife/iblog_show.asp?xid=20713 ================================================================ -- :: xml基础操作实例,因为刚开始学,如果有不对的地方,请批评指正,代码如下: unit XMLOptionUnit; //===========================================================