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

DelphiÈÕÆÚº¯Êý

ËùÔÚµ¥Ôª£º DateUtils
Day ¿ªÍ·µÄº¯Êý
1¡¢DayOf()
ÃèÊö£º ʹÓà DateOf º¯ÊýÓÃÀ´°ÑÒ»¸ö TDateTime ÀàÐ͵ıäÁ¿×ª±ä³ÉÒ»¸ö Ö»´øÓÐÈÕÆÚµÄ TDateTime ÀàÐͱäÁ¿¡£ ÀýÈ磺 showmessage(DateTimetostr(dateof(now()))); ÄãµÃµ½µÄÊÇ 2003/03/19 ¶ø showmessage(DateTimetostr((now()))); µÃµ½µÄÊÇ
2¡¢DateTimeTostr()
ÃèÊö£º DateTimeToString º¯Êý½« TDateTime ÀàÐ͵IJÎÊý DateTime ת»»³ÉÒ»¸ö ×Ö·û´®£¬Ê¹Óøø¶¨µÄÈ«¾Ö±äÁ¿ ShortDateFormat µÄ¸ñʽ£¬Ê±¼ä²¿·Ö°´ÕÕ ¸ø¶¨µÄÈ«¾Ö±äÁ¿ LongTimeFormat µÄ¸ñʽ¡£ ÆäÖÐ DateTime ΪÁãµÄ²¿·Ö½«²»»áÏÔʾ³öÀ´¡£ ÀýÈ磺 ShortDateFormat:=’yyyy mm dd’; showmessage(DateTimetostr((now()))); Ä㽫µÃµ½£º2003
3¡¢DateTimeToString
ÃèÊö£º DateTimeToString ·½·¨½«TDateTimeÀàÐ͵IJÎÊýDateTime °´ÕÕÓɲÎÊýFormatÌṩµÄ¸ñʽ ת»¯³É×Ö·û´®£¬²¢±£´æÔÚResultÖС£ ¶ÔÓÚFormatµÄ¸ñʽÀàÐÍ£¬Çë¿´ Date-Time format strings µÄ°ïÖú¡£ ÀýÈ磺 DateTimeToString(result,’yyyy mm dd’,now()); ÄÇô resultµÄ½á¹ûΪ£º2003
4¡¢DateTimeToSystemTime ()
ÃèÊö£º ÓÐʱΪÁ˵÷ÓÃAPIº¯ÊýÀ´Ê¹ÓÃϵͳʱ¼ä£¬Äã¿ÉÒÔʹÓà DateTimeToSystemTime ·½·¨£¬À´½«Ò»¸ö TDateTime ÀàÐ͵Äʱ¼ä±äÁ¿×ª»»³ÉÒ»¸ö TSystemTime ÀàÐÍµÄ ÏµÍ³Ê±¼ä¡£
5¡¢DateTimeToUnix ()
ÃèÊö£º ʹÓà DateTimeToUnix º¯ÊýÀ´½«Ò»¸ö TDateTime ÐÍʱ¼ä±äÁ¿×ª»»³ÉÒ»¸öÏàÓ¦µÄ Unix ¸ñʽ µÄÈÕÆÚºÍʱ¼ä¡£
6¡¢DateToStr£¨£©
ÃèÊö£º ʹÓà DateToStr º¯ÊýÄܵõ½ TDateTime ÈÕÆÚʱ¼äÀàÐ͵ÄÈÕÆÚ²¿·Ö¡£ÈÕÆÚµÄת»»¸ñʽÒÀÀµÓÚ È«¾Ö±äÁ¿ ShortDateFormat¡£
7¡¢DayOf ÓëDayOfTheMonth
ÃèÊö£º ¶ÔÓÚ¸ø¶¨µÄTDateTimeÀàÐ͵ÄÈÕÆÚʱ¼ä£¬Ê¹Óà DayOf º¯ÊýÄܵõ½¸ÃÈÕÆÚÊǸÃÔ·ݵĵڼ¸Ìì¡£ ¸Ãº¯ÊýµÄ·µ»ØÊýÖµÔÚ 1 µ½ 31 Ö®¼ä ×¢Ò⣺DayOf º¯ÊýµÃµ½µÄ½á¹ûÓë DayOfTheMonth Ïàͬ¡£ ÀýÈ磺 showmessage(inttostr(dayof(now))); µÃµ½µÄÊÇ£º19 £¨½ñÌìÊÇ Ä³ÔÂ19ÈÕ£© Óë DayOf Ïàͬ¡£
8¡¢DayOfTheWeek
ÃèÊö£º ¶ÔÓÚ¸ø¶¨µÄTDateTimeÀàÐ͵ÄÈÕÆÚʱ¼ä£¬Ê¹Óà DayOfTheWeek º¯ÊýÄܵõ½¸ÃÈÕÆÚÊǸÃÐÇÆÚµÄ µÚ¼¸Ìì¡£DayOfTheWeek º¯ÊýµÄ·µ»ØÊýֵΪ 1 µ½ 7£¬ÆäÖÐ 1 ±íʾÐÇÆÚÒ»£¬¶ø 7 ±íʾÐÇÆÚÈÕ¡£ ×¢Ò⣺DayOfTheWeek ÊÇ ISO 8601 ±ê×¼µÄ£¨´Ë±ê׼Ϊ ÐÇÆÚÒ»ÊÇÒ»ÖܵĵÚÒ»Ì죩¡£¶ÔÓÚÒ»ÖÜ µÄµÚÒ»ÌìÊÇÐÇÆÚÈյıê×¼£¬Èç¹ûÏë»ñµÃÐÇÆÚÊý£¬ÇëʹÓà DayOfWeek º¯Êý¡£
9¡¢DayOfTheYear
ÃèÊö£º ¸ù¾Ý¸ø¶¨µÄ


Ïà¹ØÎĵµ£º

Delphi±í´ïʽ

function ExpCalc(exp: string): string;
var
vScript: Variant;
begin
vScript := CreateOleObject('ScriptControl');
vScript.Language := 'VBScript';
Result := vScript.Eval(exp);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:=ExpCalc('100 *4.17/0.5*(55. ......

Delphi formatµÄÓ÷¨

Ò»¡¢Formatº¯ÊýµÄÓ÷¨
FormatÊÇÒ»¸öºÜ³£Óã¬È´ÓÖËÆºõºÜ·³µÄ·½·¨£¬±¾ÈËÊÔͼ¶ÔÕâ¸ö·½·¨µÄ°ïÖú½øÐÐһЩ·­Ò룬ÈÃËüÓÐÒ»¸öÍêÕûµÄ¸Åò£¬ÒÔ¹©´ó¼Ò²éѯ֮Óãº
Ê×ÏÈ¿´ËüµÄÉùÃ÷£º
function Format(const Format: string; const Args: array of const): string; overload;
ÊÂʵÉÏFormat·½·¨ÓÐÁ½¸öÖÖÐÎʽ£¬ÁíÍâÒ»ÖÖÊÇÈý¸ö²ÎÊýµÄ£¬Ö ......

ÌÔ±¦Æ½Ì¨¿ª·¢ delphi ʾÀý

ÌÔ±¦¿ª·Åƽ̨µÄ¿ª·¢Àý×Ó´ó¶à¶¼ÊÇc#£¬php£¬javaµÈ£¬È±ÉÙPascalµÄÀý×Ó¡£
ÏÖÓÃdelphiдÁËÒ»¸öʾÀý£¬
¹Ø¼üµãÊÇÇ©ÃûµÄÉú³É£¬Ç©ÃûÐè°´key×Öĸ˳ÐòÅÅÐò£¬²¢È¥µôµÈÓںźóÊ×βÏàÁ¬¡£
¹Ø¼ü´úÂ룺
 memstr:= TMemoryStream.Create;
 //ÓÃÊÚȨÂë»ñÈ¡ session
  IdHTTP1.Get('http://container.api.tbsandbox.com/c ......

DelphiÎļþ²Ù×÷³£Óú¯Êý

====================================================
Delphi²Ù×÷ÎļþµÄÒ»°ã²½Ö裺
1£©¹ØÁªÎļþ£º
 AssignFile(var F; FileName :string)£»
2£©³õʼ»¯Îļþ£º
 Append(var F :Text);   
 //ֻд£¬ÓÚÎļþ×îºó×·¼ÓÊý¾Ý
 Reset(var F [; RecSize :Word]);     ......

delphi±à³ÌÀïµÄbool¸úbooleanÀàÐÍÓÐÊ²Ã´Çø±ð

boolÊÇLongBoolÀàÐÍ¡£
DelphiÖж¨ÒåÁËËÄÖÖ²¼¶ûÀàÐÍ£ºBoolean£¬ByteBool£¬WordBoolºÍLongBool¡£ºóÃæÈýÖÖ²¼¶ûÀàÐÍÊÇΪÁËÓëÆäËûÓïÑÔ¼æÈݶøÒýÈëµÄ£¬Ò»°ãÇé¿öϽ¨ÒéʹÓÃBooleanÀàÐÍ¡£
ÕâËÄÖÖÀàÐ͵IJ¼¶ûÖµÕ¼ÓÃÄÚ´æµÄÊýÁ¿ÈçÏ£º
Boolean 1 Byte
ByteBool 1 Byte
WordBool 2 Bytes£¨1 Word£©
LongBool 4 Bytes£¨2 Words£©
¶Ô ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ