Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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×ÊÔ´ÎļþÖÆ×÷¼°Ê¹ÓÃÏê½â

Ò»¡¢Òý×Ó£º
ÏÖÔÚµÄWindowsÓ¦ÓóÌÐò¼¸ºõ¶¼Ê¹ÓÃͼ±ê¡¢Í¼Æ¬¡¢¹â±ê¡¢ÉùÒôµÈ£¬ÎÒÃdzÆËüÃÇΪ×ÊÔ´£¨Resource£©¡£×î¼òµ¥µÄʹÓÃ×ÊÔ´µÄ°ì·¨ÊÇ°ÑÕâЩ×ÊÔ´µÄÔ´Îļþ´òÈëÈí¼þ°ü£¬ÒÔ·½±ã³ÌÐòÐèÒªµÄʱºòµ÷Óá£×ÊÔ´ÊdzÌÐòµÄÒ»²¿·Ö£¬³ÌÐòÒªÕý³£ÔËÐоÍÀë²»ÁË×ÊÔ´Îļþ¡£µ«ÊÇËüÊDz»¿ÉÖ´ÐдúÂë¡£
ΪÁ˸üºÃµØ¹ÜÀí×ÊÔ´£¬DelphiÖÐÌṩÁËÒ»ÖÖ.RESÀàÐ ......

delphiÖÐcanvas»­²¼µÄÔËÓÃ

 ÔÚDELPHIΪ±à³ÌÕßÌṩÁËÒ»¸öÁé»îµÄ»æͼ³¡Ëù,¼´±¾ÎÄËùÊöµÄ   
CANVASÀà,ÔÚDELPHIÖеĺܶà¿Ø¼þ¶¼¾ßÓдËÊôÐÔ,ʹ±à³ÌÕß¿ÉÒÔ   
ÔÚÕâЩµÄ¿Ø¼þµÄ±íÃæËæÐÄËùÓûµÄ»æͼ,Õâ¶ÔÍêÉÆÓû§½çÃæ»òÕßÖÆ   
×÷һЩÆÁÄ»Ìؼ¼¶¼ÓÐ×Å·Ç·²µÄ×÷ÓÃ,ÏÂÃæ¾ÙÀý˵Ã÷¼¸ÖÖÌØÊâÆÁÄ»  &n ......

ÓÃPLSQL×Ô¶¯Éú³ÉÊý¾Ý¿â±íµÄDelphi¶ÔÏó

 DECLARE
  TYPE TY_QUECUR IS REF CURSOR;
  CUR_COLUMNS  TY_QUECUR;
  SQLCMD  VARCHAR(500);
  TABNAME VARCHAR(20);
  COLNAME VARCHAR(50);
  COLTYPE VARCHAR(20);
  COLCOMMENT VARCHAR2(50);
  COLLENGTH INTEGER;
  COLPRECISION INTEGER; ......

ÖÕÓڸ㶨ÁËDelphiµÄUnicodeÖ§³Ö(Tnt¿Ø¼þ)

Ô­À´ÊÇÒªÔÚ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';
......

Using COM+ object pooling with Delphi 6

 URL: http://edn.embarcadero.com/article/27568
Abstract: Delphi 6 introduces support for COM+ object pooling, which can provide significant performance improvements under some circumstances. We take a look at Delphi 6s object pooling support. By Vincent Parrett.
Typically, when a client appl ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ