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¸ô¿ª£©ÆäÖÐλͼ±êʶºÍ×Ö·û´®×ÊÔ´µÄÊý×ÖË÷ÒýÀàËÆ£¬Ö»ÊÇλͼ±êʶ¿ÉÒÔÊÇ×Ö·û´®¡
Ïà¹ØÎĵµ£º
ÀýÈçÒÔÏ´úÂ룺
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
......
DelphiÖ®Tchart¿Ø¼þʹÓÃÐĵÃ
×î½üÔÚѧϰdelphi£¬×öÒ»¸öÈí¼þÁ·ÊÖ£¬Óõ½Tchart¿Ø¼þ£¬ÓÐЩ´ÖÂÔµÄʹÓÃÐĵ㬹©delphi³õѧÕ߲ο¼¡£
TChartÊÇdelphiÀïÃæÒ»¸ö±ê×¼µÄͼÐÎÏÔʾ¿Ø¼þ¡£Ëü¿ÉÒÔ¾²Ì¬Éè¼Æ£¨at design time£©Ò²¿ÉÒÔ¶¯Ì¬Éú³É¡£¿ÉÏÂÔØSteema TeeChart 7£¬Ã»ÓÐÔ´´úÂ룬ÄÜÓþͺã¡
&nb ......
¼¼Êõ½»Á÷,DH½²½â. ¼ÇµÃºÜÔç֮ǰÎÒ¾Í˵¹ý,Êý×éºÍ½á¹¹ÌåÔÚÄÚ´æÖÐÆäʵһÑùµÄ,ËûÃǶ¼ÊÇÁ¬Ðø·Ö²¼µÄ.
ÀýÈç: TMyStruct = record
A,B,C:Integer;
end;
T3IntArray = array[0..2]of Integer;
ÕâÁ½¸ö¶¼Õ¼12×Ö½Ú,¶øÇÒTMyStruct.A¾ÍÊÇT3IntArray[0].
¶øÎÒÃÇÖªµÀÔÚ·ÃÎÊÊý×éÖÐij¸öÔªËØµÄʱºò,Ö»ÊÇÔÚµ ......
Ö¸ÕëÓ÷¨µÄÀý×Ó£º
1 var
2 X, Y: Integer; // X and Y ÕûÊýÀàÐÍ
3 &n ......