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£·½±ã£¬Í¬Ê±Ò²ÈÝÒ×¶ÔÓÚ¶ÔÏóÖеÄÊôÐÔÄÚÈݽøÐгõʼ»¯´¦Àí¡£
Áí£ºÔÚ¶Ô²»¶¨³¤¼Ç¼½øÐÐÔÙ·ÖÅä¿Õ¼äʱ£¬ÈçÔö¼ÓÒ»¸ö³¤¶ÈµÄ¿Õ¼ä£¬ÔÚϵͳÖеĴ¦ÀíÊÇÏÈ¿ª±ÜÒ»¿
Ïà¹ØÎĵµ£º
¼¼Êõ½»Á÷,DH½²½â. ¼ÇµÃºÜÔç֮ǰÎÒ¾Í˵¹ý,Êý×éºÍ½á¹¹ÌåÔÚÄÚ´æÖÐÆäʵһÑùµÄ,ËûÃǶ¼ÊÇÁ¬Ðø·Ö²¼µÄ.
ÀýÈç: TMyStruct = record
A,B,C:Integer;
end;
T3IntArray = array[0..2]of Integer;
ÕâÁ½¸ö¶¼Õ¼12×Ö½Ú,¶øÇÒTMyStruct.A¾ÍÊÇT3IntArray[0].
¶øÎÒÃÇÖªµÀÔÚ·ÃÎÊÊý×éÖÐij¸öÔªËØµÄʱºò,Ö»ÊÇÔÚµ ......
ʹÓÃdelphi¶àÄê,ǰЩÌìºöÈ»Óöµ½²»»ástringתpbyte,ºÜÊÇʧÂä,´Ëʱ¶ÔÓÚ±à³Ì»ù±¾¹¦µÄÖØÒªÐÔÉîÓÐÌå»á.ÕâÆäÖÐÓõ½MOVEº¯Êý.
ʹÓÃdelphi¶àÄê,ǰЩÌìºöÈ»Óöµ½²»»ástringתpbyte,ºÜÊÇʧÂä,´Ëʱ¶ÔÓÚ±à³Ì»ù±¾¹¦µÄÖØÒªÐÔÉîÓÐÌå»á.ÕâÆäÖÐÓõ½MOVEº¯Êý.
¸ãÁ˺ÃÒ»»á²Å¸ãÃ÷°×ÆäÓ÷¨.ËùÒÔÏëÌù³öÀ´°ïÖúÐèÒª°ïÖúµÄÈË.
var
&nb ......
Ö¸ÕëÓ÷¨µÄÀý×Ó£º
1 var
2 X, Y: Integer; // X and Y ÕûÊýÀàÐÍ
3 &n ......
2010-02-22 17:08:46
Delphi°Ñ¶àÏß³ÌÏà¹ØµÄAPI·â×°ÔÚTThreadÕâ¸öÀàÖУ¬¿ÉÒÔ·½±ãʵÏÖ¶àÏß³ÌÔËÓá£Ê×ÏÈ¿´ÏÂTThreadµÄÉùÃ÷£º
TThread = class
private
FHandle: THandle;
FThreadID: THandle;
FCreateSuspended: Boolean;
FTerminated: Boolean;
FSuspended: Boolean;
FFreeOnTerminate: ......
ADO¶àÏß³ÌÊý¾Ý¿â²éѯͨ³£»á³öÏÖ3¸öÎÊÌ⣺
1¡¢CoInitialize ûÓе÷Óã¨CoInitialize was not called£©£»ËùÒÔ£¬ÔÚʹÓÃÈκÎdbGo¶ÔÏóǰ£¬±ØÐëÊÖ µ÷ÓÃCoInitializeºÍCoUninitialize¡£µ÷ÓÃCoInitializeʧ°Ü»á²úÉú"CoInitialize was not called"ÀýÍâ¡£
2¡¢»²¼²»ÔÊÐí»æ»£¨Canvas does not allow drawing£©£»ËùÒÔ£¬±ØÐëͨ¹ýSynch ......