DelphiÖУ¢Á÷£¢µÄÀûÓÃ
ʲôÊÇÁ÷£¿Á÷,¼òµ¥À´Ëµ¾ÍÊǽ¨Á¢ÔÚÃæÏò¶ÔÏó»ù´¡ÉϵÄÒ»ÖÖ³éÏóµÄ´¦ÀíÊý¾Ý
µÄ¹¤¾ß¡£ÔÚÁ÷ÖУ¬¶¨ÒåÁËһЩ´¦ÀíÊý¾ÝµÄ»ù±¾²Ù×÷£¬Èç¶ÁÈ¡Êý¾Ý£¬Ð´ÈëÊý¾ÝµÈ£¬
³ÌÐòÔ±ÊǶÔÁ÷½øÐÐËùÓвÙ×÷µÄ£¬¶ø²»ÓùØÐÄÁ÷µÄÁíһͷÊý¾ÝµÄÕæÕýÁ÷Ïò¡£Á÷²»
µ«¿ÉÒÔ´¦ÀíÎļþ£¬»¹¿ÉÒÔ´¦Àí¶¯Ì¬ÄÚ´æ¡¢ÍøÂçÊý¾ÝµÈ¶àÖÖÊý¾ÝÐÎʽ¡£Èç¹ûÄã¶Ô
Á÷µÄ²Ù×÷·Ç³£ÊìÁ·£¬ÔÚ³ÌÐòÖÐÀûÓÃÁ÷µÄ·½±ãÐÔ£¬Ð´Æð³ÌÐò»á´ó´óÌá¸ßЧÂʵġ£
ÏÂÃ棬±ÊÕßͨ¹ýËĸöʵÀý:EXEÎļþ¼ÓÃÜÆ÷¡¢µç×Ӻؿ¨¡¢×ÔÖÆOICQºÍÍøÂçÆÁÄ»
´«ÊäÀ´ËµÃ÷Delphi±à³ÌÖГÁ÷”µÄÀûÓá£ÕâЩÀý×ÓÖеÄһЩ¼¼ÇÉÔø¾ÊǺܶàÈí
¼þµÄÃØÃܶø²»¹«¿ªµÄ£¬ÏÖÔÚ´ó¼Ò¿ÉÒÔÎÞ³¥µÄÖ±½ÓÒýÓÃÆäÖеĴúÂëÁË¡£
“ÍòÕɸߥƽµØÆ𔣬ÔÚ·ÖÎöʵÀý֮ǰ£¬ÎÒÃÇÏÈÀ´Á˽âÒ»ÏÂÁ÷µÄ»ù±¾¸ÅÄîºÍ
º¯Êý£¬Ö»ÓÐÔÚÀí½âÁËÕâЩ»ù±¾µÄ¶«Î÷ºóÎÒÃDzÅÄܽøÐÐÏÂÒ»²½¡£ÇëÎñ±ØÈÏÕæÁì»á
ÕâЩ»ù±¾·½·¨¡£µ±È»£¬Èç¹ûÄã¶ÔËüÃÇÒѾºÜÊìϤÁË£¬Ôò¿ÉÒÔÌø¹ýÕâÒ»²½¡£
Ò»¡¢DelphiÖÐÁ÷µÄ»ù±¾¸ÅÄî¼°º¯ÊýÉùÃ÷
ÔÚDelphiÖУ¬ËùÓÐÁ÷¶ÔÏóµÄ»ùÀàΪTStreamÀ࣬ÆäÖж¨ÒåÁËËùÓÐÁ÷µÄ¹²Í¬ÊôÐÔ
ºÍ·½·¨¡£
TStreamÀàÖж¨ÒåµÄÊôÐÔ½éÉÜÈçÏ£º
1¡¢Size:´ËÊôÐÔÒÔ×Ö½Ú·µ»ØÁ÷ÖÐÊý¾Ý´óС¡£
2¡¢Position:´ËÊôÐÔ¿ØÖÆÁ÷ÖдæÈ¡Ö¸ÕëµÄλÖá£
TstreamÖж¨ÒåµÄÐé·½·¨ÓÐËĸö£º
1¡¢Read:´Ë·½·¨ÊµÏÖ½«Êý¾Ý´ÓÁ÷ÖжÁ³ö¡£º¯ÊýÔÐÎΪ£º
Function Read(var Buffer;Count:Longint):Longint;virtual;abstract;
²ÎÊýBufferΪÊý¾Ý¶Á³öʱ·ÅÖõĻº³åÇø£¬CountΪÐèÒª¶Á³öµÄÊý¾ÝµÄ×Ö½ÚÊý£¬
¸Ã·½·¨·µ»ØֵΪʵ¼Ê¶Á³öµÄ×Ö½ÚÊý£¬Ëü¿ÉÒÔСÓÚ»òµÈÓÚCountÖÐÖ¸¶¨µÄÖµ¡£
2¡¢Write:´Ë·½·¨ÊµÏÖ½«Êý¾ÝдÈëÁ÷ÖС£º¯ÊýÔÐÎΪ£º
Function Write(var Buffer;Count:Longint):Longint;virtual;abstract;
²ÎÊýBufferΪ½«ÒªÐ´ÈëÁ÷ÖеÄÊý¾ÝµÄ»º³åÇø£¬CountΪÊý¾ÝµÄ³¤¶È×Ö½ÚÊý£¬
¸Ã·½·¨·µ»ØֵΪʵ¼ÊдÈëÁ÷ÖеÄ×Ö½ÚÊý¡£
3¡¢Seek:´Ë·½·¨ÊµÏÖÁ÷ÖжÁÈ¡Ö¸ÕëµÄÒƶ¯¡£º¯ÊýÔÐÎΪ£º
Function Seek(Offset:Longint;Origint:Word):Longint;virtual;abstract;
²ÎÊýOffsetΪƫÒÆ×Ö½ÚÊý,²ÎÊýOrigintÖ¸³öOffsetµÄʵ¼ÊÒâÒ壬Æä¿ÉÄܵÄÈ¡Öµ
ÈçÏ£º
sofromBeginning:OffsetΪÒƶ¯ºóÖ¸Õë¾àÀëÊý¾Ý¿ªÊ¼µÄλÖᣴËʱOffset±ØÐë
´óÓÚ»òÕßµÈÓÚÁã¡£
sofromCurrent:OffsetΪÒƶ¯ºóÖ¸ÕëÓ뵱ǰָÕëµÄÏà
Ïà¹ØÎĵµ£º
¼Ì³ÐÊÇΪÁ˱íÏÖÀàÓëÀàÖ®¼ä“ÊÇÒ»ÖÖ”¹Øϵ£¬ÊǶà̬´æÔڵĻù´¡£¬¼Ì³ÐÊÇÃæÏó¶ÔÏó±Ø²»¿ÉÉٵĻù´¡£¬Ö»Ö§³Ö·â×°¶ø²»Ö§³Ö¼Ì³ÐµÄÓïÑÔÖ»ÄܳÆΪ“»ùÓÚ¶ÔÏ󔣨Object-Based£©Ãæ·ÇÃæÏò¶ÔÏó“Object-Oriented”;
Object PascalÖ»Ö§³Öµ¥¼Ì³Ð£¬Ò²¾ÍÊÇÒ»¸öÅÉÉúÀàÖ»ÄÜÓÐÒ»¸ö»ùÀà
µ«¿ÉÒÔʵÏÖ¶à¸ö½Ó¿Ú ......
Delphi TIniFile Àà ²Ù×÷iniÅäÖÃÎļþ
2007Äê12ÔÂ08ÈÕ ÐÇÆÚÁù 09:56
Ò»¡¢ÓбØÒªÁ˽âINIÎļþµÄ½á¹¹£º
;×¢ÊÍ
[С½ÚÃû]
¹Ø¼ü×Ö=Öµ
...
---- INIÎļþÔÊÐíÓжà¸öС½Ú£¬Ã¿¸öС½ÚÓÖÔÊÐíÓжà¸ö¹Ø¼ü×Ö£¬ “=”ºóÃæÊǸùؼü×ÖµÄÖµ¡£
---- ÖµµÄÀàÐÍÓÐÈýÖÖ£º×Ö·û´®¡¢ÕûÐÍÊýÖµºÍ²¼¶ûÖµ¡£ÆäÖÐ×Ö·û´®´æÖüÔÚINIÎļþÖÐÊ±Ã»Ó ......
1. ÃüÁîµÄ½ÓÊÜÕß
unit uReceiveObject;
interface
type
TLight = class(TObject)
public
procedure Open;
procedure Off;
end;
TGarageDoor = class(TObject)
public
procedure Up;
procedure Down;
procedure Stop;
procedure LightOn;
procedure LightOff;
end; ......
ÔÚDELPHIΪ±à³ÌÕßÌṩÁËÒ»¸öÁé»îµÄ»æͼ³¡Ëù,¼´±¾ÎÄËùÊöµÄ
CANVASÀà,ÔÚDELPHIÖеĺܶà¿Ø¼þ¶¼¾ßÓдËÊôÐÔ,ʹ±à³ÌÕß¿ÉÒÔ
ÔÚÕâЩµÄ¿Ø¼þµÄ±íÃæËæÐÄËùÓûµÄ»æͼ,Õâ¶ÔÍêÉÆÓû§½çÃæ»òÕßÖÆ
×÷һЩÆÁÄ»Ìؼ¼¶¼ÓÐ×Å·Ç·²µÄ×÷ÓÃ,ÏÂÃæ¾ÙÀý˵Ã÷¼¸ÖÖÌØÊâÆÁÄ» &n ......
DECLARE
TYPE TY_QUECUR IS REF CURSOR;
CUR_COLUMNS TY_QUECUR;
SQLCMD VARCHAR(500);
TABNAME VARCHAR(20);
COLNAME VARCHAR(50);
COLTYPE VARCHAR(20);
COLCOMMENT VARCHAR2(50);
COLLENGTH INTEGER;
COLPRECISION INTEGER; ......