Format¸ñʽ Delphi
Delphi formatµÄÓ÷¨
Ò»¡¢Formatº¯ÊýµÄÓ÷¨
FormatÊÇÒ»¸öºÜ³£Óã¬È´ÓÖËÆºõºÜ·³µÄ·½·¨£¬±¾ÈËÊÔͼ¶ÔÕâ¸ö·½·¨µÄ°ïÖú½øÐÐһЩ·Ò룬ÈÃËüÓÐÒ»¸öÍêÕûµÄ¸Åò£¬ÒÔ¹©´ó¼Ò²éѯ֮Óãº
Ê×ÏÈ¿´ËüµÄÉùÃ÷£º
function Format(const Format: string; const Args: array of const): string; overload;
ÊÂʵÉÏFormat·½·¨ÓÐÁ½¸öÖÖÐÎʽ£¬ÁíÍâÒ»ÖÖÊÇÈý¸ö²ÎÊýµÄ£¬Ö÷񻂿±ðÔÚÓÚËüÊÇḬ̈߳²È«µÄ£¬µ«²¢²»¶àÓã¬ËùÒÔÕâÀïÖ»¶ÔµÚÒ»¸ö½éÉÜ£º
function Format(const Format: string; const Args: array of const): string; overload;
Format²ÎÊýÊÇÒ»¸ö¸ñʽ×Ö·û´®£¬ÓÃÓÚ¸ñʽ»¯ArgsÀïÃæµÄÖµµÄ¡£ArgsÓÖÊÇÊ²Ã´ÄØ£¬ËüÊÇÒ»¸ö±äÌåÊý×飬¼´ËüÀïÃæ¿ÉÒÔÓжà¸ö²ÎÊý£¬¶øÇÒÿ¸ö²ÎÊý¿ÉÒÔ²»Í¬¡£
ÈçÒÔÏÂÀý×Ó£º
Format('my name is %6s',['wind']);
·µ»Øºó¾ÍÊÇ
my name is wind
ÏÖÔÚÀ´¿´Format²ÎÊýµÄÏêϸÇé¿ö£º
FormatÀïÃæ¿ÉÒÔдÆÕͨµÄ×Ö·û´®£¬±ÈÈç'my name is' µ«ÓÐЩ¸ñʽָÁî×Ö·û¾ßÓÐÌØÊâÒâÒ壬±ÈÈç"%6s"
¸ñʽָÁî¾ßÓÐÒÔϵÄÐÎʽ£º
"%" [index ":"] ["-"] [width] ["." prec] type
ËüÊÇÒÔ"%"¿ªÊ¼,¶øÒÔtype½áÊø£¬type±íʾһ¸ö¾ßÌåµÄÀàÐÍ¡£ÖмäÊÇÓÃÀ´¸ñʽ»¯typeÀàÐ͵ÄÖ¸Áî×Ö·û£¬ÊÇ¿ÉÑ¡µÄ¡£
ÏÈÀ´¿´¿´type,type¿ÉÒÔÊÇÒÔÏÂ×Ö·û£º
d Ê®ÖÆÊý£¬±íʾһ¸öÕûÐÍÖµ
u ºÍdÒ»ÑùÊÇÕûÐÍÖµ£¬µ«ËüÊÇÎÞ·ûºÅµÄ£¬¶øÈç¹ûËü¶ÔÓ¦µÄÖµÊǸºµÄ£¬Ôò·µ»ØÊ±ÊÇÒ»¸ö2µÄ32´Î·½¼õÈ¥Õâ¸ö¾ø¶ÔÖµµÄÊý
È磺Format('this is %u',[£2]);
·µ»ØµÄÊÇ£ºthis is 4294967294
f ¶ÔÓ¦¸¡µãÊý
e ¿ÆÑ§±íʾ·¨£¬¶ÔÓ¦ÕûÐÍÊýºÍ¸¡µãÊý£¬
±ÈÈçFormat('this is %e',[-2.22]);
·µ»ØµÄÊÇ£ºthis is -2.22000000000000E+000
µÈÒ»ÏÂÔÙ˵Ã÷Èç¹û½«ÊýµÄ¾«¶ÈËõС
g Õâ¸öÖ»ÄܶÔÓ¦¸¡µãÐÍ£¬ÇÒËü»á½«ÖµÖжàÓàµÄÊýÈ¥µô
±ÈÈçFormat('this is %g',[02.200]);
·µ»ØµÄÊÇ£ºthis is 2.2
n Ö»ÄܶÔÓ¦¸¡µãÐÍ£¬½«Öµ×ª»¯ÎªºÅÂëµÄÐÎʽ¡£¿´Ò»¸öÀý×Ó¾ÍÃ÷°×ÁË
Format('this is %n',[4552.2176]);
·µ»ØµÄÊÇthis is 4,552.22
×¢ÒâÓÐÁ½µã£¬Ò»ÊÇÖ»±íʾµ½Ð¡ÊýºóÁ½Î»£¬µÈÒ»ÏÂ˵ÔõôÏû³ýÕâÖÖÇé¿ö
¶þÊÇ£¬¼´Ê¹Ð¡ÊýûÓб»½Ø¶Ï£¬ËüÒ²²»»áÒ²ÏñÕûÊý²¿·ÖÒ»ÑùÓжººÅÀ´·Ö¿ªµÄ
m Ç®±ÒÀàÐÍ£¬µ«¹ØÓÚ»õ±ÒÀàÐÍÓиüºÃµÄ¸ñʽ»¯·½·¨£¬ÕâÀïÖ»ÊǼòµ¥µÄ¸ñʽ»¯
ÁíÍâËüÖ»¶ÔÓ¦ÓÚ¸¡µãÖµ
Format('this is %
Ïà¹ØÎĵµ£º
ÓÉÓÚÏîÄ¿ÐèÒª£¬¿ªÊ¼Ñ§Ï°DELPHI£¬²¢×Ô¼º±àд´úÂëÀ´²âÊÔÓÃVCдµÄDLL£¬¾õµÃ×Ô¼ºÓÖ¶àÕÆÎÕÁËһЩ£¬²»¶ÔµÄµØ·½Ï£ÍûÖ¸Õý£¬ÎÒ»áºÃºÃѧϰ
1¡¢ÏìÓ¦¼üÅÌʼþ£º
ÒòΪKeyPreviewĬÈÏÊÇ False;ÎÒÃÇÕâÀïÐèÒªÏìÓ¦¼üÅÌʼþµÄ»°£¬ÐèÒª½«ÆäÐÞ¸ÄΪTrue£»
ËùÒÔKeyPreview:=True; Õâ¶ÔһЩ¿ì½Ý¼ü»áÓÐÓá£
ÔÚFormCreateÕâ¸öº¯ÊýÀïÐÞ¸ÄKeyPrevie ......
»ñµÃÍø¿¨µÄMACµØÖ·ÔÚºÜ¶àµØ·½¶¼ÓкܴóµÄÓô¦,ÏÂÃæµÄº¯ÊýÒÔXX-XX-XX-XX-XX-XX µÄ¸ñʽ·µ»ØÔ¶³Ì»ò±¾µØ»úÆ÷µÄMACµØÖ·¡£
Function to return the MAC address of a remote or local machine in the format XX-XX-XX-XX-XX-XX
·µ»ØµÄMACµØÖ·ÊÇÒ»¸öÄÜÓÃÔÚ¶à¸ö·½ÃæµÄΨһ±êʶ¡£Ê¹Ó÷½·¨£º
ShowMessage(GetMacAddress( ......
ʲôÊÇÁ÷£¿Á÷,¼òµ¥À´Ëµ¾ÍÊǽ¨Á¢ÔÚÃæÏò¶ÔÏó»ù´¡ÉϵÄÒ»ÖÖ³éÏóµÄ´¦ÀíÊý¾Ý
µÄ¹¤¾ß¡£ÔÚÁ÷ÖУ¬¶¨ÒåÁËһЩ´¦ÀíÊý¾ÝµÄ»ù±¾²Ù×÷£¬Èç¶ÁÈ¡Êý¾Ý£¬Ð´ÈëÊý¾ÝµÈ£¬
³ÌÐòÔ±ÊǶÔÁ÷½øÐÐËùÓвÙ×÷µÄ£¬¶ø²»ÓùØÐÄÁ÷µÄÁíһͷÊý¾ÝµÄÕæÕýÁ÷Ïò¡£Á÷²»
µ«¿ÉÒÔ´¦ÀíÎļþ£¬»¹¿ÉÒÔ´¦Àí¶¯Ì¬ÄÚ´æ¡¢ÍøÂçÊý¾ÝµÈ¶àÖÖÊý¾ÝÐÎʽ¡£Èç¹ûÄã¶Ô
Á÷µÄ²Ù×÷·Ç³£ÊìÁ·£¬ÔÚ³ ......
ÔÀ´ÊÇÒªÔÚFormCreateÖмÓÈëÒÔÏ´úÂë:
procedure TTntForm1.TntFormCreate(Sender: TObject);
begin
//Õâ¾äºÜ¹Ø¼ü.¶ÔÓÚÆ½Ì¨µÄÖ§³Ö.
if Win32Platform = VER_PLATFORM_WIN32_NT then
Font.Name := 'MS Shell Dlg 2'
else
Font.Name := 'MS Shell Dlg';
......
ÒÔǰ¿´ÁË Í¨¹ý±ÀÀ£µØÖ·ÕÒ´íÎóÐÐÊýÖ®VC°æ ÄÇʱºò»¹Ã»ÓÃDELPHI
×òÍí¸ÕºÃÓÖ¿´µ½ÁË ËùÒÔ¾ÍÊÔÁËÒ»ÏÂDELPHIµÄ£¬Óë´ó¼Ò¹²Ïí ^_^
ʲôÊÇ MAP Îļþ£¿¼òµ¥µØ½²£¬ MAP ÎļþÊdzÌÐòµÄÈ«¾Ö·ûºÅ¡¢Ô´ÎļþºÍ´úÂëÐкÅÐÅÏ¢µÄΨһµÄÎı¾±íʾ·½·¨£¬Ëü¿ÉÒÔÔÚÈκεط½¡¢ÈκÎʱºòʹÓ㬲»ÐèÒªÓжîÍâµÄ³ÌÐò½øÐÐÖ§³Ö¡£¶øÇÒ£¬ÕâÊÇΨһÄÜÕÒ³ö³Ì ......