delphi ½Å±¾ÒýÇæ±È½Ï
TMS Scripter£ºÖ§³ÖPascalºÍVBScriptÁ½ÖÖÓï·¨¡£ÓŵãÊÇÎĵµÆëÈ«¡¢Àý×ÓÆëÈ«£¬½Å±¾¿ÉÖ±½ÓÖ§³ÖDLL£¬¹Ù·½»¹ÌṩÁ˷ḻµÄIDE Debug¹¤¾ß¡¢µ¥Ôªµ¼³öº¯Êý¹¤¾ßµÈ£¬È±µãÊDZàÒëÔËÐнÏÂý¡£for ¿ÕÑ»·1000Íò´Î£¬ÐèÒª10ÃëÖÓÒÔÉÏ¡£TMS ScripterÊÇÉÌÒµ¹²ÏíÈí¼þ¡£
FastScript£ºÓùýFastReport±¨±íµÄͬѧ¶¼ÖªµÀFastReportËٶȷdz£¿ì¡£for ¿ÕÑ»·1000Íò´Î£¬Ö»ºÄ·Ñ4ÖÁ5Ãë×óÓÒ¡£ÆäÖÐFastScriptÔÚ±¨±í¿É×ö°æ±¾ÅŰæÎ¢µ÷´¦Àí¡¢º¯Êý¼ÆËãµÈ¡£ÆäÓŵãÊÇËٶȺܿ졢ºÜÈÝÒ×д³ö½Å±¾µ¥ÔªµÄRTTI×é¼þ¡¢Ö§³Öpascal¡¢VBScript¡¢JS¡¢C ËÄÖÖÓï·¨£¬È±µãÊÇÎĵµºÍÀý×ӱȽÏÉÙ£¬Ä¬ÈϵĽű¾²»ÄÜÖ±½ÓÖ§³ÖDLL¡£FSÒ²ÊÇÉÌÒµ¹²ÏíÈí¼þ¡£
Remobjects PascalScript£¬¹ËÃû˼Ò壬ֻ֧³ÖpascalÓï·¨£¬Remobjects ³õÖÔÊÇÔÚDAÀïÌṩ×Ô¶¨ÒåµÄ½Å±¾´¦Àí¡£ÓŵãÊÇÃâ·ÑÈí¼þ£¬½Å±¾Ö±½ÓÖ§³ÖDLL ¡£È±µãÊÇÎĵµ²»¶à¡£ËٶȱÈTMS Scripter ÉÔ¿ì¡£
PaxScripterÊÇ×ÛºÏÐÔÄÜ×îºÃµÄ½Å±¾½âÊÍÆ÷¡£ÆäÓŵãÊÇËÙ¶È×î¿ì£¬for ¿ÕÑ»·1000Íò´Î£¬Ö»ºÄ·Ñ1ÖÁ2Ãë×óÓÒ¡£ÎĵµºÍÀý×Ó±È½ÏÆëÈ«£¬Óе¼³öº¯Êý¹¤¾ß¡£½Å±¾ÀïÖ±½ÓÖ§³ÖDLL¡£Ö§³Öpascal¡¢VBScript¡¢JS¡¢C ËÄÖÖÓï·¨¡£È±µãÊÇ£¬×÷Õß05ÄêÖÁ½ñÉÐδ¸üа汾¡£×÷ÕßÐËȤÒѾ²»Ôڽű¾½âÊÍÆ÷£¬×¨ÃÅÑо¿.NetºÍpascal±àÒëÆ÷¡£Òò´Ë£¬PaxScripterÖÁ½ñÉв»ÄÜÖ§³ÖD2009¡£PaxScripterÊÇÉÌÒµÈí¼þ¡£Èç¹ûÖ»ÏëÖ§³ÖpascalÓï·¨¼´¿É£¬¿ÉÓÃ×÷ÕßµÄpascal±àÒëÆ÷´úÌæPaxScripter£¬ËٶȸüÊDZÈPaxScripter»¹Òª¿ì¡£
Ïà¹ØÎĵµ£º
ÔÚÍøÉÏ¿´µ½ºÜ¶àÈ˶¼ÔÚΪDelphiÊÇ·ñÖ§³ÖC++/JavaÖеľ²Ì¬±äÁ¿¼°¾²Ì¬·½·¨µÄ¹¦ÄܶøÀ§ÈÅ,ÆäʵÕâÔÚDelphiÖÐÊǺܼòµ¥µÄ.
¾²Ì¬·½·¨¾ÍÊÇʹÓÃClass Function. ¾²Ì¬±äÁ¿ÔòʹÓõ¥Ôª¾Ö²¿±äÁ¿À´ÊµÏÖ. ´úÂëÈçÏÂ:
//=========================================
// StaticVarTestU - ¶¨ÒåÁË¿ÉÒÔ¼ÆÊýµÄÀ࣬ͨ¹ýÀà·½·¨¼´¿É·ÃÎÊ´ËÀàµÄ¶ÔÏóÊý ......
Ïà¶ÔÓõÚÈý·½¿Ø¼þ£¬CDO·¢ËÍÓʼþ»¹ÊǺܼò½à·½±ãµÄ
×¢£ºCDONTSΪCDOµÄ×Ó¼¯£¬½öÖ§³ÖWinNT/Win2K£¬WinXPÒÔÉÏÇëÓÃCDO;
µ¥ÔªÒýÓÃComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
VCDOMessage:oleVariant;
begin
vCDOMessage:=CreateOleObject('CDO.Message');
vcdomessage.from:='MR.F'+'< ......
µÚÒ»ÖÖ·½·¨£º
µÚÒ»²½£º ÐÞ¸ÄÊôÐÔ
1¡¢kind -> dtktime Ò²¿ÉÒÔÊÇdtkdate µ«ÊÇÔÚÓÃdtkdateµÄʱºòÐèÒª½«datemodeÊôÐÔÐ޸ijÉdmUpDown
2¡¢parseinput -> true
µÚ¶þ²½£ºÔÚonUserInputʼþÖÐдһ¾ä´úÂë
DateTimePicker1.DateTime:=DateAndTime;
×¢£ºÒÔÉÏ·½·¨ËäÈ»¿ÉÒԴﵽĿµÄ£¬µ ......
{-----------------------------------------------------------------------------
Unit Name: HashTable
Author: LiuHeng
Date: 2010-04-13
Purpose: ·â×°DelphiµÄHashTable
History:
------------------------------- ......
unit MyADO;
interface
uses
SysUtils, Classes,ADODB,DB,Variants,StdCtrls,Dialogs;
type
TMyADO = class(TComponent)
private
Connection: TADOConnection;
Query: TADOQuery;
Table: TADOTable;
FConnectio ......