Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

DelphiÖеÄRecord


ÔÚDelphiÖеÄRecordÀàÐÍÖУ¬ÓëÖ®CÓïÑÔ¶ÔÓ¦µÄ¼´ÊǽṹÌåÀàÐÍ£¨struct
£©£¬Ò²¿ÉÄÜÊÇΪÁË·ûºÏCÓïÑÔ»òC++³ÌÐòÔ±µÄϰ¹ß£¬¶ÔÓÚËüÔÚDelphiÖеÄÓ¦ÓôæÔÚµÄһЩÎÊÌâ½øÐгõ²½µÄ˵Ã÷¡£ÔÚDelphiÖеļǼÌåÀàÐÍÓÐÁ½ÖÖ·½Ê½¶¨Òå
Type
    RecTest = record (packed
)
      ID :integer;
       Name :string;
      Descript:string;
    end;
Ö®
Á½ÖÖÀàÐ͵ÄÖ÷񻂿±ðÔÚÓÚÔÚÄÚ´æÖеĴæ·Å£¬PackedÊǽôËõÀàÐ͵Ä,¿ÉÒÔ½ÚÊ¡ÄÚ´æ¿Õ¼äÓë´æ·ÅµÄ¿Õ¼ä£¬µ«ÊÇËü¶¨ÒåºÃÁ˶ÔÓ¦µÄ³¤¶È£¬ËùÒÔ²»Ì«Êʺϴæ·Å²»¶¨³¤µÄ
Êý¾Ý£¬ÈçstringÀàÐ͵ÄÊý¾Ý£»Í¬Ê±ÔÚʹÓüǼÌåÀàÐÍÊ±ÌØ±ðҪעÒâµÄÊÇʹÓüǼÌåÊý×éµÄÇé¿ö£¬Ê¹Óò»µ±²»½ö½ö»á³öÏÖÐÔÄÜ·½ÃæµÄÎÊÌ⣬ͬʱҲ»á²úÉúÒâÏë²»
µ½µÄ´íÎó¡£Èç RecList arrary[0..100] of RecTest£¬Èç²ÉÓÃÕâÑùµÄ¶¨ÒåµÄ·½Ã棬»á²úÉúµÄÎÊÌâÓУº
1.µ±ÓÃÊý×éϱê·ÃÎʶÔÓ¦µÄ¼Ç¼ÌåÔªËØÊ±£¬µ½ºóÃæµÄÊý¾Ý¼Ç¼·ÃÎÊʱ¼ä»áÔ½À´Ô½³¤£¬ÈçRecList[89] ,ËüÐèÒª½«RecTestÖÐÒÆ¶¯88¸ö¼Ç¼³¤¶È£¬ÓÉÓÚRecTestÊDz»¶¨³¤µÄ£¬ËùÒÔÿ´ÎÒÆ¶¯µÄ³¤¶ÈÒ²¿ÉÄܲ»Ïàͬ£¬ËùÒÔµ¼Ö¶¨Î»Êý×éÖмǼÌåʱ¶¨Î»Ê±¼ä³¤
2.µ±¶Ô¼Ç¼Ìå½øÐи³ÖµÊ±£¬Èç¹ûÏëĬÈÏ»òÒÅÍü¸øÄ³¸ö±äÁ¿¸³Öµ£¬Ôò»á²úÉú±È½ÏÑÏÖØµÄºó¹û£¬µ±Ó¦Óõ½¸Ã±äÁ¿Ê±£¬¿ÉÄÜ»á¶ÁÈ¡µ½´íÎóµÄÊýÖµ

ÈçÒ»¶¨ÒªÊ¹ÓüǼÌåÀàÐ͵ģ¬¿ÉÒÔ²ÉÓÃһЩ±äͨµÄ·½·¨£¬Èç²ÉÓÃÊý×éÖ¸Õ룬ÕâÑù¿ÉÒÔ´ó·ùÌáÉýÐÔÄÜ£¬ÈçÕë¶ÔÇ°ÃæµÄ¼Ç¼ÌåÊý¾ÝÇé¿ö£¬¿ÉÒԶඨÒåÒ»¸öÖ¸Õë±äÁ¿£¬ÈçÏ£º PRecList = ^RecTest
     RecList arrary[0..100] of PRecList
ÕâÑù¶¨ÒåÏà¶ÔµÄºÃ´¦¾ÍÊÇÿ´ÎÒÆ¶¯Ê±£¬Ö»ÐèÒªÒÆ¶¯¼Ç¼ָÕëµÄ³¤¶ÈÊý¼´¿É£¬¼´ÔÚÏÖÓеÄwindowsϵͳÖУ¬Ö»ÐèÒªÒÆ¶¯4λ¼´¿É¡£

Ëù
ÒÔÕë¶ÔÉÏÃæµÄÎÊÌ⣬ÔÚ³ÌÐò¿ª·¢Öо¡Á¿ÉÙ²ÉÓüǼÌåÀàÐÍ£¬Ö±½Ó¶¨ÒåÒ»¸öÏàÓ¦µÄÀ༴¿É£¬¶¨ÒåÒ»¸öÏàÓ¦µÄÀà´¦ÀíµÄºÃ´¦Ê±£¬¿ÉÒÔÓëÃæ¶Ô¶ÔÏóµÄ¿ª·¢µÄ·½·¨ÏàÒ»Ö£¬Ö»
²»¹ýÊDZȼǼÌå¶àÁË´´½¨ÓëÊͷŶøÒÑ£¬µ«ÏàÓ¦µÄ³õʼ»¯»ò·½·¨¡¢ÊôÐÔÔÚÀàÖкÜÈÝÒ×ʵÏÖ£¬Í¬Ê±¶ÔÓÚ³ÌÐòµÄÀ©Õ¹ÀàÒ²ºÜÈÝÒ×´¦Àí£¬¼Ç¼Ìå¿ÉÄÜ»á±È½ÏÂé·³£¬ÈçÔڼǼÌå
ÖÐÔö¼ÓÒ»¸ö×ֶΣ¬ÄÇÓпÉÄÜÕû¸ö³ÌÐò¶¼ÐèÒª±ä»¯£¬µ«ÔÚ¶ÔÏóÖÐÔö¼ÓÒ»¸öÊôÐÔ»áÏԵ÷dz£·½±ã£¬Í¬Ê±Ò²ÈÝÒ×¶ÔÓÚ¶ÔÏóÖеÄÊôÐÔÄÚÈݽøÐгõʼ»¯´¦Àí¡£
Áí£ºÔÚ¶Ô²»¶¨³¤¼Ç¼½øÐÐÔÙ·ÖÅä¿Õ¼äʱ£¬ÈçÔö¼ÓÒ»¸ö³¤¶ÈµÄ¿Õ¼ä£¬ÔÚϵͳÖеĴ¦ÀíÊÇÏÈ¿ª±ÜÒ»¿


Ïà¹ØÎĵµ£º

delphiÖ¸Õë¼òµ¥ÈëÃÅ:


    
 Ö¸ÕëÓ÷¨µÄÀý×Ó£º  
  1         var  
  2             X,   Y:   Integer;       //   X   and   Y   ÕûÊýÀàÐÍ  
  3       &n ......

ÔÚDelphiÖУ¬×Ö·û´®²éÕÒ º¯Êý

DelphiÌṩµÄ×Ö·û´®º¯ÊýÀïÓÐÒ»¸öPosº¯Êý£¬ËüµÄ¶¨ÒåÊÇ£º
function Pos(Substr: string; S: string): Integer;
ËüµÄ×÷ÓÃÊÇÔÚ×Ö·û´®SÖвéÕÒ×Ö·û´®Substr£¬·µ»ØÖµÊÇSubstrÔÚSÖеÚÒ»´Î³öÏÖµÄλÖã¬Èç¹ûûÓÐÕÒµ½£¬·µ»ØÖµÎª0¡£
ʹÓÃposº¯ÊýÀ´²éÕÒ×Ö·ûµÚÒ»´Î³öÏÖµÄλÖÃ
var
str1:string;
i,j:integer;
begin
str1:='dsf465 ......

Delphi¶àÏß³Ìѧϰ£¨5£©£º»¥³âÁ¿Mutex

»¥³âÁ¿ÊÇϵͳÄں˶ÔÏó£¬Ë­ÓµÓоÍË­Ö´ÐС£ËüÓëÁÙ½çÇø¹¤×÷ºÜÀàËÆ¡£²»Í¬´¦ÔÚÓÚ£º1¡¢»¥³âÁ¿¿ÉÒÔ¿ç½ø³Ì±ß½çͬ²½Ï̡߳£2¡¢¿ÉÒÔ¸ø»¥³âÁ¿È¡¸öÃû×Ö£¬Í¨¹ýÒýÓû¥³âÁ¿µÄÃû×ÖÀ´Ê¹ÓÃÒ»¸öÒÑÖªµÄ»¥³âÁ¿¶ÔÏó¡£
     ʹÓû¥³âÁ¿Ö®ÀàµÄ¶ÔÏóÐèÒª·´¸´µ÷ÓÃϵͳÄںˣ¬ÆÚ¼äÐèÒª½øÐнø³ÌÉÏÏÂÎÄת»»ºÍ¿ØÖƼ¶±ðת»»£¬´ó¸ÅÐèÒªºÄ· ......

Delphi¶àÏß³Ìѧϰ£¨6£©£ºÐźÅÁ¿Semaphore

ÐźÅÁ¿Êǽ¨Á¢ÔÚ»¥³âÁ¿µÄ»ù´¡Ö®ÉÏ£¬Í¬Ê±¼ÓÈëÖØÒªÌØÐÔ£ºÌṩÁË×ÊÔ´¼ÆÊý¹¦ÄÜ£¬Òò´ËÔ¤¶¨ÒåÊýÁ¿µÄÏß³Ìͬʱ¿ÉÒÔ½øÈëͬ²½µÄ´úÂë¿éÖС£
      ÐźÅÁ¿ÊÇά»¤0µ½Ö¸¶¨×î´óÖµÖ®¼äµÄ¼ÆÊýÆ÷µÄͬ²½¶ÔÏ󣬵±Ïß³ÌÍê³ÉÒ»´ÎÐźÅÁ¿µÄµÈ´ýʱ£¬¼ÆÊýÆ÷×Ô¼õ1£¬µ±Ïß³ÌÊÍ·ÅÐźÅÁ¿¶ÔÏóʱ£¬¼ÆÊýÆ÷×ÔÔö1¡£
    ......

Delphi¶àÏß³Ìѧϰ£¨11£©£º¶àÏß³ÌͼÐβÙ×÷

VCL¶ÔÏó²»ÊÇḬ̈߳²È«µÄ£¬¶øÇÒËüÃǵÄÊôÐԺͷ½·¨±ØÐëÒª´ÓVCLÖ÷Ïß³ÌÖнøÐзÃÎÊ»ò±»Ö´ÐУ¬µ«ÓÐÁ½ÖÖVCL¶ÔÏóÊÇÀýÍâµÄÇé¿ö£¬ËüÃÇÊÇḬ̈߳²È«µÄ¡£Ò»ÖÖÊÇÈκÎͼÐζÔÏó£¬ÁíÒ»ÖÖÊÇTThreadList¡£
     ÕâÒâζ×Ų»±Ø·ÇµÃÔÚÖ÷VCLÏß³ÌÖвÅÄÜÉèÖÃÒ»¸ö»­²¼µÄ»­±ÊÑÕÉ«£¬»ò»­Ë¢ÀàÐÍ£¬¿ÉÒÔÔÚÁíÒ»¸öÏ̵߳Ļ·¾³ÖÐÍê³ÉÒ»µã¡£¶Ô ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ