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¸ô¿ª£©ÆäÖÐλͼ±êʶºÍ×Ö·û´®×ÊÔ´µÄÊý×ÖË÷ÒýÀàËÆ£¬Ö»ÊÇλͼ±êʶ¿ÉÒÔÊÇ×Ö·û´®¡
Ïà¹ØÎĵµ£º
tableDB.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ ExtractFilePath(dir) +';Extended Properties=dBase 5.0;Persist Security Info=False;';
tableDB.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(dir)+';Extended Pro ......
ÀýÈçÒÔÏ´úÂ룺
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;
type
TForm1 = class(TForm)
procedure one();
function two(x,y:integer):integer;
private
......
һЩ»ù´¡µÄÎÊÌâÎÒ²»ÔÙ׸ÊöÁË£¬²éÔÄ°ïÖúÎĵµ£¨Object Pascal SDL Doc.chm£©ÏÔÈ»±ÈÔÚÕâ¿´ÎÒºú³¶ºÏÊʵöࡣÄÇЩ»ÏñËØ£¬»ñÈ¡ÏñËØÐÅÏ¢£¬ÏÔʾBMPÎļþ¶àÊýʱºòÖ»Òª°ÑÄÇЩ´úÂ븴ÖƹýÀ´»ù±¾¾ÍÄܹ¤×÷¡£ÏÂÃæ˵µÄÊÇÔõÑùÏÔʾÖÐÎÄ¡£
ÆäʵSDL¼ÓÉÏttfÖ§³Öʱ£¨ÐèÒª½«¶ÔÓ¦µÄdllÎļþÌí¼Óµ½¹¤³ÌĿ¼ÀÊÇÍêÈ«¿ÉÒÔÏÔʾÖÐÎĵģ¬¼òÌåºÍ·±Ì嶼ûΠ......
ʹÓÃdelphi¶àÄê,ǰЩÌìºöÈ»Óöµ½²»»ástringתpbyte,ºÜÊÇʧÂä,´Ëʱ¶ÔÓÚ±à³Ì»ù±¾¹¦µÄÖØÒªÐÔÉîÓÐÌå»á.ÕâÆäÖÐÓõ½MOVEº¯Êý.
ʹÓÃdelphi¶àÄê,ǰЩÌìºöÈ»Óöµ½²»»ástringתpbyte,ºÜÊÇʧÂä,´Ëʱ¶ÔÓÚ±à³Ì»ù±¾¹¦µÄÖØÒªÐÔÉîÓÐÌå»á.ÕâÆäÖÐÓõ½MOVEº¯Êý.
¸ãÁ˺ÃÒ»»á²Å¸ãÃ÷°×ÆäÓ÷¨.ËùÒÔÏëÌù³öÀ´°ïÖúÐèÒª°ïÖúµÄÈË.
var
&nb ......