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¸ô¿ª£©ÆäÖÐλͼ±êʶºÍ×Ö·û´®×ÊÔ´µÄÊý×ÖË÷ÒýÀàËÆ£¬Ö»ÊÇλͼ±êʶ¿ÉÒÔÊÇ×Ö·û´®¡
Ïà¹ØÎĵµ£º
¼¼Êõ½»Á÷,DH½²½â. Õâ¸öÊÇÔÚCSDNÉÏÃæ¿´¼ûµÄÎÊÌâ.ÎÒ˵˵×Ô¼ºµÄÏë·¨. procedure TForm1.btn1Click(Sender: TObject);
var
Str:String;
begin
Str:='abc' ;
Str:=str+'d';
str:=copy(Str,1,3);
str:=UpperCase(str);
end;
ÎÊÌâ1´ð°¸:2010ÏÂ
Unit4.pas.29: begin
005144E0 55 p ......
ÍøÉÏDownµÄÒ»¸öµ¥Ôª.×Ô¼º¸ÄÁËÏÂ. unit utCRC32;
interface
uses
Windows,SysUtils,Classes;
const //Crc32±í
Crc32Tab: Array[0..$FF] of LongInt =
($00000000, $77073096, $ee0e612c, $990951ba, $076dc419, $706af48f,
$e963a535, $9e6495a3, $0edb8832, $79dcb8a4, $e0d5e91e, $97d2d988,
$0 ......
ʵ¼ÊÉÏÕâ¸öÃû×Ö½Ð[SDL & Delphi]Ò²²»³ÉÎÊÌ⣬ ÒòΪ³ýÁËDelphiËÆºõҲûÓÐÄĸöÁ÷ÐеĿª·¢¹¤¾ßÓõÄÊÇPascalÓïÑÔ¡£
SDLÆäʵÎÒҲֻѧÁ˲»µ½Á½ÐÇÆÚ¶øÒÑ¡£¸Õ¿ªÊ¼ÎÒÏëÊÔͼÓÃVC£¬ÒòΪÕâÑù×ÊÁÏ×îÈ«£¬Ò²ºÜºÃÕÒ£¬µ«Ì«¾ÃûÓÃVCÏÖÔÚ¿´CµÄ´úÂëÓеãÀ§ÄÑ£¨->Õâ¸öËã·ûÊǸÉÂðµÄÀ´×Å……£©¡£Æäʵ×÷Ϊһ¸öרҵ²»ÊǼÆËã»úµÄÈË ......
һЩ»ù´¡µÄÎÊÌâÎÒ²»ÔÙ׸ÊöÁË£¬²éÔİïÖúÎĵµ£¨Object Pascal SDL Doc.chm£©ÏÔÈ»±ÈÔÚÕâ¿´ÎÒºú³¶ºÏÊʵöࡣÄÇЩ»ÏñËØ£¬»ñÈ¡ÏñËØÐÅÏ¢£¬ÏÔʾBMPÎļþ¶àÊýʱºòÖ»Òª°ÑÄÇЩ´úÂë¸´ÖÆ¹ýÀ´»ù±¾¾ÍÄܹ¤×÷¡£ÏÂÃæËµµÄÊÇÔõÑùÏÔʾÖÐÎÄ¡£
ÆäʵSDL¼ÓÉÏttfÖ§³Öʱ£¨ÐèÒª½«¶ÔÓ¦µÄdllÎļþÌí¼Óµ½¹¤³ÌĿ¼ÀÊÇÍêÈ«¿ÉÒÔÏÔʾÖÐÎĵ쬼òÌåºÍ·±Ì嶼ûΠ......