其他

DateUtils.DaysInYear();DateUtils.DaysInMonth();DateUtils.DaysInAYear();DateUtils.DaysInAMonth();DateUtils.WeeksInYear();DateUtils.WeeksInAYear();unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

DateUtils.WithinPastYears();DateUtils.WithinPastMonths();DateUtils.WithinPastWeeks();DateUtils.WithinPastDays();DateUtils.WithinPastHours();DateUtils.WithinPastMinutes();DateUtils.WithinPastSeconds();DateUtils.WithinPastMilliSeconds(); unit

SysUtils.DecodeDate();SysUtils.DecodeDateFully();SysUtils.DecodeTime();DateUtils.DecodeDateTime();DateUtils.DecodeDateDay();DateUtils.DecodeDateWeek();DateUtils.DecodeDateMonthWeek();DateUtils.DecodeDayOfWeekInMonth();unit Unit1;interfaceuses

DateUtils.RecodeDateTime();DateUtils.RecodeDate();DateUtils.RecodeTime();DateUtils.RecodeYear();DateUtils.RecodeMonth();DateUtils.RecodeDay();DateUtils.RecodeHour();DateUtils.RecodeMinute();DateUtils.RecodeSecond();DateUtils.RecodeMilliSecond();DateU

DateUtils.IsValidDateTimeDateUtils.IsValidDateDateUtils.IsValidTimeDateUtils.IsValidDateDayDateUtils.IsValidDateWeekDateUtils.IsValidDateMonthWeek//可用下面幾個過程拋出異常:DateUtils.InvalidDateDayErrorDateUtils.InvalidDateMonthWeekErrorDateUtils.InvalidDateTime

SysUtils.IsLeapYear();DateUtils.IsInLeapYear();unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end;var

問題來源: http://www.cnblogs.com/del/archive/2008/11/04/1326105.html#1533947本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton;

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end;var Form1: TForm1;implementation{$R *.dfm}uses

DateUtils.IncYear();DateUtils.IncMonth();DateUtils.IncWeek();DateUtils.IncDay();DateUtils.IncHour();DateUtils.IncMinute();DateUtils.IncSecond();DateUtils.IncMilliSecond();unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes,

問題來源: http://www.cnblogs.com/del/archive/2009/05/15/1458017.html#1534170//方法一, 同 BorderStyle := bsSingle;unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm)

Order By Asc|Desc本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB;type TForm1 = class(TForm) DBGrid1: TDBGrid; DataSource1:

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end;var Form1: TForm1;implementation{$R *.dfm}uses

{參數是指定的年、月、周、日}DateUtils.StartOfAYear DateUtils.StartOfAMonthDateUtils.StartOfAWeek DateUtils.StartOfADay{參數是 TDateTime}DateUtils.StartOfTheYear DateUtils.StartOfTheMonthDateUtils.StartOfTheWeek

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end;var Form1: TForm1;implementation{$R *.dfm}uses

SysUtils.Now;SysUtils.Date;SysUtils.Time;SysUtils.CurrentYear;unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject);

SysUtils.StrToDate();SysUtils.StrToDateDef();SysUtils.TryStrToDate();SysUtils.StrToTime();SysUtils.StrToTimeDef();SysUtils.TryStrToTime();SysUtils.StrToDateTime();SysUtils.StrToDateTimeDef();SysUtils.TryStrToDateTime();SysUtils.DateToStr();SysUtils.T

//相關函數:SysUtils.FloatToDateTime();SysUtils.TryFloatToDateTime();在 System 單元定義有: TDateTime = type Double;看來 TDateTime 是一個 8 位元組 64 位元資料, 不過是 Double 的別名.{測試: TDateTime 就是一個 Double}var t: TDateTime; d: Double; s: string;begin t := EncodeDateTime(200

//相關函數:SysUtils.DateTimeToTimeStamp();SysUtils.TimeStampToDateTime();SysUtils.TimeStampToMSecs();SysUtils.MSecsToTimeStamp();Windows.GetTickCount;Windows.GetCurrentTime; {GetCurrentTime 和 GetTickCount 一樣, 是調用了 GetTickCount.}TDate、TTime 與 TDateTime

//選擇 country 表中的所有欄位SELECT * FROM country{雖然 SQL 並不區分大小寫, 但應習慣把關鍵字大寫}本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB;type TForm1 =

//選擇 country 表中的 Name 欄位SELECT Name FROM country//選擇 country 表中的 Name、Area 和 Population 欄位SELECT Name,Area,Population FROM country{多個欄位時, 欄位名是用 "," 隔開的}本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics,