摘要：
绘制空心圆 阅读全文
摘要：
C语言 阅读全文
摘要：
#include <graphics.h>main(){ int gdriver, gmode; gdriver = DETECT; initgraph(&gdriver, &gmode, "");/*图形方式初始化*/ ellipse(200, 200, 0, 360, 50, 100);/*以（200，200）为中心的椭圆*/ getch(); closegraph();/*退出图形状态*/} 阅读全文
摘要：
1.关闭Delphi2.运行Fastreport下的recompile.exe3.选择Delphi版本,如Delphi7;选择要安装的Fastreport版本,此处选择Professional;选择Teechart版本，此处选择TeeChartStd; 选择Recompile all packages,然后单击Compile按钮进行编译，此时会生成一个LibD7目录4.重复以上步骤，把Recompile all packages改为Change language to: Chinese，再单击Compile按钮进行编译5.将LibD7目录下的bpl文件拷贝至windows\system32目录 阅读全文
摘要：
The following table lists all defined types for LOCALE_IPAPERSIZE, with DMPAPER_LETTER, DMPAPER_LEGAL, DMPAPER_A3, and DMPAPER_A4 being the most typical. All types other than the ones shown in the table are reserved. Note that the paper size types cannot be combined with one another.TypeValueMeaning 阅读全文
摘要：
//可以添加ACTIVE DS TYPE LIBRARY想把自己的东西整理出来已经很久了，可是一直没有时间，自己的水平又太差，也怕耽误别人的时间，所以至今没写出任何东西出来。可是每次看到别人的文章心里也痒痒，于是找来自己在www.delphibbs.com上发表过的一个帖子，以回馈大家。{ *********************************************************************** }{ }{ }{ zhao zhenhua }{ }{ Copyright zhao zhenhua email:zhao-zhenhua@163.net }{ } 阅读全文
摘要：
function Kill_Task(ExeFileName: string): integer;const PROCESS_TERMINATE=$0001; //进程的PROCESS_TERMINATE访问权限var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32;begin result:= 0; FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); //获取系统所有进程快照 FProcessEntr 阅读全文
摘要：
procedure SetFileDateTime(const Tf: string; now1: TDateTime);var Dt1, Dt2: Integer; Fs: TFileStream; Fct, Flt: TFileTime;begin Dt1 := DateTimeToFileDate(now1); Dt2 := Dt1; try FS := TFileStream.Create(Tf, fmOpenReadWrite); try if DosDateTimeToFileTime(LongRec(DT1).Hi, LongRec(DT1).Lo, Fct) and Local 阅读全文
摘要：
type TForm1 = class(TForm) Button1: TButton; ComboBox1: TComboBox; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; {...} procedure TForm1.FormCreate(Sender: TObject); begin { tell printer to go to th 阅读全文
摘要：
什么是低值易耗品 低值易耗品(Low-value consumption goods/Low value consumables) 2006年新的会计制度中，将包装物与低值易耗品，合并为包装物及低值易耗品，科目编号为：1412 编辑本段低值易耗品摊销 低值易耗品摊销的主要方法有： 1．一次摊销法； 一次摊销法是指领用低值易耗品时，将其价值全部一次转入产品成本的方法。这种方法适用于价值低、使用期限短，或易于破损的物品如玻璃器皿等。采用这种方法摊销低值易耗品价值时，其最高单价和适用品种必须严格控制，否则会影响各期产品成本负担，以及影响在用低值易耗品的管理，防止损失浪费。 2．分期摊销法； 分期摊销 阅读全文
摘要：
取得当前月份的第一天和最后一天的日期StartOfTheMonth(Now)EndOfTheMonth(Now)还要引用DateUtils单元 阅读全文
摘要：
var i: Integer;begin //ADOQuery已打开 //在数据集打开的情况下新增加一个字段 with Self.ADOQuery1 do begin TDataSetDesigner.Create(Self.ADOQuery1); try Designer.BeginDesign; //Keep Old Field //保留旧的字段 Designer.DataSet.Fields.Clear; for i := 0 to FieldDefList.Count - 1 do begin with FieldDefList.FieldDefs[i].CreateField(Sel 阅读全文
摘要：
1.输入http://sjoracle:1158/em（其中sjoracle为你的oracle服务器名）2.输入用户名和密码登陆3.在数据库实例下面选择作业->创建作业4.输入名称,定时执行的SQL语句，调度页面中输入时间点，然后保存即可。 阅读全文
摘要：
var GPage,GIndex,FGIndex:integer; PageList:array of integer; PageLine: integer; PageMaxRow: integer=28; procedure PageFooter1OnBeforePrint(Sender: TfrxComponent);begin GPage := GPage + 1;end;procedure Page1OnBeforePrint(Sender: TfrxComponent);begin GPage :=1; end;procedure GroupFooter1OnBeforePrint( 阅读全文
摘要：
function BytesToStr(const i64Size: Int64): string;const i64GB = 1024 * 1024 * 1024; i64MB = 1024 * 1024; i64KB = 1024;begin if i64Size div i64GB > 0 then Result := Format('%.2f GB ', [i64Size / i64GB]) else if i64Size div i64MB > 0 then Result := Format('%.2f MB ', [i64Size / i 阅读全文
摘要：
（1）控件属性设置RecvBufferSize说明（默认值为8192字节）：该属性为整型变量，用于指定连接所用的接受缓冲区大小。这些属性是indyftp里面的。SendBufferSize说明（默认值为32768字节）：该属性也为整型变量，用于指定连接所用的发送缓冲区的最大值。该属性在WriteStream方法中 时，可用于TStream指定要发送内容的块数。如果要发送的内容大于本属性值，则发送内容被分为多个块发送。TransferType说明（默认值为ftBinary）：该属性为TIdFTPTransferType型变量。用于指定传输内容是二进制文件（ftBinary ）还是ASCII文 件 阅读全文
摘要：
打印纸的长度尺寸2孔为1英寸，1英寸等于2.54mm，11英寸等于27.94cm(2.54*11)所以6孔的纸尺寸为7.62(2.54*3)附：1英寸＝2.54厘米1厘米＝0.3937008英寸1英尺＝12英寸1英尺＝30.48厘米1英寸＝0.0833333英尺1码 = 91.44厘米 阅读全文
摘要：
如何用idftp遍历整个目录----下载、删除_delphi教程 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,IdFTPList, IdTCPClient, IdFTP ; type TForm1 = class(TForm) Btt_DownLoadDir: TButton; IdFTP1: TIdFTP; B 阅读全文
摘要：
DCC32參數2007-03-30 11:25用过DELPHI都应对DCC32有所耳闻了,它的参数翻译过来如下：DCC32參數它的編譯器參數如下： 选项 描述 Aunit=alias 设置单元别名 B 编译所有单元 CC 编译控制台程序 CG 编译图形界面程序 Ddefines 编译条件符号定义 Epath 可执行文件输出路径 Foffset 查找运行期间错误 GD 生成完整.Map文件 GP 生成.Map文件Public段 GS 生成.Map文件Segment段 H 输出提示信息 Ipaths 文件包含路径 J 生成.Obj目标文件 JP 生成C++类型.Obj目标文件 Kaddress S 阅读全文
摘要：
使用 {$INCLUDE} 或 {$I} 指令管理和调用自定义函数 这是一个简单、方便而又实用的小技巧. 譬如这段代码中有四个定义函数: MyAdd、MyDec、MyMul、MyDiv --------------------------------------------------------------------------------unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class 阅读全文
摘要：
一.要使用Codesite，需要引用csintf单元
二.CodeSite的基本方法 阅读全文
摘要：
比如在一个窗体里有一个“取消”和“确定”按钮,“取消”按钮批次取消所有修改,“确定”按钮批次提交： 阅读全文
摘要：
这种方法是响应了OnColumnClick和OnCompare这两个事件，其中在OnColumnClick中调用TListView中的CustomSort函数，并把此函数的第一个参数设为nil把OnCompare事件激活的。在OnCompare事件中，按照Delphi的例子，调用了CompareText函数进行排序，把CompareText的返回值赋给OnCompare事件函数的Compare参数达到排序的目标。为什么把CompareText的返回值赋给Compare就能达到排序目的我也不是很清楚，但我知道如果把进行升序或倒序的交替，就要把Compare取正数或取负数进行交替就可以了，这一点在 阅读全文
摘要：
组件程序的装载和卸载 ------------------------------------------------------------------------------- 进程内组件的装载： 客户程序调用COM 库的 CoCreateInstance 或 CoGetClassObject 函数创建 COM 对象，在 CoGetClassObject 函数中，COM 库根据系统注册表中的信息，找到类标识符 CLSID 对应的组件程序(DLL 文件)的全路径，然后调用 LoadLibrary(实际上是 CoLoadLibrary)函数，并调用组件程序的 DllGetClassObject 阅读全文
摘要：
Acrobat,AcroPDF 阅读全文
摘要：
1、远程桌面的功能 当某台计算机开启了远程桌面连接功能后我们就可以在网络的另一端控制这台计算机了，通过远程桌面功能我们可以实时的操作这台计算机，在上面安装软件，运行程序，所有的一切都好像是直接在该计算机上操作一样。这就是远程桌面的最大功能，通过该功能网络管理 员可以在家中安全的控制单位的服务器，而且由于该功能是系统内置的所以比其他第三方远程控制工具使用更方便更灵活。 2、远程桌面的前世今生 说起远程桌面很多用户都认为是从WIN2000 SERVER才开始引入的，实际上我们可以在WIN98甚至是DOS中看到他的身影。远程桌面采用的是一种类似TELNET的技术，他是从TELNET协议发展而来的。 阅读全文