摘要：
unit uCalc;interfaceuses Dialogs, Math, SysUtils;Const Symbol_Mod='M'; Symbol_Div='D'; Symbol_Shl='L'; Symbol_Shr='R'; Symbol_Or='O'; Symbol_Xor='X'; Symbol_And='A';function ConvertExpression(ExpressionString:PChar):PChar; stdcall;function Pars 阅读全文
摘要：
以下代碼在D7+ACCESS+FastReport 3.15版中測試通過.1.將FastReport存入數據庫中:在窗體的"Insert"按鈕的OnClick事件中插入下面代碼:(Insert_rep: TADOQuery.設置SQL語句:select * from reportdata.注:ReportData為放置數據庫的表,其中有字段ID(標志),REPORT(報表內容))procedure TForm1.Button4Click(Sender: TObject);vartemplate : TStream;begintemplate := TMemoryStream 阅读全文
摘要：
Delphi对摄像头的控制很简单，在System，windows和messages三个单元内已定义了所有的底层消息函数，我们只需要合理的调用它们就行了。我把摄像头的有关操作做成一个控件，这样就可以拖动窗体上直接使用了。{************************************* Camera Control for Delphi7 ** Made by Rarnu ** Credit 2006.08.27 ** http://rarnu.ik8.com *************************************}unit RaCameraEye;interfac 阅读全文
摘要：
1. 先用一般的文书编辑器建好一个 MySet.inc 的普通文本文件 , 内容为 :{$H+}{$DEFINE _Proversion}2.在我们的程序中 , 加入一列 {$I MySet.inc}, 例如 :unit Unit1;{$I MySet.inc}interface… implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);begin{$IFDEF _ProVersion} ShowMessage(' 专业版 ');{$Else} ShowMessage(' 只有专业版才 阅读全文
摘要：
使用Tapplication的onmessage事件来处理消息.指派一个过程给ONMESSAGE,当应用程序从消息队列中取出一条消息,并准备处理该消息时,就调用这个过程.应用在WINDOWS处理这条消息前,调用这个事件处理过程.application.onmessage事件处理过得是TMessageEvent类型.procedure someobject.appmessagehandler(var msg:tmsg;var hancled:boolean);可以从组件板中选择TAPPLICATIONEVENTS组件,从而创建一个ONMESSAGE事件处理过程.ONMESSAGE的唯一限制就是它 阅读全文
摘要：
IdTCPClient属性1 : IOHandler 如果有相应的输入/输出操作,那么IOHandler相对应的组件或接口将提供一个虚拟/抽象的输入/输出接口给相应的网络连接 2 : Intercept 如果有一个网络连接正在使用,那么Intercept 提供的组件或接口将可以拦截相应的网络数据流中 阅读全文
摘要：
var i , x : Integer ; y :array[0..17] of byte ;begin y[0] := $fe ; y[1] := $fe ; y[2] := $fe ; y[3] := $fe ; y[4] := $68 ; y[5] := $99 ; y[6] := $99 ; y[7] := $99 ; y[8] := $99 ; y[9] := $99 ; y[10] := $99 ; y[11] := $68 ; y[12] := $1 ; y[13] := $2 ; y[14] := $2e + $33 ; y[15] := $90 + $33 ; x := 0 阅读全文
摘要：
format用法占位符 说明d将整型值转换为十进制数字字符串x将整型值转换为十六进制数字字符串p将指针值转换为十六进制数字字符串s拷贝字符串、字符、或字符指针值到一个输出字符串e将浮点值转换为指数表示的字符串f将浮点值转换为浮点表示的字符串g使用浮点或指数将浮点值转换为最短的十进制字符串n将浮点值转换为带千位分隔符的浮点值m将浮点值转换为现金数量表示的字符串，转换结果取决于地域调协Format('%.2x',[12]); //返回0Cs := Format('%s! %s',['你好','我是万一']);//返回: 你好! 我是万 阅读全文
摘要：
//==============================================================================// TADOQuery池 咏南工作室 2008-10-06 14:22:35//==============================================================================unit UAdoQueryPool;interface uses SysUtils, Classes, DB, ADODB, Contnrs, Windows, ExtCtrls;type RQuer 阅读全文
摘要：
//==============================================================================// TADOConnection池 咏南工作室(陈新光) 2008-10-06 14:00:23//==============================================================================unit UDataConnPool;interface uses SysUtils, Classes, DB, ADODB, Contnrs, Windows, ExtCtrls; 阅读全文