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

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 %m',[9552.21]);
·µ»Ø£º


Ïà¹ØÎĵµ£º

DelphiµÄHashTable

{-----------------------------------------------------------------------------
 Unit Name: HashTable
 Author:    LiuHeng
 Date:      2010-04-13
 Purpose:   ·â×°DelphiµÄHashTable
 History:
------------------------------- ......

delphi virtual dynamic

dynamic¾ÍÊÇËüÊǶ¯Ì¬·½·¨£¬Ã»Óо²Ì¬µØÖ·£¬ËùÒÔËÙ¶ÈÂýÒ»µã
virtualÊÇÐé·½·¨£¬Èç¹ûÔÚ»ùÀàÖв»ÉùÃ÷³ÉÐé·½·¨µÄ»°£¬¼Ì³Ðºó£¬¸Ã·½·¨»áÌáʾһ¾¯¸æÐÅÏ¢£¬°Ñ»ùÀàÖз½·¨ÆÁ±ÎµôÁË
---------------------------------------------------------------
¶¯Ì¬£¨Dynamic£©ºÍÐéÄ⣨Virtual£©ºó¶¼¿ÉÒÔʹÓÃOverride¹Ø¼ü×ÖÔÚÅÉÉúÀàÖжԶÔÓ¦ ......

delphiÏ̳߳ء¾×ª¡¿


[code=Delphi(Pascal)]
unit uThreadPool;
{  aPool.AddRequest(TMyRequest.Create(RequestParam1, RequestParam2, ...)); }
interface
uses
  Windows,
  Classes;
// ÊÇ·ñ¼Ç¼ÈÕÖ¾
// {$DEFINE NOLOGS}
type
  TCriticalSection = class(TObject)
  protected
    FSec ......

Delphiµ÷ÓÃExcelµÄÆäËü¼¼ÇÉ

1>ÏòÖ¸¶¨µÄÇøÓò»òÐÎ×´Ìí¼Ó³¬Á´½Ó¡£
Óï·¨
±í´ïʽ.Add(Anchor, Address, SubAddress, ScreenTip, TextToDisplay)
±í´ïʽ   Ò»¸ö´ú±í Hyperlinks ¶ÔÏóµÄ±äÁ¿¡£
²ÎÊý
Ãû³Æ±ØÑ¡/¿ÉÑ¡Êý¾ÝÀàÐÍÃèÊö
Anchor
±ØÑ¡
Object
³¬Á´½ÓµÄλÖ᣿ÉΪ Range »ò Shape ¶ÔÏó¡£
Address
±ØÑ¡
String
³¬Á´½ÓµÄµØÖ ......

delphiµ÷ÓÃExcel²éÕÒ¶¨Î»

var
ExcelFile:string;
SourceRange,DesRange:Variant;
Row,Column,i:integer;
begin
if OpenDialog1.Execute then
begin
ExcelFile:=OpenDialog1.Files[0];
if not FileExists(ExcelFile) then Exit;
end
else
Exit;
try
ExcelApp:=CreateOleObject('Excel.Application');
......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ