关键词： Delphi；Word；Excel；报表； 1．引言 在利用 Delphi开发应用程序的时候，通常我们要设计出很多各种格式的文档、报表，经常要进行文件的创建、编辑及修改，虽然Delphi本身提供了很多设计报表的控件或方法，但是存在明显的不足，比如中文输入，数据格式的控制...

2008-04-09 04:22:06

procedure TForm1.Button1Click(Sender: TObject); var hDriveHandle: THandle; procedure TForm1.Button1Click(Sender: TObject); const BytesPerSector = 512; SectorCount = 1; //读写扇区数 SectorStart = 0; //起始扇区数 drive = ''''\.C:''''; //驱动盘 var s...

2008-04-09 04:22:06

unit MLDE32Unit;//Micro Length Disassembler Engineinterface//作者忘记了，不好意思。好像出自29A-7。//sorry, author!function LDE32(Opcode: pointer): integer;implementationfunction LDE32(Opcode: pointer): integer;const //**************** //* Opcode typ...

2008-04-09 04:22:05

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObje...

2008-04-09 04:22:05

原理见http://202.38.73.222/~pjf/blog/archives/000040.html代码如下：============form1.dfm==============object Form1: TForm1 Left = 192 Top = 107 Width = 396 Height = 261 Caption = ''''Form1'''' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Co...

2008-04-09 04:22:04

uses ..., TypInfo; function TForm1.IsAPropExist(AInst: TObject; const PropName: string): Boolean; var PropInfo: PPropInfo; begin Result := False; PropInfo := GetPropInfo(AInst, PropName); if PropInfo nil then Result := PropInfo.Name = PropName; end;...

2008-04-09 04:22:06

每个程序都有自己的生存空间，在Windows系统中你可以在任何时候让你的程序执行一些操作，还可以触发消息，触发的消息分为三种，一是操作你程序的界面，onClick，onMouseMove等等，另外一个可以使用Windows的消息机制来捕获一些系统消息，但是如果你想在任何时候监控任...

2008-04-09 04:22:04

二、语句 首先要说一下begin ... end； 相当于c或者c＋＋中的{ ... }。 (1)声明语句 常量：const 常量标识符[:类型]=常值； 变量：var 变量标识符：数据类型； (2)表达式语句 由运算符组成的合法语句 运算符优先级： 运算符 优先级 @ not 1 (最高) *,/,div,mod,and,shl...

2008-04-09 04:22:03

去年我花了很多时间尝试用DELPHI进行基于XML的WEB应用开发。起初的设想是很美好的，但结果做出来的东西很简陋。一部分原因就在于XML到Object之间的数据绑定实现太麻烦（另一部分是因为对XSLT不熟，学习它花了很多时间）。 之前我一直是用DELPHI提供的XML Data binding...

2008-04-09 04:22:02

//┏━━━━━━━━━━━━━━┓ //┃ 代码着色：CodeColor v1.0 ┃ //┃ 来自： 悄然无声的 Blog ┃ //┗━━━━━━━━━━━━━━┛ var b : boolean ; procedure TForm1 . Button1Click ( Sender : TObject ) ; begin b := true ; while ( b ) do begin Cap...

2008-04-09 04:22:01