DelphiÖÐÁ÷µÄ»ù±¾¸ÅÄî¼°º¯ÊýÉùÃ÷
Ò»¡¢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ÎªÒÆ¶¯ºóÖ¸ÕëÓ뵱ǰָÕëµÄÏà¶ÔλÖᣠsofromEnd:OffsetÎªÒÆ¶¯ºóÖ¸Õë¾àÀëÊý¾Ý½áÊøµÄλÖᣴËʱOffset±ØÐëСÓÚ»òÕßµÈÓÚÁã¡£¸Ã·½·¨·µ»ØÖµÎªÒƶ¯ºóÖ¸ÕëµÄλÖᣠ4¡¢Setsize:´Ë·½·¨ÊµÏָıäÊý¾ÝµÄ´óС¡£º¯ÊýÔÐÎΪ: Function Setsize(NewSize:Longint);virtual; ÁíÍâ,TStreamÀàÖл¹¶¨ÒåÁ˼¸¸ö¾²Ì¬·½·¨: 1¡¢ReadBuffer:´Ë·½·¨µÄ×÷ÓÃÊÇ´ÓÁ÷Öе±Ç°Î»ÖöÁÈ¡Êý¾Ý¡£º¯ÊýÔÐÎΪ: Procedure ReadBuffer(var Buffer;Count:Longint); ²ÎÊýµÄ¶¨Òå¸úÉÏÃæµÄReadÏàͬ¡£×¢Òâ:µ±¶ÁÈ¡µÄÊý¾Ý×Ö½ÚÊýÓëÐèÒª¶ÁÈ¡µÄ×Ö½ÚÊý²»Ïàͬʱ,½«²úÉúEReadErrorÒì³£¡£ 2¡¢WriteBuffer:´Ë·½·¨µÄ×÷ÓÃÊÇÔÚµ±Ç°Î»ÖÃÏòÁ÷дÈëÊý¾Ý¡£º¯ÊýÔÐÎΪ: Procedure WriteBuffer(var Buffer;Count:Longint); ²ÎÊýµÄ¶¨Òå¸úÉÏÃæµÄWriteÏàͬ¡£×¢Òâ:µ±Ð´ÈëµÄÊý¾Ý×Ö½ÚÊýÓëÐèҪдÈëµÄ×Ö½ÚÊý²»Ïàͬʱ,½«²úÉúEWriteErrorÒì³£¡£ 3¡¢Copyfrom:´Ë·½·¨µÄ×÷ÓÃÊÇ´ÓÆäËüÁ÷Öп½±´Êý¾ÝÁ÷¡£º¯ÊýÔÐÎΪ: Function Copyfrom(Source:TStream;Count:Longint):Longint; ²ÎÊýSourceΪÌṩÊý¾ÝµÄÁ÷,CountΪ¿½±´µÄÊý¾Ý×Ö½ÚÊý¡£µ±Count´óÓÚ0ʱ,Copyfrom´ÓSource²ÎÊýµÄµ±Ç°Î»Öÿ½±´Count¸ö×Ö½ÚµÄÊý¾Ý;µ±CountµÈÓÚ0ʱ,CopyfromÉèÖÃSource²ÎÊýµÄPositionÊôÐÔΪ
Ïà¹ØÎĵµ£º
unit unitMain;
interface
uses
Registry, shlobj,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TExtForm = class(TForm)
ledExtension: TLabeledEdit;
ledAssocApp: TLabeledEdit;
GetAssocApp: TButton;
AssocTh ......
DelphiÖеÄÈÝÆ÷Àà
×÷Õß ³ÂÊ¡
´ÓDelphi 5¿ªÊ¼VCLÖÐÔö¼ÓÁËÒ»¸öеÄContnrsµ¥Ôª£¬µ¥ÔªÖж¨ÒåÁË£¸¸öеÄÀ࣬ȫ²¿¶¼ÊÇ»ùÓÚ±ê×¼µÄTList Àà¡£
TList Àà
TList Ààʵ¼ÊÉϾÍÊÇÒ»¸ö¿ÉÒÔ´æ´¢Ö¸ÕëµÄÈÝÆ÷À࣬ÌṩÁËһϵÁеķ½·¨ºÍÊôÐÔÀ´Ìí¼Ó£¬É¾³ý£¬ÖØÅÅ£¬¶¨Î»£¬´æÈ¡ºÍÅÅÐòÈÝÆ÷ÖеÄÀ࣬ËüÊÇ»ùÓÚÊý×éµÄ»úÖÆÀ´ÊµÏÖ ......
1¡¢×¼±¸
¡¡¡¡GPS£¨Global Positioning System£©£¬¼´È«Çò¶¨Î»ÏµÍ³£¬ÀûÓÃ24¿ÅGPSÎÀÐǵIJâ¾àºÍ²âʱ¹¦ÄܽøÐÐÈ«Çò¶¨Î»£¬ÔÚÐí¶àϵͳÖУ¬Èç»ú³¡µ¼º½ÏµÍ³£¬³ö×â³µÁ¾¹ÜÀíºÍµ÷¶Èϵͳ¡¢½ºÓÁ÷ÓòµÄÔÖº¦ÐÅÏ¢¹ÜÀíºÍÔ¤²âϵͳÖУ¬GPSµÃµ½Á˹㷺µÄÓ¦Óᣱ¾ÎÄÀûÓÃMSCOMM¿Ø¼þʵÏÖÁËGPSÊý¾ÝµÄ²É¼¯£¬¿ÉΪÐÅÏ¢¹ÜÀíºÍÖ¸»Óµ÷¶ÈµÈÌṩ¶¨Î»Êý¾Ý¡£
¡¡ ......
Delphi×Ö·û´®¡¢PCharÓë×Ö·ûÊý×éÖ®¼äµÄת»»
ÉèÓÐÒÔÏÂÈý¸ö±äÁ¿£º
var
s:string;
p:pchar;
a:array[1..20] of char;
ÄÇôÈýÕßÖ®¼äµÄת»»ÈçÏ£º
1¡¢×Ö·û´®µ½PChar
p:=PChar(s);
2¡¢PCharµ½×Ö·û´®
s:=p;
3¡¢PCharµ½×Ö·ûÊý×é
StrCopy(@a,p);
4¡¢×Ö·ûÊý×éµ ......