動態設置系統日期格式
1 問題提出
在操作數據庫表的時候，通常需要對表中的日期類型的數據做處理，對於系統來說存在多種
日期格式，數據庫的日期字段也存在多種格式，當往數據庫表中插入日期字段的時候必須兩者的日期
格式匹配才能插入數據，在這種情況下，一般需要更改系統的日期格式，改成與數據庫表中的日期字段
一致的格式（因為表的設計已經定好，對於日期的格式也已經唯一確定，所以一般情況下都是更改系統
的日期格式），那麼就必須能夠在程序中自動改變系統的日期格式，使其和表的日期格式匹配！
2 程序中修改日期格式的系統API的說明
主要需要使用下面的Windows API
BOOL SetLocaleInfo(
LCID Locale, // locale identifIEr
LCTYPE LCType, // type of information to set
LPCTSTR lpLCData // pointer to information to set
);
本函數主要用於Windows系統中設置系統的區域選項，主要包括時間，語言等選項的設置。
LCID:locale identifIEr (區域標志）
在系統中有兩個默認值：
LOCALE_SYSTEM_DEFAULT：系統默認的區域選項；
LOCALE_USER_DEFAULT：當前用戶的區域選項；
同時用戶也可以通過 MAKELCID宏動態創建LCID；
LCType：需要設定的系統信息類型；
主要包括下面的值：
LOCALE_ICALENDARTYPE LOCALE_SDATE
LOCALE_ICURRDIGITS LOCALE_SDECIMAL
LOCALE_ICURRENCY LOCALE_SGROUPING
LOCALE_IDIGITS LOCALE_SLIST
LOCALE_IFIRSTDAYOFWEEK LOCALE_SLONGDATE
LOCALE_IFIRSTWEEKOFYEAR LOCALE_SMONDECIMALSEP
LOCALE_ILZERO LOCALE_SMONGROUPING
LOCALE_IMEASURE LOCALE_SMONTHOUSANDSEP
LOCALE_INEGCURR LOCALE_SNEGATIVESIGN
LOCALE_INEGNUMBER LOCALE_SPOSITIVESIGN
LOCALE_ITIME LOCALE_SSHORTDATE
LOCALE_S1159 LOCALE_STHOUSAND
LOCALE_S2359 LOCALE_STIME
LOCALE_SCURRENCY LOCALE_STIMEFORMAT
lpLCData：需要設定的信息的存放地址；
與起對應的函數為
int GetLocaleInfo(
LCID Locale, // locale identifIEr
LCTYPE LCType, // type of information
LPTSTR lpLCData, // address of buffer for information
int cchData // size of buffer
);
主要用於取得當前系統的區域設置，各個參數和使用過程不再一一說明。
3 使用舉例
//取得當前系統的短日期格式；
function Tfrmmain.GetsysDateFormat: string;
var
sgs:string;
begin
setlength(sgs,12);
GetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SSHORTDATE ,PChar(sgs),12);
result:=string(pchar(sgs));
end;
//設定系日期格式；
procedure Tfrmmain.SetSysDateFormat(s: string);
begin
SetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SSHORTDATE,PChar(s));
end;
