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.µ±¶Ô¼Ç¼Ìå½øÐи³ÖµÊ±£¬Èç¹ûÏëĬÈÏ»òÒÅÍü¸øij¸ö±äÁ¿¸³Öµ£¬Ôò»á²úÉú±È½ÏÑÏÖصĺó¹û£¬µ±Ó¦Óõ½¸Ã±äÁ¿Ê±£¬¿ÉÄÜ»á¶ÁÈ¡µ½´íÎóµÄÊýÖµ
ÈçÒ»¶¨ÒªÊ¹ÓüǼÌåÀàÐ͵ģ¬¿ÉÒÔ²ÉÓÃһЩ±äͨµÄ·½·¨£¬Èç²ÉÓÃÊý×éÖ¸Õ룬ÕâÑù¿ÉÒÔ´ó·ùÌáÉýÐÔÄÜ£¬ÈçÕë¶ÔÇ°ÃæµÄ¼Ç¼ÌåÊý¾ÝÇé¿ö£¬¿ÉÒԶඨÒåÒ»¸öÖ¸Õë±äÁ¿£¬ÈçÏ£º PRecList = ^RecTest
RecList arrary[0..100] of PRecList
ÕâÑù¶¨ÒåÏà¶ÔµÄºÃ´¦¾ÍÊÇÿ´ÎÒƶ¯Ê±£¬Ö»ÐèÒªÒƶ¯¼Ç¼ָÕëµÄ³¤¶ÈÊý¼´¿É£¬¼´ÔÚÏÖÓеÄwindowsϵͳÖУ¬Ö»ÐèÒªÒƶ¯4λ¼´¿É¡£
Ëù
ÒÔÕë¶ÔÉÏÃæµÄÎÊÌ⣬ÔÚ³ÌÐò¿ª·¢Öо¡Á¿ÉÙ²ÉÓüǼÌåÀàÐÍ£¬Ö±½Ó¶¨ÒåÒ»¸öÏàÓ¦µÄÀ༴¿É£¬¶¨ÒåÒ»¸öÏàÓ¦µÄÀà´¦ÀíµÄºÃ´¦Ê±£¬¿ÉÒÔÓëÃæ¶Ô¶ÔÏóµÄ¿ª·¢µÄ·½·¨ÏàÒ»Ö£¬Ö»
²»¹ýÊDZȼǼÌå¶àÁË´´½¨ÓëÊͷŶøÒÑ£¬µ«ÏàÓ¦µÄ³õʼ»¯»ò·½·¨¡¢ÊôÐÔÔÚÀàÖкÜÈÝÒ×ʵÏÖ£¬Í¬Ê±¶ÔÓÚ³ÌÐòµÄÀ©Õ¹ÀàÒ²ºÜÈÝÒ×´¦Àí£¬¼Ç¼Ìå¿ÉÄÜ»á±È½ÏÂé·³£¬ÈçÔڼǼÌå
ÖÐÔö¼ÓÒ»¸ö×ֶΣ¬ÄÇÓпÉÄÜÕû¸ö³ÌÐò¶¼ÐèÒª±ä»¯£¬µ«ÔÚ¶ÔÏóÖÐÔö¼ÓÒ»¸öÊôÐÔ»áÏԵ÷dz£·½±ã£¬Í¬Ê±Ò²ÈÝÒ׶ÔÓÚ¶ÔÏóÖеÄÊôÐÔÄÚÈݽøÐгõʼ»¯´¦Àí¡£
Áí£ºÔÚ¶Ô²»¶¨³¤¼Ç¼½øÐÐÔÙ·ÖÅä¿Õ¼äʱ£¬ÈçÔö¼ÓÒ»¸ö³¤¶ÈµÄ¿Õ¼ä£¬ÔÚϵͳÖеĴ¦ÀíÊÇÏÈ¿ª±ÜÒ»¿
Ïà¹ØÎĵµ£º
ÓÃDelphi ʵÏÖ´®¿ÚͨѶ£¬³£Óõļ¸ÖÖ·½·¨Îª£ºÊ¹ÓÿؼþÈçMSCOMMºÍSPCOMM£¬Ê¹ÓÃAPIº¯Êý»òÕßÔÚDelphi Öе÷ÓÃÆäËü´®¿ÚͨѶ³ÌÐò¡£ÀûÓÃAPI±àд´®¿ÚͨÐųÌÐò½ÏΪ¸´ÔÓ£¬ÐèÒªÕÆÎÕ´óÁ¿Í¨ÐÅ֪ʶ£¬ÆäÓŵãÊÇ¿ÉʵÏֵŦÄܸüÇ¿´ó£¬Ó¦ÓÃÃæ¸ü¹ã·º£¬¸üÊʺÏÓÚ±àд½ÏΪ¸´ÔÓ µÄµÍ²ã´ÎͨÐųÌÐò¡£Ïà±È½Ï¶øÑÔ£¬ÀûÓÃSPComm¿Ø¼þÔòÏà¶Ô½Ï¼òµ¥£¬¸Ã¿Ø¼þ¾ßÓ ......
DelphiÌṩµÄ×Ö·û´®º¯ÊýÀïÓÐÒ»¸öPosº¯Êý£¬ËüµÄ¶¨ÒåÊÇ£º
function Pos(Substr: string; S: string): Integer;
ËüµÄ×÷ÓÃÊÇÔÚ×Ö·û´®SÖвéÕÒ×Ö·û´®Substr£¬·µ»ØÖµÊÇSubstrÔÚSÖеÚÒ»´Î³öÏÖµÄλÖã¬Èç¹ûûÓÐÕÒµ½£¬·µ»ØֵΪ0¡£
ʹÓÃposº¯ÊýÀ´²éÕÒ×Ö·ûµÚÒ»´Î³öÏÖµÄλÖÃ
var
str1:string;
i,j:integer;
begin
str1:='dsf465 ......
ÐèÒªÓõ½µÄÒ»¸öº¯Êý£º
LONG SetWindowLong(
HWND hWnd,
int nIndex,
LONG dwNewLong
);
ÆäÖÐnIndex GWL_EXSTYLE Retrieves the extended window styles.
dwNewLong WS_EX_TOOLWINDOW Creates a tool window; that is, a window intended to ......
DelphiʹÓÃ×ÊÔ´ÎļþÈ«¹¥ÂÔ
ÔÚͨ³£Çé¿öÏÂʹÓÃdelphiÉè¼Æ³ÌÐò£¬¶¼Êǽ«×Ö·û´®¡¢Í¼ÏñµÈ×ÊÔ´Ö±½ÓʹÓÃdelphiÌṩµÄvcl¿Ø¼þ¼Óµ½*.dfmÖУ¬ÕâÑù×ö»áºÏÐÞ¸ÄÕâЩ×ÊԴʱ´øÀ´²»±ã£¬Èç¹û×ÊÔ´±»¶à´ÎÒýÓã¬ÕâЩ×ÊÔ´ÔÚ³ÌÐòÆô¶¯Ê±¶¼±»¼ÓÔص½ÄÚ´æÖУ¬·Ç³£ºÄ·Ñϵͳ×ÊÔ´¡£Òò´Ë£¬Õâ¾ÍÐèÒªÒ»ÖÖеÄÒýÓÃ×ÊÔ´µÄÎļþ£º×ÊÔ´Îļþ¡£×ÊÔ´ ......
ÁÙ½çÇøÊÇÒ»¶Î´úÂ룬һ´ÎÖ»ÔÊÐíÒ»¸öÏß³ÌÖ´ÐÐÕâ¶Î´úÂë¡£µ±°ÑÒ»¶Î´úÂë·ÅÈëÒ»¸öÁÙ½çÇø, Ïß³ÌÖ´Ðе½ÁÙ½çÇøʱ¾Í¶ÀÕ¼ÁË, ÆäËûÏß³ÌÈç¹ûÒª·ÃÎÊÕâ¶Î´úÂ룬һ¶¨ÒªµÈÇ°Ò»¸ö·ÃÎʵÄÏ߳̽áÊø²ÅÐС£½èÓÃÇ°ÃæµÄ±ÈÓ÷±È×÷ͼÊé¹Ý£¬ÁÙ½çÇø¾ÍÏñ°ÑͼÊé¹ÝÉè¼Æ³ÉÖ»ÓÐÒ»¸öλÖã¨ÏÖʵÖкÃÏñ²»Ì«ºÏÀí£¬²»¹ÜÁË£¬·´ÕýÕâô¸öÒâ˼£©£¬µ±ÓÐÒ»¸öÈËÕýÔÚ°ì ......