DELPHIÈçºÎʹÓÃÖ¸Õ룿
DELPHIÈçºÎʹÓÃÖ¸Õ룿
´ó¼Ò¶¼ÈÏΪ£¬CÓïÑÔÖ®ËùÒÔÇ¿´ó£¬ÒÔ¼°Æä×ÔÓÉÐÔ£¬ºÜ´ó²¿·ÖÌå
ÏÖÔÚÆäÁé»îµÄÖ¸ÕëÔËÓÃÉÏ¡£Òò´Ë£¬ËµÖ¸ÕëÊÇCÓïÑÔµÄÁé»ê£¬Ò»µã¶¼²»Îª¹ý¡£Í¬Ê±£¬ÕâÖÖ˵·¨Ò²ÈúܶàÈ˲úÉúÎó½â£¬ËƺõÖ»ÓÐCÓïÑÔµÄÖ¸Õë²ÅÄÜËãÖ¸Õë¡£Basic²»
Ö§³ÖÖ¸Õ룬Ôڴ˲»ÂÛ¡£Æäʵ£¬PascalÓïÑÔ±¾ÉíÒ²ÊÇÖ§³ÖÖ¸ÕëµÄ¡£´Ó×î³õµÄPascal·¢Õ¹ÖÁ½ñµÄObject
Pascal£¬¿ÉÒÔ˵ÔÚÖ¸ÕëÔËÓÃÉÏ£¬Ë¿ºÁ²»»áÑ·É«ÓÚCÓïÑÔµÄÖ¸Õë¡£
ÒÔÏÂÄÚÈÝ·ÖΪ°Ë²¿·Ö£¬·Ö±ðÊÇ
Ò»¡¢ÀàÐÍÖ¸ÕëµÄ¶¨Òå
¶þ¡¢ÎÞÀàÐÍÖ¸ÕëµÄ¶¨Òå
Èý¡¢Ö¸ÕëµÄ½â³ýÒýÓÃ
ËÄ¡¢È¡µØÖ·£¨Ö¸Õ븳ֵ£©
Îå¡¢Ö¸ÕëÔËËã
Áù¡¢¶¯Ì¬ÄÚ´æ·ÖÅä
Æß¡¢×Ö·ûÊý×éµÄÔËËã
°Ë¡¢º¯ÊýÖ¸Õë
Ò»¡¢ÀàÐÍÖ¸ÕëµÄ¶¨Òå¡£¶ÔÓÚÖ¸ÏòÌØ¶¨ÀàÐ͵ÄÖ¸Õ룬ÔÚCÖÐÊÇÕâÑù¶¨ÒåµÄ£º
int
*ptr;
char *ptr;
ÓëÖ®µÈ¼ÛµÄObject PascalÊÇÈçºÎ¶¨ÒåµÄÄØ£¿
var
ptr :
^Integer;
ptr : ^char;
ÆäʵҲ¾ÍÊÇ·ûºÅµÄ²î±ð¶øÒÑ¡£
¶þ¡¢ÎÞÀàÐÍÖ¸ÕëµÄ¶¨Òå¡£CÖÐÓÐvoid
*ÀàÐÍ£¬Ò²¾ÍÊÇ¿ÉÒÔÖ¸ÏòÈκÎÀàÐÍÊý¾ÝµÄÖ¸Õë¡£Object PascalΪÆä¶¨ÒåÁËÒ»¸öרÃŵÄÀàÐÍ£ºPointer¡£ÓÚÊÇ£¬
ptr :
Pointer;
¾ÍÓëCÖеÄ
void *ptr;
µÈ¼ÛÁË¡£
Èý¡¢Ö¸ÕëµÄ½â³ýÒýÓá£Òª½â³ýÖ¸ÕëÒýÓ㨼´È¡³öÖ¸ÕëËùÖ¸ÇøÓòµÄÖµ£©£¬C µÄÓï·¨ÊÇ
(*ptr)£¬Object PascalÔòÊÇ ptr^¡£
ËÄ¡¢È¡µØÖ·£¨Ö¸Õ븳ֵ£©¡£È¡Ä³¶ÔÏóµÄµØÖ·²¢½«Æä¸³Öµ¸øÖ¸Õë±äÁ¿£¬C µÄÓï·¨ÊÇ
ptr =
&Object;
Object Pascal ÔòÊÇ
ptr :=
@Object;
Ò²Ö»ÊÇ·ûºÅµÄ²î±ð¶øÒÑ¡£
Îå¡¢Ö¸ÕëÔËËã¡£ÔÚCÖУ¬¿ÉÒÔ¶ÔÖ¸Õë½øÐÐÒÆ¶¯µÄÔËË㣬È磺
char a[20];
char
*ptr=a;
ptr++;
ptr+=2;
µ±Ö´ÐÐptr++;ʱ£¬±àÒëÆ÷»á²úÉúÈÃptrǰ½øsizeof(char)²½³¤µÄ´úÂ룬֮ºó£¬ptr½«Ö¸Ïòa[1]¡£ptr+=2;Õâ¾äʹµÃptrǰ½øÁ½¸ösizeof(char)´óСµÄ²½³¤¡£Í¬Ñù£¬ÎÒÃÇÀ´¿´Ò»ÏÂObject
PascalÖÐÈçºÎʵÏÖ£º
var
a : array [1..20] of Char;
ptr : PChar; //PChar ¿ÉÒÔ¿´×÷
^Char
begin
ptr := @a;
Inc(ptr); // Õâ¾äµÈ¼ÛÓÚ C µÄ ptr++;
Inc(ptr, 2);
//Õâ¾äµÈ¼ÛÓÚ C µÄ
ptr+=2;
end;
Ö»ÊÇ£¬PascalÖУ¬Ö»ÔÊÐí¶ÔÓÐÀàÐ͵ÄÖ¸Õë½øÐÐÕâÑùµÄÔËË㣬¶ÔÓÚÎÞÀàÐÍÖ¸ÕëÊDz»Ðеġ£
Áù¡¢¶¯Ì¬ÄÚ´æ·ÖÅä¡£CÖУ¬Ê¹ÓÃmalloc()¿âº¯Êý·ÖÅäÄڴ棬free()º¯ÊýÊÍ·ÅÄÚ´æ¡£ÈçÕâÑùµÄ´úÂ룺
int
*ptr, *ptr2;
int i;
ptr = (int*) malloc(sizeof(int) * 20);
ptr2 =
ptr;
Ïà¹ØÎĵµ£º
Delphi²Ù×÷XMLÊǺܷ½±ãµÄ£¬Ö÷ÒªÓÐÁ½ÖÖ·½·¨£»
1.ÓÃTClientDataSet²Ù×÷XML£»TClientDataSetÊǸöºÃ¶«Î÷£¬ÓÃËü²Ù×÷XMLÊǺܼòµ¥µÄÊ£¬²»¹ýȱµãÊÇÖ»ÄܲÙ×÷¹Ì¶¨¸ñʽµÄ XML£¬ËüÊʺϲÙ×÷±í½á¹¹µÄÊý¾Ý£¬Èç¹ûÄãÐèÒª°ÑÊý¾Ý±íµ¼³ö³ÉXMLÄÇÓÃTClientDataSetÊǸöºÃÖ÷Ò⣬±ÈÈçÏÂÃæÊÇÒ»¸öÊý¾Ý¼¯µ¼³ö³ÉXMLµÄ· ......
flashÊÇmacromedia¹«Ë¾³öÆ·µÄ£¬ÓÃÔÚ»¥ÁªÍøÉ϶¯Ì¬µÄ¡¢¿É»¥¶¯µÄshockwave¡£ËüµÄÓŵãÊÇÌå»ýС£¬¿É±ßÏÂÔØ±ß²¥·Å£¬ÕâÑù¾Í±ÜÃâÁËÓû§³¤Ê±¼äµÄµÈ´ý¡£
flash¿ÉÒÔÓÃÆäÉú³É¶¯»£¬»¹¿ÉÔÚÍøÒ³ÖмÓÈëÉùÒô¡£ÕâÑùÄã¾ÍÄÜÉú³É¶àýÌåµÄͼÐκͽçÃæ£¬¶øÊ¹ÎļþµÄÌå»ýÈ´ºÜС¡£
flashËäÈ»²»¿ÉÒÔÏóÒ»ÃÅÓïÑÔ ......
ÔÚDelphiÖУ¬Í¨³£¿ÉÒÔÓÃÒÔÏÂÈýÖÖ·½·¨À´ÊµÏÖ³ÌÐòµÄÑÓʱ£¬¼´TTtimer¿Ø¼þ£¬Sleepº¯Êý£¬GetTickCountº¯Êý¡£µ«ÊÇÆä¾«¶ÈÊǸ÷²»ÏàͬµÄ¡£
Ò»¡¢ÈýÖÖ·½·¨µÄ¼òµ¥½éÉÜ
1£©TTtimer¿Ø¼þ
¡¡¡¡TTtimer¿Ø¼þµÄʵÖÊÊǵ÷ÓÃWindows API¶¨Ê±º¯ÊýSetTimerºÍKillTimerÀ´ÊµÏֵ쬲¢¼ò»¯Á˶ÔWM_TIMER ÏûÏ¢µÄ´¦Àí¹ý³Ì¡£Í¨¹ýÉèÖÃOnTimerÊÂ
¼þºÍInte ......
uses Tlhelp32;
function KillTask(ExeFileName: string): integer;
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOLean;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
Result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(T ......