Delphi ×ÊÔ´ÎļþʹÓÃ
DelphiʹÓÃ×ÊÔ´ÎļþÈ«¹¥ÂÔ
ÔÚͨ³£Çé¿öÏÂʹÓÃdelphiÉè¼Æ³ÌÐò£¬¶¼Êǽ«×Ö·û´®¡¢Í¼ÏñµÈ×ÊÔ´Ö±½ÓʹÓÃdelphiÌṩµÄvcl¿Ø¼þ¼Óµ½*.dfmÖУ¬ÕâÑù×ö»áºÏÐÞ¸ÄÕâЩ×ÊԴʱ´øÀ´²»±ã£¬Èç¹û×ÊÔ´±»¶à´ÎÒýÓã¬ÕâЩ×ÊÔ´ÔÚ³ÌÐòÆô¶¯Ê±¶¼±»¼ÓÔØµ½ÄÚ´æÖУ¬·Ç³£ºÄ·Ñϵͳ×ÊÔ´¡£Òò´Ë£¬Õâ¾ÍÐèÒªÒ»ÖÖеÄÒýÓÃ×ÊÔ´µÄÎļþ£º×ÊÔ´Îļþ¡£×ÊÔ´Îļþ¾ÍÊǽ«Ò»Ð©×ÊÔ´£¬Èç×Ö·û´®¡¢Í¼ÏñµÈÐÅÏ¢½øÐбàÒ룬ȻºóÔÚ³ÌÐòÖÐÒýÓñàÒëºóµÄ×ÊÔ´Îļþ£¬×îºóºÍÔ´³ÌÐòÒ»Æð±àÒëÉú³É¿ÉÖ´ÐÐÎļþ¡£ÓÉÓÚÔÚ×ÊÔ´ÎļþÖеÄ×ÊÔ´ÊÇÔÚÐèҪʱ¼ÓÔØ£¬Òò´Ë£¬±È½Ï½Úʡϵͳ×ÊÔ´£¬¶øÇÒ£¬Èç¹ûÒª×ö¹ú¼Ê»¯°æ±¾µÄϵͳ£¬Ö»ÐèÒª½«×ÊÔ´ÎļþÒ»»»£¬ÖØÐ±àÒë¼´¿É¡£ÏÂÃæ¾ÍÏêϸ½éÉÜdelphiÖÐ×ÊÔ´ÎļþµÄ½¨Á¢ºÍʹÓá£
Ò»¡¢½¨Á¢×ÊÔ´Îļþ
×ÊÔ´ÎļþµÄÔ´ÎļþÊÇÆÕͨµÄÎı¾Îļþ£¬À©Õ¹ÃûÊÇ*.rc¡£½«×ÊÔ´ÎļþµÄÄÚÈÝдÈëÎļþºó£¬µ÷ÓÃbrcc32.exe½«Æä±àÒëºóÉú³É*.resÎļþ¡£brcc32.exeÔÚdelphiµÄbinĿ¼ÖС£
¶þ¡¢×Ö·û´®×ÊÔ´
×Ö·û´®×ÊԴʵ¼ÊÉÏÊǽ«Ò»¸ö×Ö·û´®ºÍÒ»¸öÊý×ÖË÷Òý¶ÔÓ¦£¬ÔÚ×°ÔØ×Ö·û´®×ÊԴʱ£¬ÐèÒªÌṩÕâ¸ö×Ö·û´®×ÊÔ´Ëù¶ÔÓ¦µÄÊý×ÖË÷Òý¡£×Ö·û´®×ÊÔ´ÎļþÒÔstringtable¿ªÍ·£¬Ê¹ÓÃÒ»¶ÔbeginºÍand½«×ÊÔ´¶¨ÒåÀ¨ÆðÀ´¡£ ×Ö·û´®×ÊÔ´µÄ¸ñʽÊÇ£ºÊý×ÖË÷Òý£¬"×ÊÔ´×Ö·û´®"¡£
string.rcÎļþÄÚÈÝ
stringtable
begin
1001, "н¨"
1002, "±£´æ"
1003, "¹Ø±Õ"
1004, "°ïÖú"
1005, "Í˳ö"
1006, "×ÊÔ´Îļþ²âÊÔ"
End
È»ºóµ÷ÓÃÃüÁbrcc32.exe string.rc £¬Éú³Éstring.res£¬×îºóÔÚ³ÌÐòÖмÓÈë{$R string.res}¡£ÒÔÏÂËùÊöµÄ*.rcÎļþ¶¼ÐèʹÓÃÀàËÆµÄ·½·¨½øÐбàÒëºÍÒýÓá£
ÔÚdelphiÖÐÓÐÁ½ÖÖ·½·¨¿ÉÒÔ×°ÔØ×Ö·û´®×ÊÔ´¡£
1. ʹÓÃWindows APIº¯ÊýLoadString¡£Ê¹ÓÃÕâ¸öº¯ÊýÐèÒª¶¨ÒåÒ»¸öcharÊý×飬µ÷ÓõÄÐÎʽÈçÏ¡£
LoadString(hInstance, 1001, buffer, 100); //100£ºbufferÊý×éµÄ×î´ó³¤¶È£¬1001£ºÊý×ÖË÷Òý
2. ʹÓÃdelphi×ÔÉíµÄº¯ÊýLoadStr¡£Õâ¸öº¯ÊýÖ»ÐèÒªÒ»¸öÊý×ÖË÷Òý¾Í¿ÉµÃµ½ÏàÓ¦µÄ×Ö·û´®×ÊÔ´¡£µ÷ÓõÄÐÎʽÈçÏ¡£
button2.Caption := LoadStr(1002);
Èý¡¢Bitmap×ÊÔ´
λͼ×ÊÔ´µÄ¶¨Òå¾ÍÏà¶Ô¼òµ¥µÃ¶à¡£Ã¿¸öλͼ×ÊÔ´Ö»ÐèÒª¶¨ÒåÈýÏλͼ±êʶ λͼÀàÐÍ Î»Í¼ÎļþÃû £¨ÕâÈýÏîÖмäÓÿոñ»òtab¸ô¿ª£©ÆäÖÐλͼ±êʶºÍ×Ö·û´®×ÊÔ´µÄÊý×ÖË÷ÒýÀàËÆ£¬Ö»ÊÇλͼ±êʶ¿ÉÒÔÊÇ×Ö·û´®¡
Ïà¹ØÎĵµ£º
ÔÚ±àÖÆÁËÒ»¸öÓ¦ÓóÌÐòºóµÄά»¤½×¶Î£¬ÎÒÃÇ»áÃæÁÙ¸øÓ¦ÓóÌÐòÉý¼¶µÄ¹¤×÷.ÎÞÒÉ£¬ÊÖ¹¤Éý¼¶µÄ¹¤×÷ÊÇÊ®·Ö·±ËöµÄ£¬Äã¿ÉÄÜ»áÐèÒªµ½Óû§µÄ»úÆ÷ÉÏÈ¥¸üÐÂÎļþ.¿ÉÊÇ£¬Èç¹ûÄܱàÒ»¸ö×Ô¶¯Éý¼¶³ÌÐò£¬·ÅÔÚÍøÂçÉÏ£¬ÈÃÓû§ÏÂÔØ£¬Ö»ÐèÖ´ÐÐһϾÍÍê³ÉÉý¼¶¹¤×÷£¬²»ÊǺܷ½±ãÂð£¿Æäʵ£¬ÓÃDelphi¿ÉÒԺܷ½±ãµØ±àÖÆ³öÕâÑùÒ»¸öµÄ³ÌÐò.
ÒÔÏÂÊÇÎÒÃǵÄÀý×Ó£ ......
±¾ÎÄ×îÔçÔÚ±à³ÌÂÛ̳ÉÏ·¢±í£¬ÎÄÕµØÖ·£ºhttp://programbbs.com/bbs/view12-21351-1.htm£¬Ïà¹ØÎļþ¿ÉÒÔÔÚÉÏÊöµØÖ·µÄÒ³ÃæÖÐÏÂÔØ¡£×ªÔØÊ±Çë×¢Ã÷³ö´¦¡£
Ò»¡¢Ç°ÑÔ
ͨÅä·û¾ÍÊÇÖ¸“*”ºÍ“?”Á½¸ö×Ö·û£¬“*”±íʾµ±Ç°Î»ÖÿÉÒÔûÓлòÕßÓжà¸öÈÎÒâ×Ö·û£»“?”±íʾµ±Ç°Î»ÖÃÓÐÒ»¸öÈÎÒâ×Ö·û¡£ ......
ÓÃDelphi ʵÏÖ´®¿ÚͨѶ£¬³£Óõļ¸ÖÖ·½·¨Îª£ºÊ¹ÓÿؼþÈçMSCOMMºÍSPCOMM£¬Ê¹ÓÃAPIº¯Êý»òÕßÔÚDelphi Öе÷ÓÃÆäËü´®¿ÚͨѶ³ÌÐò¡£ÀûÓÃAPI±àд´®¿ÚͨÐųÌÐò½ÏΪ¸´ÔÓ£¬ÐèÒªÕÆÎÕ´óÁ¿Í¨ÐÅ֪ʶ£¬ÆäÓŵãÊÇ¿ÉʵÏֵŦÄܸüÇ¿´ó£¬Ó¦ÓÃÃæ¸ü¹ã·º£¬¸üÊʺÏÓÚ±àд½ÏΪ¸´ÔÓ µÄµÍ²ã´ÎͨÐųÌÐò¡£Ïà±È½Ï¶øÑÔ£¬ÀûÓÃSPComm¿Ø¼þÔòÏà¶Ô½Ï¼òµ¥£¬¸Ã¿Ø¼þ¾ßÓ ......
ʹÓÃdelphi¶àÄê,ǰЩÌìºöÈ»Óöµ½²»»ástringתpbyte,ºÜÊÇʧÂä,´Ëʱ¶ÔÓÚ±à³Ì»ù±¾¹¦µÄÖØÒªÐÔÉîÓÐÌå»á.ÕâÆäÖÐÓõ½MOVEº¯Êý.
ʹÓÃdelphi¶àÄê,ǰЩÌìºöÈ»Óöµ½²»»ástringתpbyte,ºÜÊÇʧÂä,´Ëʱ¶ÔÓÚ±à³Ì»ù±¾¹¦µÄÖØÒªÐÔÉîÓÐÌå»á.ÕâÆäÖÐÓõ½MOVEº¯Êý.
¸ãÁ˺ÃÒ»»á²Å¸ãÃ÷°×ÆäÓ÷¨.ËùÒÔÏëÌù³öÀ´°ïÖúÐèÒª°ïÖúµÄÈË.
var
&nb ......
DelphiÌṩµÄ×Ö·û´®º¯ÊýÀïÓÐÒ»¸öPosº¯Êý£¬ËüµÄ¶¨ÒåÊÇ£º
function Pos(Substr: string; S: string): Integer;
ËüµÄ×÷ÓÃÊÇÔÚ×Ö·û´®SÖвéÕÒ×Ö·û´®Substr£¬·µ»ØÖµÊÇSubstrÔÚSÖеÚÒ»´Î³öÏÖµÄλÖã¬Èç¹ûûÓÐÕÒµ½£¬·µ»ØÖµÎª0¡£
ʹÓÃposº¯ÊýÀ´²éÕÒ×Ö·ûµÚÒ»´Î³öÏÖµÄλÖÃ
var
str1:string;
i,j:integer;
begin
str1:='dsf465 ......